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VERSION  8009 


PREFACE 


N'altispectral  scanners  onboard  NASA  unmanned  Landsat  satellites 
provide  an  ideal  source  of  current  data  for  Earth  resources 
applications.  The  Detection  and  Mapping  (DAM)  package  was  origi- 
nally developed  at  the  Johnson  Space  Center  for  rapid  conversion 
of  the  Landsat  digital  data  into  hydrographic  maps  matching 
standard  topographic  quadrangle  series.  Recent  Improvements  in 
both  the  manual  procedures  and  computer  programs  within  the  DAM 
package  make  it  easier  to  use,  faster,  and  more  general  purpose. 

Documentation  and  software  for  the  DAM  package  are  available  to 
all  public  and  private  agencies,  in  accordance  with  the  NASA 
policy  of  encouraging  maximum  use  of  remote  sensing  technology. 


Published  documentation,  in  which  this  is  volume  4b,  is  comprised 
of  the  following  volumes: 

Volume  1:  General  Procedure 

Volume  2:  Software  User  Manual  (in  two  parts) 

Volume  3:  Control  Network  Establishment 

Volume  4:  Software  System  Manual  (in  two  parts) 


These  volumes  supersede  the  previous  documentation  published  in 
1973.  Software  releases  prior  to  version  7602  cannot  be  used 
with  the  current  documentation. 


Volume  4b  contains  software  listings  and  documentation  which  have 
not  been  published  prior  to  version  8009. 
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•RRT.tC  OAH. l7eS>S0SSi  

•RRT.te 

•RRT.tC  OAN.SttS^'ITSII  ..  (’RN‘I 

•RRT.te 

•RRT.tC  OAN.SOIS0«tSOXt  ..  (*X*I  . 
•RRT.tC 


Si 


Si 


.r-i 

OAH.CXR 

.r-i 

.r-R 

.r-s 

.r-o 

.r-7 

OAN.CXR 

.f-S 

.f-IO 

.f-ll 

.r>if 

.r-ii 

.r-iR 

.r-is 

.r-i* 

.r-i7 

.r-ie 

.r-it 

OAN.eXR* 

r-ii 

OAN.CXR* 

r-n 

OAN.CXR* 
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•Mir.te  DAN.AMCNOIX-O  . (••••(..••I. 


•ROM  I ••• 

•ORT.lie  OAR.HArKR-LIR ••! 

••RT.iC  OAR.MATCR-LIR/I  0*A 

•Mr.ie  OAR.NArCR>UN/l-AROCR«ON •-• 

•RRT.se  OAR.MArCR-LIR/l-*MR*RARROM •-• 

•RRT.SC  OAR.HATCR-LlR/t>l«»N*RAXROU 0-T 

•RRT.se  OAR.MArCR-LtH/|>*MR*ruXSHI  ••• 

•RRT.Se  OAR.NATCR«I.IH/t'*IHR-ruMNI  •*• 

•RRT.te 

•RRT.Se  OAR.MATCR*LIH/>  ••!! 

•RRT.te  OAH.HATCR-LtH/SA ••!• 

•RRT.te  OAN.UATCR«LIR/f A«lt«»r>RURt  O-lt 

•RRT.te  DAN.HArCR-LIM/tA'ItHN-RURS  O-li* 

•RRT.te  OAR.MATCR'LlN/SA'ttHN-RURS  0-tt 

•RRT.te  OAN.HArrR«l,tN<tA«t*»r-RURS  ••!• 

•RRT.te  OAH.MATCR>Lin/tA*l«*M>RURt 0>t7 

•RRT.te  OAH.HATCR>LlH/tA>l«N*RURt  ••!• 

•RRT.te  DAfl.MATCR«LIH/tA><Htr-AURS  0>lt 

•RRT.te  OAN.HATCR>Lin/fA*mr>RURS ••to 

•RRT.te  OAN.H.  CR-LlN/tA-<*ltr>RUN«i  0-tl 

•RRT.te  OAN.^^  Vi  /«>llH/tA>mr>RUR«»  0-tt 

•RRT.te 

•RRT.te  OAM.CHAN-CAi.tt/tt  ••••• 

•RRT.te  OAN.UATCR'LlN/tS  0-tS 

•RRT.te  OAH.MATCR-UH/tS*l*»N-RURI  •-•• 

•RRT.te  OAN.UATCR*LIN/tS-lt**N-Hm  0-t7 

•RRT.te  OAN.MATCR«UH/tS*lt«r-RURt  ..  ..•-•• 

•RRT.te  0AN.HATCR-LlN/tS-lt4H-RURt  0-tt 

•RRT.te  OAH.HATeR-llH/tS-ttHN-RURt  O-IO 

•RRT.te  OAH.HATCR*LIH/tS'l'*r-RURt ••It 

•RRT.te  OAN.WATCR-UH/tb-l**N-RURt  .0-It 

•RRT.te  PAN.UATCR-LIH/tS-l7N-RURt  O-ll 

•RRT.te  0AN.HATCR-llN/tS-<*itr-RUR3 ••>•» 

•RRT.te  OAM.HATCR-L  !/tS-t<»r -RURI  ••St 

•RRT.te  OAN.MATCR-t.lN/tS-*»ltr*RUR«  O-SS 

•RRT.te  0AH.UATrR-LtN/tS-l*»r-RUR7  0'ST 

•RRT.te 

•RRT.te  OAN.CNAN-CAklt/tO  ••!• 

•RRT.te  OAN.UATCR«UN/tO •-*• 

•RRT.te  DAN.UATCR*LIN/tO-*»ltr«RUR7  ••••I 

•RRT.te 

•RRT.te  OAN.UATCR*LIN/S  O'l*! 

•RRT.te  OAN.UATCR-UN/SA  •••»•» 

•RRT.te  OAN.UATCR'LtN/SA-LIN-Nt  •-«• 

•RRT.te 

•RRT.te  OAN.CHAN-CALIt/SC  0>H7 

•RRT.te  OAN.MATCR-UH/se  O-HR 

•RRT.te  OAN.UATCR«UN/Se*i.tM>NI  ••<»• 

•RRT.te 

•RRT.te  OAN.UATCR'NCtt/l  ••tl 

•RRT.te  OAN.UATCR*NCtt/tA  •••• 

•RRT.te  OAN.UATCR-Mtt/et  O-tS 

•RRT.te  OAN.HATCR«NCtt/SO  ••••> 

•RRT.te  OAN.UATCR>NCtt/SA  O^tt 

•RRT.te  rAM.UATCR'Nett/te  0-tS 
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•PRT.SC  OAH.eXP— 

•PRr.SC  OAN.TURBIO-NCSS^I  0-SS 

•PRT.SC  BAH.ruReiO>NeSS/8A  0-S9 

•PRT.SC  0AH.ruRBI0>NCSS/8e  0-60 
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OAN  MCKAOC  AmNOlX  M ArKNOIX>H 

tAIWLC  ftUNSTRCAHS  001 

OORT. SC  OAH.  ARRCNOIX-H  . (OOOOt N-1 

ORRT.SC  OAM.CXR»— 

ORRT.SC  OAH.CXRr*-’ 

•RRT.SC  OAH.RUN-CRTS-OUR  . CRTS-OUR N-<» 

ORRT.SC  OAH.RUN-CRTS-OUP/JSC  . CRTS'OURC J8CI H>S 

ORRT.SC  OAM.CXR— — 

ORRT.SC  OAH.RUN-RICTAB/X’SP  . RICTAOtSiNOLC  PUC  ‘X*  TARCS)..H-7 

ORRT.SC  OAN.RUN-RICrAB/X-nr  . RICTABinULT I -FILC  *X*  TAReSt...H-8 

ORRT.SC  OAH.RUNoRICTAB/RH  . RICTAOI’PH*  TARCS) H-9 

ORRT.SC  OAN.exR 

ORRT.SC  OAN.RUN'CONTROL  . CONTROL H-lt 

ORRT.SC  OAH.eXR 

ORRT.SC  OAH. RUN-CLA-PRC/X  . CLASStrY/PRTCLASSI *X*  TAPCSI . . . H-t 3 

OPRT.SC  OAH.RUN-CLA-PRC/PH  . CLASSI PV/PRTCLASS( *PH*  TAPES) .. H*t>* 

OPRT.SC  OAH.exP 

OPRT.SC  OAH. run-status  . STATUS H-tO 
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RCVlStONS  AND  NCHS 


APPCNOIX-I 

OOt 


•MT.SC  OAH.APWNDIX-I 
•PRT.SC  OAH.RCV'OAH 
•PRT.se  OAH.NCU-OAH 
•PRT.SC  DAN.NCU'PLTCLASS 
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OAN  PACKAOC  APPCNOtX  J 

oerAuir  connanos 


A»raNOIX-J 

001 


I 

f OPOr.SC  OAN.APPCNOtX-J 

; OPRT.SC  OAN.DCr-CRTSIOC 

OPOr.SC  OAN.OCP-PICTAS 
OPRT.SC  OAH. OOP -CONTROL 
OPRT.SC  OAH.OCP-CLASStPY 
oPRT.oc  OAH.oep-PRToer 
OPRT.SC  OAN.PRO-OCF-RAO 
OPRT.SC  OAN.PRO-OCF-OCN 
OPRT.SC  OAH.PRO-OeP-CLA 
^ OPRT.SC  OAN.Oer-PRTCLASS 

OPRT.SC  DAN. PRC -Oer -RAO 
OPRT.SC  OAM.PRC-OCr-OCN 
OPRT.SC  OAH.PRC-Oer-CLA 
OPRT.SC  OAH.Oer-PLTCLASS 
OPRT.SC  oam.ocf-status 
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OAN  PACKAOC  APKNOU  K 
SVSTCn  tHPLenCNTATION 


APPCNOIX-K 

OOt 


•PRT.SC  OAN.PRCPACe-K 
•PRT.SC  OAH.APPCNOIX-K 
•PRT.8C  OAN.SYS'HtA 
•NSO.N  OAH.SYS-rtTLe 

•Hse.N  oan.syS'LIst 
APRT.SC  OAH.SYS'CXPLAIN 
•PRT.SC  OAH.SYS-COPYCOn 
•PRT.SC  OAH.SYS-rOROPT 
•PRT.SC  OAH.SYS-BLOCK 
•PRT.SC  OAH.SYS'HAPOPT 
•PRT.SC  OAH.SYS-CQHPUe 
•PRT.SC  0AH.SY8-C0LLCCT 
•PRT.SC  OAH.SYS-oeLCTC 
•PRT.SC  OAn.SYS-OCNCOn 


NICRARCHY 
TtTLC  PAOe 

PRINT  ANNOTATCO  LIST  OP  SYH80LIC  CLCHCNTS 
INPLCNENTATION  INSTRUCTIONS 

COPY  COHPILATION/COLLCCTION  COHMANO  STREAMS  TO  TPPS 
STANOARO  PORTRAN  compiler  OPTIONS 
BLOCK  DATA  SUBROUTINE 
STANOARO  NAP  PROCESSOR  OPTIONS 

COMPILATION  COMMAND  STREAM  (MUST  NOT  SADO  PROM  OAMI 
COLLECTION  COMMAND  STREAM  CMUST  NOT  aAOO  FROM  OAN) 

delete  source  symbolics  (MUST  not  iaoo  prom  OAM) 

FOR  JSC  TO  OENERATE  OAM. SVS-COMPILE.  OAM. SYS-OELETE 
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ARRCNOIX<a 

OOt 


•RRT.tC 

•RRT.S 

ANtO.N 

•RRT.t 

•RRT.te 

•nto.N 

•RRT.t 

•HSO.N 

•RRT.S 

•PRT.SC 

•PRT . 8C 

•HSO.N 

•PRT.S 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•HSO.N 

•PRT.S 

•PRT.SC 

•PRT.SC 

•HSO.N 

•PRT.S 

•PRT.SC 

•PRT.SC 

•HSO.N 

•PRT.S 

•PRT.SC 

•PRT.SC 

•HSO.N 

•PRT.S 

•HSO.N 

•PRT.S 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•HSO.N 

•PRT.S 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 


OAH.PRCPACC'L 

OAH.APPCNOIX>L 

OAH. SETUP 
OAH.SCTUP'HIA 

OAH. SETUP/ N 

OAH.ERSPRTCN 

OAH.ERSPRTCN'HAP 


. CS009) 


SET  TASS  • 30  • 3N 


SET  UP  TPrS  AND  TTV.  AND  PRINT  NEMS 
. HIERARCHY 

SET  UP  TPPS  ANO  TTV.  ANO  DON’T  PRINT  NEMS 

SUSHI T PRINT  CONTROL  SPECIFICAT IONS 

. COLLECTOR  8YHS0LICS  FOR  REAL  ASSOLUTE 


OAH.ERSPRTCN-HAP/VIRTUAL  . COLLECTOR  SYHSOLICS  FOR  REAL  ASS  CNO  VIRTUAL! 

OAH.OATA/CHECKOUT  . PSEUOO  EXEC  COHHANOt  INITIATE  OATA/CHECKOUT  HOOE 
OAH.OATA-HAP  . COLLECTOR  SYHSOLICS  FOR  REAL  ABSOLUTE 

OAH.OATA-HAP/VIRTUAL  . COLLECTOR  SYHSOLICS  FOR  REAL  ASS  CNO  VIRTUAL! 

OAH.OATA-CHECK  . SOATA/CHECKOUT 


OAH.IOFILE 

OAH. lOFILE'HAP 

OAH. lOFILE-HAP/VIRTUAL 

OAH. LOCATE 

OAH.LOCATE'HAP 

OAH. LOCATE -HAP/ VIRTUAL 

OAH.USUAP 

OAH.USHAP-HAP 

OAH. USUAP-HAP/ VIRTUAL 


PSEUOO  EXEC  COHHANO:  IDENTIFY  TAPE  OR  DISK  FILE 
. COLLECTOR  SYHBOLItS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYHBOLICS  FOR  REAL  ABS  CNO  VIRTUAL! 

PSEUOO  EXEC  COHHANO)  POSITION  HULTI-FILE  TAPE 
. COLLECTOR  SYHBOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYHBOLICS  FOR  REAL  ABS  CNO  VIRTUAL! 

PSEUOO  EXEC  COHHANO:  SWAP  TAPE  DRIVE  UNITS 
. COLLECTOR  SYHBOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYHBOLICS  FOR  REAL  ABS  CNO  VIRTUAL! 


OAH.ERTS-OUP 

OAH.ERTSIOC 
OAH.ERTSIOC-HIA 
OAH.ERTSIOC/VIRTUAL 
OAH.ERTSIOC-HAP 

OAH.ERTSIOC-HAP/VIRTUAL  . COLLECTOR  SYHBOLICS  FOR  VIRTUAL  ABSOLUTE 


DUPLICATE  ERTS  HSS  TAPE 

PRINT  IO/ANNOTATION  DATA  FROH  ERTS  HSS  TAPES 
. HIERARCHY 

. SHAP  OAH.ERTSIOC  TO  TPFS  ANO  SKOT.! 

. COLLECTOR  SYHBOLICS  FOR  REAL  ABSOLUTE 


OAH.PICTAB 

OAH.PICTAB-HIA 

oah.pictab/virtual 

oah.pictab-hap 

OAH. PI CTAB-HAP/ VIRTUAL 

OAH.PICOOO 

PAH.PICIBS 

0AH.PIC3VS 

OAH.PICSTB 

OAH.PICOI8 

0AH.PIC0I3 

OAH.PICOI<» 

0AH.PIC0I5 

OAH.PICOIB 

OAH.OISHIS 

OAH.PICEXI 

OAH.PICFAC 

OAH.PICFA3 

0AH.PICFA9 


OISPLAY/TABULATE/FACTOR/PARTITION  ERTS  HSS  DATA 
. HIERARCHY 

. SHAP  OAH.PICTAB  TO  TPFS  ANO  AXaT.I 
. COLLECTOR  SYHBOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYHBOLICS  FOR  VIRTUAL  ABSOLUTE 
. CALL  PHASE  0 CCOHHANO!  ROUTINES  FOR  PICTAB 

. CALL  PHASE  l/B/9  ROUTINES  FOR  PICTAB 

. CALL  PHASE  3/*»/S  ROUTINES  FOR  PICTAB 

. CALL  PHASE  6/7/9  ROUTINES  FOR  PICTAB 

. DISPLAY  HSS-OERIVED  DATA  CPHASE  0! 

. DISPLAY  RADIANCE  CPHASE  3! 

. DISPLAY  ORAOIENT/LAPLACI  AN/VARI ANCE  CPHASE  •» ! 
. DISPLAY  CLASS  CPHASE  S! 

. DISPLAY  HSS-OERIVEO  DATA  CPHASE  9! 

. HISTOORAH  DISPLAYED  DATA  CPHASE  0! 

. TERHINATION  ROUTINE  CPHASE  0! 

. FACTOR  HSS  CHANNELS  (PHASE  0! 

. factor  HSS  CHANNELS  CPHASE  3! 

. FACTOR  HSS  CHANNELS  CPHASE  9! 
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AMCNDIX-L 
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SORT. SC 

•RRT.SC 

SORT. SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•HSO.N 

•RRT.S 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.bC 

•RRT.SC 

•RRT.SC 

•HSO.N 

•RRT.S 

•RRT.SC 

•RRT.SC 

•RRT . SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 

•RRT.SC 


OAN.RICLIS 
OAN.RICLIS 
OAH.RICLIH 
OAN.RICLIS 
OAN.RICLIS 
OAN.RICRAR 
OAN.RICRA3 
OAN.RICRA4 
OAN.RICRAO 
OAN.RICRAO 
OAN.RICRIC 
0AH.RICRI3 
OAH.RICRI4 
OAN.RICRIS 
0AN.RICR19 
OAH.RICRRO 
0AH.RICRR3 
0AN.RICRR9 
OAH.RICROT 
OAH.RICTOT 
0AN.RICT03 
0AN.RICT09 
OAH.RICXQT 
DAN. lOCRIC 
OAN.ORRRIC 

DAN. CONTROL 

OAN.CONTROL'HI A 

OA'N.CONTROL/ VI  RTUAL 

OAN. CONTROL-NAP 

OAH. CONTROL -NAP/ VIRTUAL 

OAN.CONOOO 

OAH.CONAOJ 

OAH.CONOI A 

OAN.CONCXI 

OAN.CONXQT 

OAH.OIACRR 

OAN.OLSrSQ 


. LIST  NSS-OCRIVCO  OATA  IRNASE  Ot 
. LIST  RAOIANCE  I PHASE  31 
. LIST  ORAOIENT  (PHASE  HI 
. LIST  CLASS  (PHASE  Si 
. LIST  HSS-OERIVEO  OATA  (PHASE  9) 

. PARTITION  FACTOR  SPACE  (PHASE  01 
. PARTITION  9V  OENSITY  (PHASE  31 
. PARTITION  BY  ORAOIENT/LARLACI AN/VARI ANCE  (RHH 
. PARTITION  FACTOR  SPACE  (PHASE  81 
. PARTITION  FACTOR  SPACE  (PHASE  91 
. PICTURE  NSS-OERIVEO  DATA  (PHASE  01 
. PICTURE  RAOIANCE  (PHASE  31 

. PICTURE  ORAOIENT/LARLACI AN/VARI ANCE  (PHASE  HI 
. PICTURE  CLASS  (PHASE  Si 
. PICTURE  NSS-OERIVEO  OATA  (PHASE  91 
. PROFILE  NSS-OERIVEO  DATA  (PHASE  01 
. PROFILE  NSS-OERiveo  DATA  (PHASE  3> 

. PROFILE  NSS-OERiveO  OATA  (PHASE  9) 

. rotate  FACTOR  STRUC TURE/COEFF I C I ENT S 

. total  tabulations 

. TOTAL  tabulations 

. total  tabulations 
. initialization  routine  (PHASE  0> 

. identify  current  CONNANO  SPECS  (UTILITY) 

. OPEN  ALTERNATE  PRINT  FILES  (UTILITY) 

AOJUST/OI AORAN  CONTROL  NETUORK 

. hierarchy 

. SNAP  OAN. CONTROL  TO  TprS  ANO  txaT.I 
. COLLECTOR  SYNBOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYMBOLICS  FOR  VIRTUAL  ABSOLUTE 
. CALL  PHASE  0 (CONNANO)  ROUTINES  FOR  CONTROL 
. ADJUST  network  (PHASE  0) 

. OIAORAN  NETWORK  (PHASE  0) 

. TERNINATION  ROUTINE  (PHASE  0> 

. initialization  routine  (PHASE  01 
. OIAORAN  ERRORS 
. LEAST  SQUARES  81 -LINEAR  FIT 


DAN. classify  . classify  data  on  CRTS  Nss  tape 

OAM. CLASSIFY-HI A . HIERARCHY 

OAN. CLASSIFY/VIRTUA . . SNAP  OAN. CLASSIFY  TO  TPFS  AND  •XQT.I 

OAN.CLASSIFY-NAP  . COLLECTOR  SYNBOLICS  FOR  REAL  ABSOLUTE 

OAN.CLASSIFY-NAP/VIRTuAL  . COLLECTOR  SYNBOLICS  FOR  VIRTUAL  ABSOLUTE 

OAN.CLAOOO  . CALL  PHASE  0 (CONNANO)  ROUTINES  FOR  CLASSIFY 

0AN.CLAI29  . CALL  PHASE  1/8/9  ROUTINES  FOR  CLASSIFY 

0AN.CLA3HS  . CALL  PHASE  3/H/S  ROUTINES  FOR  CLASSIFY 

OAN.CLAOET  . OENERATE  DETECTION  FILE  (PHASE  0) 

OAN.CLAOE3  . OENERATE  RAOIANCE  DETECTION  FILE  (PHASE  3> 

OAH.CLAOEH  . OENERATE  DENSITY  DETECTION  FILE  (PHASE  HI 

OAN.CLAOES  . OENERATE  CLASS  DETECTION  FILE  (PHASE  51 

0AN.CLADE9  . OENERATE  DETECTION  FILE  (PHASE  91 

OAN.CLAEXI  . TERMINATION  ROUTINE  (PHASE  01 

OAN.CLARAO  . OCT/CNECK  RADIANCE  LIMITS  (PHASE  0> 

OAN.CLAXQT  . INITIALIZATION  ROUTINE  (PHASE  01 

0AN.CLS08N  . CLOSE  OUTPUT  DETECTION  FILE  (UTILITY) 
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•PUT. SC 
•MT.tC 
•MT.tC 
•nto.N 
•PRT.S 
•MT.tC 
•MT.tC 
•MT.tC 
•MT.tC 
•MT.tC 
•MT.tC 
•MT.tC 
•MT.tC 
•PRT.tC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•HSO.N 
•PAT.S 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•HSO.N 
•PAT.S 
•PUT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•PAT. SC 
•HSO.N 
•PAT.S 


OAH. OPHOtN 
OAH.OPACLA 
OAH.SkHCkA 


OAH.PATOCT 

OAH.PATOCT-HIA 

OAH.PATOCT/ VI ATUAk 

OAH.PATOCT -HAP 

OAH. PATOCT-HAP/Vt ATUAk 

OAH.PAOOOO 

OAH.PAOICt 

0AH.PA03HS 

OAH.PAOOIS 

0AH.PA00I3 

OAH.PAOOIS 

OAH.PAOext 

OAH.PROUS 

OAH. POOL  I 3 

0AH.PR0LI9 

OAH. PROP I C 

OAH. PR0PI3 

0AH.PR0PI9 

OAH.PROXOT 

OAH. lOCPRO 

OAH.OPRPRO 


. OPCN  OUTPUT  OCTCCTION  PtkC  (UTIkITYI 
. OPCN  AkTCANATC  PAINT  PtkC  lUTIkITYI 
. PkOT  tPCCTRAk  klHITS  (UTUITYt 

OttPkAY  OATA  PAON  OCTCCTION  PlkC(S) 

. HtCAAACMY 

. SNAP  OAH.PATOCT  TO  TPPt  ANO  OXOT.I 
. COkkCCTOA  SYHOOkICS  POA  ACAk  AtSOkUTC 
. COkkCCTOA  SYHtOklCS  POA  VI ATUAk  AOSOkUTC 
. CAkk  PHASC  0 (COHHANOI  AOUTINCS  POA  PATOCT 
. CAkk  PHASC  t/C/9  AOUTINCS  POA  PATOCT 
. CAkk  PHASC  3/H/S  AOUTINCS  POA  PATOCT 
. OISPkAY  OCTCCTION  OATA  (PHASC  0* 

. OISPkAY  OCTCCTION  OATA  (PHASC  31 
. OISPkAY  OCTCCTION  OATA  (PHASC  9i 
. TCRHINATION  ROUTINC 
. kIST  OCTCCTION  OATA  (PHASC  0> 

. ktST  OCTCCTION  OATA  (PHASC  31 
. kIST  OCTCCTION  DATA  (PHASC  91 
. PICruAC  OCTCCTION  DATA  (PHASC  0) 

. PICTURC  OCTCCTION  OATA  (PHASC  31 
. PICTURC  OCTCCTION  OATA  (PHASC  91 
. INITIALIZATION  ROUTINC 

. lOCNTIPY  CURRCNT  COHHANO  SPCCS  (UTILITY! 

. OPCN  ALTCANATC  PRINT  PILCS  (UTILITY! 


OAH.PATCLASS 

OAH.PRTCLASS- 

OAH.PATCLASS/ 

OAH.PRTCLASS- 

OAH.PRTCLASS* 

OAH.PRCOOO 

OAH.PRCCXI 

OAH.PRCHAP 

OAH.PRCXQT 

OAH.HAPRNT 

OAH.NI THOO 

OAH.OPRPRC 

OAH.RCSPRC 


. OUTPUT  CLASSIPICO  CRTS  HAPS  ON  LINC  PRINTCR 
HIA  . HICRARCHY 

VIRTUAL  . IHAP  OAH.PATCLASS  TO  TPfS  ANO  axQT . I 

HAP  . COLLCCTOR  SYMBOLICS  POR  RCAL  ABSOLUTC 

HAP/VIRTUAL  . COLLCCTOR  SYMBOLICS  POR  VIRTUAL  ABSOLUTC 

. CALL  PHASC  0 (COMNANO!  ROUTINCS  POR  PRTCLASS 
. TCRHINATION  ROUTINC  (PHASC  0! 

. HAP  RAOIANCC/OCNSITY/CLASS  (PHASC  0! 

. INITIALIZATION  ROUTINC  I PHASC  0! 

. PRINT  HAPS 

. PAOVIOC  UNIT  HCAOINO  (UTILITY! 

. OPCN  ALTCANATC  PRINT  PILCS  (UTILITY! 

. ACSAHPLC  OCTCCTION  PIXCLS  (UTILITY! 


OAH. 

OAH. 

OAH. 

OAH. 

OAH. 

OAH. 

OAH. 

OAH. 

OAH. 

OAH. 

OAH. 

OAH. 

OAH. 

OAH. 


PLTCLASS 

PLTCLASS 

PLTCLASS 

PLTCLASS 

PLCOOO 

PLCIB9 

PLCCXI 

PLCHAP 

PLCXQT 

ITICPL 

HTICPL 

Nl ThPL 

OPLPLC 

RCOPLC 


/VIRTUAL 

-MAP 

-HAP/VIRTUAL 


OAH.PLHCLASS 


OUTPUT  CLASSIPICO  CRTS  HAPS  ON  PCN  PLOTTCR 
. IHAP  OAN. PLTCLASS  TO  TPPS  ANO  IXOT . I 
. COLLCCTOR  SYHBOLICS  POA  RCAL  ABSOLUTC 
COLLCCTOR  SYMBOLICS  POR  VIRTUAL  ABSOLUTC 
CALL  PHASC  0 (COMMAND!  ROUTINCS  POR  PLTCLASS 
CALL  PHASC  l/B/9  ROUTINCS  POR  PLTCLASS 
TCRHINATION  ROUTINC  (PHASC  Q! 

HAP  RAOIANCC/OCNSITY/CLASS  (PHASC  0! 
INITIALIZATION  ROUTINC  (PHASC  0! 

OCNCAATC  • PLOT  INTCRIOR  TICKS  (UTILITY! 
OCNCAATC  • PLOT  HAAOINAL  TICKS  (UTILITY! 

PLOT  UNIT  HCAOINO  (UTILITY! 

OPCN  ALTCANATC  PLOT  PILCS  (UTILITY! 

ACOISTCA  OCTCCTION  PIXCLS  (UTILITY! 


. OUTPUT  CLASSIPICO  CATS  HAPS  ON  PILH  ACCOAOCA 


L-3 


OAN  ^ACKAOC  AMCNOIX  L 
MAIN  MOORAHt/KOUriNCS 


AmNOtX'L 

OOH 


•HtO.N 

AMir.t  OAN. status 
•MT.se  oan.status-nia 
•MT.se  OAN.STATUS/VIRTUAL 
•MT.se  OAN. STATUS-NAN 
•MT.se  oan.status-nap/virtuai 

•NSO.N 

•MT.S  OAN.OITeON 
•MT.se  OAN.OITCON/VIRTUAL 
•RRT.se  OAN.OireOR-HAR 
•RRT.se  OAN.OITeOR-NAR/VIRTUAL 
•RRT.se  OAN.OITOOO 
•RRT.se  OAN.oirexi 
•RRT.se  oah.oitour 
•RRT.8C  OAN.OITVCR 
•RRT.se  OAH.OirXQT 


OCTCRNINC  status  OR  OAN  RAOKAOC  RUNS 
. NICRAReMY 

. SNAP  OAN. status  TO  TRPS  A AXOT.I 
. eOLLCeTOR  SYNSOLICS  rOR  RCAL  ABSOLUTE 
. eOLLCeTOR  SYNBOLieS  POR  VIRTUAL  ABSOLUTE 

oiSK  TO  Tare  oory  rrooran 

. SNAP  OAN.OITeOR  TO  TPPS  ANO  OXOT.I 
. eOLLEOTOR  SYNSOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYNSOLICS  POR  VIRTUAL  ABSOLUTE 
. CALL  PHASE  0 ICONNANOI  ROUTINES  POR  OITCOR 
. TERNINATION  ROUTINE 

. OURLICATE  OETECriON  PILE  ONTO  TARE  PROH  OISK 
. VERIFY  OETECTION  PILE  ON  TAPE 

. initialization  routine 


L-N 


OAH  PACKAOC  AMCNOIX  H 
eOHNANO  ROUriNCt 


ARKNOlX^n 

•01 


•por.te  OAH.ARcrACC-n 

•MT.se  OAH.AMCNOIX'H 
•HfO.N  ...AOJ 

•MT.Se  OAN.KHOALI 
•MT.SC  OAN.KNOATT 
•MT.tC  OAN.KNOCCN 
•MT.SC  OAN.KNOCNA 
•MT.SC  OAH.OCTCHA 
•MT.SC  OAH.KHOCLC 
•MT.SC  OAn.KNOeOL 
•PUT. SC  OAN.KNOCOP 
•PST. SC  OAN.KNOCOU 
•PST. SC  OAH.KHOCSO 
•PSr.SC  OAN.KNOOCN 
•HSO.N  ...OCT 

•nSO.N  ...OIA 

•HSO.N  ...018 

•HSO.N  ...CXI 

•PSr.SC  OAH.KHOCXP 
•HSO.N  ...PAC 

•PSr.SC  OAH.KHOPI 
•PSr.SC  OAH.KHOOCO 
•PSr.SC  OAH.KNOHCA 
•HSO.N  ...HIS 

•PSr.SC  OAH.KNOIP 
•PSr.SC  OAH.KNOINT 
•PRT.SC  OAH.KHOLIN 
•HSO.N  ...LIS 

•HSO.N  ...HAP 

•PST. SC  OAH.KHOHCS 
•HSO.N  ...HOO 

•PSr.SC  OAN.KHONAH 
•PST. SC  OAH.KNONCU 
•PSr.SC  OAH.KNONCX 

•Psr.sc  OAH.KNOOPr 

•PSr.SC  OAH.KHOON 
•PSr.SC  OAH.KHOOSI 
•PSr.SC  OAN.KHOPAO 
•HSO.N  ...PAS 

•PSr.SC  OAH.KNOPCC 
•HSO.N  ...PIC 

•PSr.SC  OAN.KHOPLO 
•PSr.SC  OAH.KNOPOl 
•PSr.SC  OAN.KNOPOK 
•PSr.SC  OAH.KNOPOL 
•PST. SC  OAN.KNOPSI 
•HSO.N  ...PSO 

•PST. SC  OAN.KHOSAO 
•HSO.N  ...SAO 

•PST. SC  OAN.KNOSAN 
•PST.se  OAII.KNOSCN 
•PST. SC  OAN.KHOSCS 
•NSO.N  ...SOT 

•PST. SC  OAH.KNOSCA 
•PST.se  OAN.KNOSCC 
•PST. SC  OAN.KHOSCS 


. (OOOSI  SCT  TAOS  • IS  • tS 

. ADJUST  SCTHOSK  (SCC  APPCNOIX  LI 

. ALION  eOOSOINATC  SYSTCNS 

. OCT/CNCCK  PLATPOSH  ATTITUOC 

. OCT/CNCCK  SCCNC  CCNTCR  SCAN  COOSOINATCS 

. OCT/CNCCK  RAM/TRANSPORNCO  CNANNCLISI 

. OCT/CNCCK  OCTCCTION  CNANNCLISI 

. CLCAS  NARNINOS/CRROSS 

. OCT/CNCCK  eOLOSISI 

. OCT/CNCCK  NUHOCR  OP  OUTPUT  COPICS 

. OCT/CNCCK  COUNT  PCS  PIXCL 

. CSOSSTAOULATC 

. OCT/CNCCK  OCNSITY  LI  NITS 

. OCTCCT  (SCC  APPCNOIX  LI 

. OIAORAH  NCTHORK  I SCC  APPCNOIX  LI 

. 0I8PLAY  ON  ALPNA'NUHCRIC  OCVICC  I SCC  APPCNOIX  LI 

. CXIT  (SCC  APPCNOIX  LI 

. CXPLAIN  PROORAH/COHHANO 

. PACTOS  (SCC  APPCNOIX  LI 

. CNO  IP  ...  PI  SLOCK 

. OCT/CNCCK  SCCNC  OCOHCTSY 

. OCT/CHCCK  PAOC  HCAOINOS 

. HISTOORAN  (SCC  APPCNOIX  LI 

. BCOIN  IP  ...  PI  BLOCK 

. OCT/CNCCK  INTCNSITYISI 

. OCT/CNCCK  LINCAR  HCIOHTS/OAIN/BI AS 

. LIST  (SCC  APPCNOIX  LI 

. HAP  (SCC  APPCNOIX  LI 

. OCT/CNCCK  TRANSVCSSC  HCRCATOS  CCNTSAL  hcsioian 
. HOOCL  (SCC  APPCNOIX  LI 
. OCT/CHCCK  HATCRIAL  NAriC 
. PRINT  NCNS  OP  PSOORAH  CNANOCS 
. SPCCIPV  CONOITION  POS  PCRPOSNINO  NCXT  CONHANO 
. TURN  OPP  MOOC  SHITCN(CSI 
. TURN  ON  HOOC  SMITCNICSI 
. OCT/CNCCK  UINOON  OSIOIN 
. SKIP  TO  TOP  OP  NCXT  PAOC 
. PARTITION  (SCC  APPCNOIX  LI 

‘PCCK*  INTO  LABCLLCO  CONHONS  IPOS  OCBUOOINOI 
. PICTUSC  ON  COLOR  CRT  (SCC  APPCNOIX  LI 
. OCT/CNCCK  PLOTTCR  SPCCIPICATIONS 
. OCT/CHCCK  CONTROL/CNCCK  POINT 

‘POKC’  (CNANOCI  LABCLLCO  COHHONS  (POR  OCBUOCINOI 
. OCT/CNCCK  POLAR  OAIN/BIAS 
. OCT/CNCCK  PRINTCR  SPCCIPICATIONS 
. PROPILC  (SCC  APPCNOIX  LI 
. OCT/CNCCK  RAOIANCC  LINITS 

('*CC  ALSO  APPCNOIX  LI 
. OCT/CNCCK  RANKINOISI 

. OCT/CNCCK  NCM  NINOOU  SCQUCNCC  NUHBCR 

. OCT/CNCCK  RCSANPLINO  SPCCIPICATIONS 

. ROTATC  (SCC  APPCNOIX  LI 

. OCT/CNCCK  NINOON  SCALC 
. OCT/CHCCK  SCCNC  NUHBCR  ANO  SIZC 
. OCT/CHCCK  SCRIPT 


H«l 


OAN  PACKAOC  AWI 
CPNNANO  ROUriNCS 


t 


AMCNOIX-N 

oot 


ARRT.te  OAN.KNOtNA 
•MT.tC  OAN.KNOfIZ 
•RRT.Ce  OAN.KHOtRA 
ARRT.te  OAN.KHOtRM 
ARRT.tC  OAN.KNOtYN 
•RRr.te  oan.khotar 
•RRT.te  OAH.KHOrie 

•Mr.te  OAH.KNoriN 

•RRT.te  OAN.KMOriN 
•RRr.te  OAN.KHOrOL 
•MT.tC  OAN.KHOUIN 
•MT.tC  OAH.KNOXXX 
•MT.tC  OAH.KNOZON 
•MT.tC  OAH.KHOOAO 
•MT.tC  OAN.KHOOAS 
•MT.tC  OAH.KHOOtR 
•MT.tC  OAH.KHOOrR 
•MT.tC  OAN.KNOOLO 
•MT.tC  OAN.KMXXCO 
•MT.tC  OAN.KHXXOS 


OCT/CHCCK  tHARMNINO  rilTCR  COCmCICNTt 

OCT/CHCCK  tCCNC  ttZe  IN  tCAN  COOROINATCt 

OCT/CNCCK  MINOON  tRACINO 

OCT/CNCCK  tMCROlO  OCOOCTIC  RARAHCTCRt 

OCT/CMCCK  tYHROLttI 

TAtULATC 

OCT/CMCCK  TICK  INTCRVALt 
MINT  CLOCK  TIHC  • CNAROC  TinC 
OCT/CNCCK  tint  tRCCIFICATIONt 
OCT/CNCCK  TOLCRANCC 
OCT/CNCCK  NINOON  VCRTICCt 

OCT/CNCCK/MOCCtt  MACRO  COHNANO  (CALLt  KNXXCOI 

OCT/CNCCK  UTH  RROJCCTION  ZONC 

tAOD  --  DYNAMIC  tADO 

tAtO  --  DYNAMIC  <AtO 

tORKRT  --  DYNAMIC  tORKRT 

tFRCe  --  DYNAMIC  arRCC 

tLOO  ••  DYNAMIC  tLOO 

CDIT  ACTUAL  SPCCt  INTO  MACRO  COMMAND  OCriNITION 
OCT/eVALUATC  ACTUAL  tPCC  FOR  MACRO  COMMAND 


OAH  MCKAOC  AM^CNOtX  N 
UTILITY  MUTINCt 


MCrACC-N 

OUl 


mrACC  TO  AMCNOIX  N 


THIS  AMCNOIK  CONTAINS  OAN  AACKAOC  OCNCNAL  UTILITY  tUUROUTINCS  AND  rUNCTIONS 


N>l 


0AM  OACKAOC  AMCNOtX  N 

oriLirv  MouriNCt 


AOOCNOU-N 

Ml 


•Mir.W  OAN.ARCrACC-N 
•MT.te  OAH.AMCNOIX-N 
•MT.te  OAH.AMC077 
•iNir.te  OAN.AAOMcr 
•POr.tC  OAN.ArRACC/OAH 
•MT.fC  OAN.OOX-CNA 
•Mr.te  OAN  Ar^ONA 
•Pxr.te  OAN.CAtCNA 
•Mr.tC  OAN.CAI.eOL 
Mxr.tc  OAN.CALOCA 
•MT.tC  OAN.CALtXA 
•Mr.te  OAN.CALSTN 
•MT.tC  OAH.CALUIN 

•Mr.te  OAN.CLOtct 
•Mr.te  OAH.CLOte<* 

•Mr.te  OAN.CLOtM' 

•Mr.se  OAH.CLtNOo 
•Mr.te  OAN.CLMtA 
Mr.te  OAH.coAtr 
•AXr.tC  OAN.CNOAOM 
•Mr.te  OAN.ocoNLr 
•Mr.te  OAH.oco 
•Mr.te  OAH.ocLcrC'i'teNt 
•Mr.te  0AN.00JA/N«rHAACK 
•Mr.te  OAH.ooACNr 
•Mr.te  OAH.OONCCA 
•Mr.te  OAN.oosoxr 
•NtO.N  .OLCrM 

•HtO.N  .OLCrtN 

•Mr.te  OAn.ONAMc 
•MT.te  OAH.OHAUIN 
•Mr.te  OAN.ottAx 
•Mr.te  OAN.ottMs 
•Mr.te  OAN.oxont 
•Mr.te  OAH.cttxro 
•Mr.te  OAN.CNVOAI 
•Mr.te  OAH.CNVMIN 
•Mr.te  OAH.cor 
•Mr.te  OAH.fACMT 
•Mr.te  OAN.  fL  I Nr  0 
•Mr.te  oAH.occRT 
•Mr.te  OAN.OCMON 
•NtO.N  .OCLCe 
•Mr.te  OAN.oeoNtr 
•NtO.N  .OCM 
•NtO.N  .OCtON 

•NtO.N  .OCUrN 
•Mr.te  OAN.ocNric 
•Mr.te  OAN.orroto 
•Mr.te  OAN.ocroAO 
•Mr.te  OAN.ocrt 
•NtO.N  .ocrsAL 
•NtO.N  .ocrtrx 
•NtO.N  .ocrtiN 
•NtO.N  .OCrSKN 
•NtO.N  .OCrtXL 


. lOOOtl  OCT  root  • to  • SI 

! OWNO  AoNCOItrCN  IN  OCIAL  (fON  OCOttOOINOl 
. ocrcoNiNC  • or  AcruAL  AHOUNCNrt  o ocrvAN  vceroR 
. rxACC  CAUt  re  AttCNOtCA  RovriNtt 
. OOX  CNARACrCRt 

. CXTRAOrrtCALt/OUNO  OtrC  riCLOt  lO’t  eONRL) 

. eALIORATC  CNANNIL  MINrCRt 
. eALIORATC  COLOR/ INrCNtirY  in  tTNOOL  rAOLC 
. eALIORATC  MINT/RLOr  COCfr'CtCKrt  fOR  tCALC 
. eALIORATC  MlNT/RLOr  COCmCiCNTt  rOR  tOACINO 
. eALIORATC  tVNOOL  TARLC  TOR  PRINT  I NO 
. eALIORATC  HiNOON  CNVCLOPCt 
. CLOtC  UNIT  s t INPUT  CRTt  Ntt  OltA) 

. CLOtC  eONNANO  RCCALL  flLC  I UNIT 
. CLOtC  ANO  PRINT  ALTCRNATC  PRINT  I SPOOL > PILCS 
. NRITC  CONNON  lO'CLAtttPICATtON  hCAOINO 

. CLOtC  UNIT  s I Input  crts  nos  data  in  oip  roAMAn 
. CORRCLATIONt/NCANt/Oevt  PRON  tUNf/tUHS -Of 'PRUOS 
. CROP  Ntt  OUTPUT  UINOOU  TO  PIT  PRINT  PILC  tITC 
. CORRCLAriOHt/NCANt/OCVt  PN  0 P SUNS/ SUNt*OP*PROO 
. eONVCRT  OCORCCt.NlNUTCt.SCCONOt  TO  OCORCeS 
. oCLcrc  ALL  ocNsirr  met 

. OOL  PRCCItlON  OAUtt'UOROAN  RCOUCTION 
. COHPUTC  I OP  TRACC  POR  NATRIX  OIAOONAL  eLCnCNTS 
. RCeiPROCAL  OP  NATRIX  OIAOONAL  eLCHCNTf 
. tOUARC  ROOT  OP  NATRIX  OIAOONAL  CLCNCnTS 
. OCLCrC  ALTCRNATC  PRINT  PILCS  (fCC  CLOtPRt 
. OCLCrC  INPUT  OCTCCTION  PILCS  ($CC  OPNICNI 
. ouNP  tick  TAOLC 
. OUNP  UINOOM  PAexCT 

. CONPUTC  OOL  PRCCISION  tUNt  S tUNt'OP •PRODUCTS 
. OOL  PRCC  tUNt  t tUNt*OP>PROOUCTt  PRON  UNIT  % 

. OCORCCt  TO  DCORCCt.  NtNUTCt.  tCCONOS 
. tORT  C>VALUCt/C>VCCrORt  tY  OCSCCNOINO  C'VALUCS 
. AOO  ORIOIM  ro  CNVCLOPC  (RCAL  PINOOU  PACKCTI 
. eONPUrC  CNVCLOPC  por  rcal  mi  noon  pacxct 
. CNO'OP'PILC  <«COP> 

. print  PACrOR  tTRUCruRC/COCPPICICNTt/NCANt 
. ocr  PILC  octCRiprivc  inpornation 

. LOAD  ’CRT*  oeONCTRIC  CONSTANTS 

. LOAD  ’NON*  OCOHCTRIC  CONSTANTS 

. LOAD  ’LCC*  OCONCTRIC  CONtrANTS  t SCC  OCNONI 

. LOAD  PROPCR  OCONCTRIC  CONtTANrt 
. LOAD  *Pt*  OCONCTRIC  CONtrANTS  (SCC  OCMONI 
. LOAD  *tON*  OCOHCTRIC  CONSTANTS  <tCC  OCNONI 

. LOto  utn*  oconctr'c  eoNSTANtt  itcc  ochoni 
. oc-<CP4rc/troRC/LiST/tOA>  ricxt 
. ocr  01 tx  tYHOOLie  rccord 

. ocr  ORieiNAL/TRANtPORNCO  RAOIANCC  PRON  CRTS  TAPC 
. ocr  RCNAININ8  eONTCNTt  OP  UNIT  8 OUPPCR 
. ocr  ALNMA  OAtA  PICLO  PRON  UNIT  t <tCC  OCTtl 
. ocr  fnnftOH  data  piclo  pron  unit  t «tcc  oerti 
. ocr  INTCOCR  data  piclo  pron  unit  t (ter  octsi 
. ocr  CNARACrcR  oata  piclo  pron  unit  t (tcc  oerti 
. ocr  RCAL  data  piclo  pron  unit  s (tcc  oerti 


N't 


OAR  OACRAOC  ARRCNOIX  R 
OflUTT  ROWriRCt 


AORCROU-R 

Ott 


•RtO.R  .OCTOtX 
•RRT.tC  OAR.MOUNir 
•RRT.Oe  OAN.IOUXSO 
•Ror.te  OAR.iocxr 
IRRT.tC  OAN.IOCNTt 
•RRT.te  OAN.IOCWI 
•RRT.te  OAN.IOUR 
•ROO.N  .iNOrAr 
•RRT.tC  OAN.INVOAI 
•RRT.tC  OAN.INVHIN 
•RNT.te  OAN.IHKOLA 
•RAT.te  DAN. JACNX/RArHRACK 
•ROr.tC  OAN.JOINXM 
•RRT.tC  OAN.KOLAHI 
•RRT.tC  OAN.KSRRCO 
•RRT.tC  OAH.LMXOI 
•NtO.N  .LOACON 

•Mr.tC  OAH.LORCOt 
•RAT.tC  OAH.LOCOSr 
•RRr.tC  OAN.LOOf 
■Rxr.tc  OAN.nAAMOO 
•RAT. SC  OAN.HATAAr 
•MtO.N  .AOCLAr 
•HSO.N  .HOCLAU 

•ASa.N  .NOrAfL 
•AAT.SC  OAN.NOLOO 
anso.if  .MONore 

•NSO.N  .NOUAAN 

•RAT. sc  OAH.ASKRIX 

•RAT. SC  OAH.HVCONT 

•RAT. SC  OAH.NXNLT/NATHRACK 

•RAT. SC  OAN.NCORIC 

•RAT. SC  OAN.NTASS/OAA 

•RAT. SC  OAA.NULSUB 

•RAT. SC  OAH.NVIATO 

•RAT. SC  OAH.ORCNRA 

•RAT. SC  OAH.ORCN3 

•NSO.N  .ORCN« 

•RAT. SC  OAN.ORNISN 
•RAT. SC  OAH.ORSSIR 
•RAT. SC  OAM.ORSOSK 
•RAT. SC  OAN.ORSNOR 
•RAT. SC  OAN.ORSTAR 
•RAT. SC  OAN.OSANCl 
•RAT. SC  OAN.OSANOT 
•RAT. SC  OAN.OSHOA 
•RAT. SC  OAN.OSSZAN 
•RAT. SC  OAH.OSSZAA 
•RAT. SC  OAH.OISZRN 
•RAT. SC  0AN.O3SZRA 
•RAT.*C  OAN.OSTOA 
•NfO.M  .RAOOAT 

•RAT. SC  OAN.RITROI, 

•RAT.se  OAN.RASHVN 
•RAT. SC  OAN.RAOVri 
•RAT.se  OAN.RAOVST 


. OCT  SCX*Y  DATA  flCLO  RAOH  UNIT  0 ISCC  OCTSt 
. RAINT  NCAOINO  LiNCTSi 
. ALLOCATE  AAAAY  Of  ASSO  MOAOt  IN  l•OANN 
. RAINT  SNOAT  CATS  SCCNC  ICCNTIflCATION 
. RAINT  CONRLCTC  CATS  SCCNC  lOCNTIflCATION 
, RAINT  SNOAT  10  fOA  LOOICAL  UNI T S 
. INTCOCA  OURLICATC  tlNOIACCT  ACf  TO  ORTIONAL  AAOt 
. OCT  rOATAAN  I/O  STATUS  CUNIYAC  STSTCN  AOUTInCI 
. AOO  OAIOIN  TO  CNVCLORC  I INTCOCA  HINOOH  RACXCTl 
, CONRUTC  CNVCLORC  fOA  INTCOCA  MINOOM  RACKET 
. INTCOCA*eOLOAoCQUIVALCNT  fUA  COLOA 
. JACOOl  ITCAaTION  to  flNO  CtOCN>  VALUeS/VCCTOAS 
JOIN  tUffCAS  fAON  TWO  OCTCCTtON  flLCS 
COLOA  rOA  INTCOCA'COLOA'CQUI VALCNT 
SRACAO  COUNT  fLAOS  INTO  INTCAIOA  UNOCfiNCO  RIXLS 
LINC  or  BOX  OlOIT  fOA  INTCOCA 

LOAD  NONINAL  ACOISTAATION  RAAANCTCAS  tSCC  LOACOB 
LOAD  CXACT  ACOISTAATION  RAAANCTCAS  fAON  UNIT  B 
LOCATE  OISK  SVNOOLIC  fUC  OA  CLCHCNT 
LOOAAITMH.  BASE  t tTAUNCATCOi  Of  INTCOCA 
MAITC  NAR  HI  NOON  Ml' AO  I NO 
RAINT  HATAIX 

CLCAA  'RATAL  CAAOA*  COUNT  ISCC  NOlOOl 

CLEAN  ’HAANINO’  COUNT  flCC  HOlOOi 

RAINT/LOO/COUNT  ‘RATAL  CAAOA’  ISCC  HOLOOI 

LOO  OIAONOSTIC  HCSSAOCS 

RAINT/LOO  ‘NOTC*  ISCC  HOLOOI 

RAINT/LOO/COUNT  ‘HAANlNO*  ISCC  HOLOOI 

MASK  RIXCLS  IN  BURRCA  OUTSIOC  NON-TRIVIAL  HINOOH 

HOVC  CONTENTS  BCThCCN  SRCCIRICO  LOCATIONS 

HATAIX  NULTIRLICATION 

CONVCAT  OIOITal  RICTUAC  RAOH  ROSITtVC  TO  NCOATIV 
I/O  UNIT  NUHBCA  Table 
00  ABSOLUTCLT  NOTHINOI I 
NAHC  ‘VIA*  ‘TO’  AOUTINCS 

ORCN  ALTCANATC  RAINT  I SROOL t RILES  lUNITS  tO*ISl 
ORCN  UNIT  S I inrut  CATS  HSS  DATA  I 
ORCN  COHNANO  ACCALL  RILE  ISCC  HA  I TEN  I 
ORCN  INRUT  OCTCCTION  RILCIfl  lUNlTS  •l*B«l 
ORCN  UNIT  S IINRUT  CATS  MSS  DATA  IN  SIR  ROAHATI 
ORCN  UNIT  s IINRUT  DATA  ON  OISiC  IN  RXBOCR  RHTt 
ORCN  UNIT  s IINRUT  CATS  HSS  DATA  IN  NOR  ROAHATI 
ORCN  UNIT  S IINRUT  CATS  HSS  OATA  ON  TaRCI 
ORCN  UNIT  s IHOR  RCAHAT  ANCILLARY  ACCOAOSI 
ORCN  UNIT  S INQR  ROAHAT  ANNOTATION  ACCOROS> 

ORCN  UNIT  S IHOR  ROANAT  HCAOCA  ACCOAOl 
ORCN  UNIT  S IH^.R  AN  ROAHAT  i SIZE  • iNRUT  UlNOOHI 

ORCN  UNIT  S IHOR  AA  ROAHAT t SIZE  • INRUT  UlNOOHI 

ORCN  UNIT  I IHOR  RH  ROAHATi  SIZE  • iNRuT  UlNOOHI 

ORCN  UNIT  S IHOR  RA  ROAHATi  SIZE  • INRUT  UlNOOHI 

ORCN  UNIT  I IHOR  ROAHAT  TaRC  OIACCTOAY  ACCOAOl 
RAOOAAH  abort  ISCC  RSTORI 

cstihatc  ritcn  ano  roll 

RAINT  BOX  NUHBCAS  IVAAIABLC  NCIONTI 
RAINT/OVCARAINT  RILCS 
RAINT/OVCARAINT  STHBOL  BURRCA 
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ARRCNOIX'N 

003 


ORRr.se  OAH.RRSYNL 

•RRT.SC  OAH.RRTCHR 

ORRT.SC  OAH.RRriNC 

•RRT.SC  OAN.RRTHRO 

•RRT.SC  OAH.PSTART 

•RRT.SC  OAN.PSrOR 

•RRT.SC  OAH.PXeONP 

•PRT.SC  OAN.PXHAH 

•RRT.SC  OAH.PXHAR 

•RRT.SC  OAH.PX*»PH 

•PRT.SC  OAN.PX<»PR 

•PRT.SC  OAH.QUAO 

•PRT.SC  OAH.QUARTN 

•PRT.SC  OAH.QUARTU 

•PRT.SC  OAH.ROSeiL 

•PRT.SC  OAN.ROSatP 

•PRT.SC  OAN.R03BSQ 

•PRT.SC  0AH.R030SK 

•PRT.SC  OAH.R03NUL 

•PRT.SC  OAH.RCAOrN 

•PRT.SC  0AN.REA03 

•PRT.SC  OAH. READS 

•PRT.SC  OAH.REO-NOn/LSAT-l -ERT 

•PRT.SC  OAH.REO-NOH/LSAT'P-ERT 

•PRT.SC  OAH.REO-NOn/LSAT>a-HOn 

•PRT.SC  OAn.REO-NOK/LSAT-a-SOH 

•PRT.SC  OAN.REO-NOn/LSAT'B'UTM 

•PRT.SC  OAM.REO-NOM/LSAT-3-ERT 

•PRT.SC  0AH.RE0-N0M/LSAT-3-H0M 

•PRT.SC  OAN. RE0>N0n/LSAT*3-S0H 

•PRT.SC  DAM. REO-NON/LSAT-3-UTN 

•PRT.SC  OAN. REVERT 

•PRT.SC  OAH.RITAOO 

•PRT.S.;  OAN.  RLE  I SX 

•PRT.SC  0AN.RL3SX 

• PRT.SC  DAN.RLi^SX 

•PRT.SC  OAN.ROTCNX 

•PRT.SC  OAN.ROTCOL 

•PRT.SC  OAN.ROTROU 

•PRT.SC  0AN.R3TREC 

•PRT.SC  OAN.SETNOO 

•PRT.SC  OAN.SHASAN 

•PRT.SC  OAN.SHPTBC 

•PRT.SC  OAN. SPANS 

•PRT.SC  OAN. SPLIT 

•PRT.SC  OAN.SREAOS 

•PRT.SC  OAN.SSPR 

•PRT.SC  0AN.STRE08 

•PRT.SC  OAN.SUBUIN 

•PRT.SC  OAN. TRACE/OAN 

•PRT.SC  OAN.TRECVR 

•PRT.SC  0AN.TSUAP3 

•HSO.N  .UNOETS 

•PRT.SC  3AN.VALKET 

•PRT.SC  OAN.VARSQN 

•PRT.SC  OAN.VARSQU 


PRINT  SYHBOL  LEOENO 

WRITE  BOX  CHARACTERS  ON  ANY  UNIT 

SET  PRINT  LINES  PER  INCH 

SET  PRINT  HAROINS  • LINES  PER  PAOE 

PROORAN  INITIATION 

PROORAH  TERHINATION 

OUHP  PXBOEF  PIXEL  BUFFER  PREAHBLE  (FOR  OEBUOOINO 
PXeOEF  PREAHBLE  FOR  HOP  ‘AH*  PREAHBLE 
PXeOEF  PREAHBLE  FOR  HOP  *AR‘  PREAHBLE 
PXBOEF  PREAHBLE  FOR  HOP  *PH*  PREAHBLE 
PXBOEF  PREAHBLE  FOR  HOP  'PR'  PREAHBLE 
FIT  Y • A«X«*a  * B*X  * C • SOLVE  FOR  EXTREHUN 
NORHALIZEO  QUARTIHAX  ROTaTK'N  CRITERION 
UN-NORHALIZEO  QUARTIHAX  ROTATION  CRITERION 
READ  UNIT  3 (ERTS  HSS  DATA  IN  HOP  8IL  FORHATI 

READ  UNIT  3 (ERTS  HSS  OATA  IN  BIP  FORHATI 

READ  UNIT  3 (ERTS  HSS  DATA  IN  NOP  BSQ  FORHATI 

READ  UNIT  3 (DATA  ON  DISK  IN  PXBOEF  FORHATI 

READ  UNIT  3 (SYNTHETIC  OATA  WHEN  NO  UNIT  31 
READ  OATA  FRON  DETECTION  FILEIS*  (UNITS  at>avi 
READ  UNIT  3 (ERTS  HSS  OATAI 

FILL  BUFFER  FOR  UNIT  S (CARO  READER  OR  TERHINALI 
NOHINAL  registration  PARANETERS 
NOHINAL  registration  PARANETERS 
NOHIHAL  REOISTRATION  PARANETERS 
NOHINAL  REOISTRATION  PARANETERS 
NOHINAL  REOISTRATION  PARANETERS 
NOHINAL  REOISTRATION  PARANETERS 
NOHINAL  REOISTRATION  PARANETERS 
NOHINAL  REOISTRATION  PARANETERS 
NOHINAL  REOISTRATION  PARANETERS 
REVERT  EQUATIONS 

HRITE/AOO  SPECIFIED  SYNBOLIC  ELENENT 
CONVERT  REAL  TO  SEXAGENARY  ARRAY  (INTEOERI 
CONVERT  REAL  TO  SEXAGENARY  ARRAY  (REAL  I 
COHPUTE  REAL  FRON  SEXAGENARY  ARRAY  (REAL  I 
rotate  two  NATRIX  COLUNNS  TO  HAXIHIZE  FUNCTION 
rotate  two  NATRIX  COLUNNS 
ROTATE  TUO  NATRIX  ROUS 

READ  UNIT  3 (READ  ONE  RECORD  FRON  TAPE  I 
OET/SET  node  SWITCHES 

SHARPEN  SANPLES  IN  PXBOEF  FORNAT  BUFFER 
SHIFT  BITS  CIRCULAR  HITHIN  UOROS  OF  ARRAY 
ENABLE/OISABLE  SPANNING  FOR  UNIT  S 
SPLIT  REAL  INTO  S I ON . I NTEOCR . OEC I HAL 
SPANNED  READ  OF  UNIT  S (USED  ONLY  BY  0ET5> 

COHPUTE  SUrS  • SUNS'OF-PROOUCTS 

STORE  REOISTRATION  PARANETERS  ON  UNIT  8 

generate  subuinooh  naps 
trace  CALLS  TO  fortran  ROUTINES 

TAPE  ERROR  RECOVERY  FOR  UNIT  3 (NOP  FORNAT  TAPES 
tape  swap  for  unit  3 (NOP  FORNAT  TAPES! 

BACK  UP  I OATA  FIELD  ON  UNIT  S INPUT  (SEE  GETS! 
VALIDATE  security  KEY 
NORHALIZEO  VAPIHAX  ROTATION  CRITERION 
UN-NORHAL I ZEO  VARINAX  ROTATION  CRITERION 
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•MT.SC  0An.veNA*»O 
•RRT.Se  OAH.VCRAHP 
•RRT.SC  OAN.VCROHU 

anto.N  .vuro 
•RRT.se  OAN. WARNS 
•RRT.SC  OAH.HINexT 
•RRT.SC  OAH.HININT 
•RRT.SC  OAH.URirCH 
•RRT.SC  OAN.HRVCRT 
•RRT.SC  0AN.XRC077 


UINOOH  VCRTICeSi  AOJUSTCO  NSS  TOR  OCOORARNIC 
HINOOH  VCRTtCeSi  AOJUSTCO  HSS  FOR  PRINT/PLOT 
WINOOH  VCRFIceSt  eeOORARMtC  FOR  UTN 
CALL  'VIA*  'TO*  routines  (SCC  NVIATOt 
PROCESS  NARNINO  OIAONOSTIC  FOR  UNIT  S 
eOHRUTE  INTERCEPTS  FOR  NINOON  EXTERIOR 
COHRUTE  INTERCEt-TS  FOR  NINOON  INTERIOR 
WRITE  COHNANO  RECALL  FILE  (UNIT  HI 
WRITE  VERTEX  COOROINATES  FOR  WINDOW 
OUNR  X-REOISTER  IN  OCTAL  (FOR  OERUOOINOI 


page  is 
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tUOROUTINC  ARC077(  • DUMP  SPCCiriCO  UNIVAC  ItOO  A-RCOISTCII  IN  OCTAL 

I NUNRCOI  a NUHOCR  OP  A-RCOISrCR  (0  THRU  111 


NISTORV 


e M SCMLOSSCR  LCC  tS/OS/70  ORIOINAL  COOC 
HCTHOO 


CNCOOP  contents  op  UNIVAC  1100  SCRIES  A-RCOtSTCR  IN  OCTAL  AND  PRINT  THEN. 

THIS  routine  is  OCSIONCO  to  help  OESUO  obscure  ERRORS  IN  THE 
COMPILER  a OPERATINO  system  --  ON  RETURN.  ALL  REGISTERS  (EVEN  THOSE  IN 
THE  VOLATILE  ’MINOR  REOISTCR  SET’I  ARC  UNCHANOEO. 


MACHINC-OCPENOCNT  CODE 


URITTCN  IN  assembler  POR  Th£  UNIVAC  MOO  SCRIES  COMPUTERS  USINO  6-BIT 
PIELOATA  characters.  the  calling  SCOUENCC  IS  that  used  by  UNIVAC 

PORTRAN  V. 

implementing  code  must  be  rewritten  pgr  OIFPERENT  CHARACTER  COOES. 
OIPPCRCNT  COMPILERS  (EG..  UNIVAC  ASCII  PORTRAN).  AND  OIPPERENT  MACHINES. 


EXTERNAL  RCPERCNCCS 


CR  PRINTS  a UNIVAC  X-8  EXEC  REQUEST  TO  PRINT  PIELOATA  CHARACTER  SUPPER 


EXCEPTIONS 


I.  THE  routine  PRINTS  A OIAONOSTIC  IP  0 <•  NUMRCO  <-  IS. 


OLOBAL  declarations 


NONE. 


AXRS 

$1001  . I -BANK 
ARE077*  OS 

0$ 

OS 

OS 


. BANKS  REVERSEO 

A0.ABUP*0 

AB.ABUP^B 

A**.ABUP*N 

A6.ABUP»6 


TO  ELIMINATE  INOIRECT 


LOAO  table  ENTRIES 


OAH  PACKAOC  AfPCNOtX  N 
(irtLlTV  ROUTINCS 


ARCOTT 

OOt 


OB 

AB.ABUP«B 

OB 

AtO.ABUP»tO 

OB 

Alt.ABUr»lB 

OB 

AtN.ABUr»l« 

• 

suRNAne 

LA 

AS. t.Xtl 

AS  t*  U.B.  HORO  <HS  • AOOR  OF  SUBR  NANEt 

LA 

At.O.AS 

At  t«  subroutine  NAHE 

BA 

At.PBUF*0 

PUT  SUBROUTINE  NAHE  IN  PRINT  BUFFER 

* 

RCONUH 

LA 

AO.«O.XU 

AO  t*  NUHREO 

UN 

AO. BAONUH 

BAO  IF  NUHREO  NEGATIVE 

TO.U 

AO. 16 

SKIP  Nl  IF  16  > NUHREO 

J 

BAONUH 

(NUNRE3  >•  161 

LA 

At .BIAS 

*0’  IS  NEGATIVE  I 

LA 

AS. BIAS 

LA 

A3. ABUr. AO 

A3  :•  CONTENTS  OF  SPECIFIED  A-REO 

UNPACKS 

LOSL 

At  .6 

SHIFT  a PAO 

SSL 

AS.  3 

TOO  FARI 

LOSL 

AS. 3 

EXTRACT  3-BIT  OCTAL  OlOIT 

JN 

Al .UNPACKS 

REPEAT  TIL  LEAOINO  CHAR  NOT  ‘0’ 

CNCooea 

AA 

A1  .BIAS 

CONVERT  6-SIT  octal 

AA 

AS. BIAS 

TO  FIELOATA 

OS 

Al .PBUF»3 

AND  PUT  IN  PRINT  BUFFER 

ENCODE  to 

OSL 

AO. 36 

Al  :«  AO.  AO  :«  0 

01. U 

AO.  10 

AO  TENS  OlOIT.  At  UNtTS  OtCtT 

AA.U 

AO. ’oaaaao* 

CONVERT  TENS  OlOIT  TO  FIELOATA  CHAR 

AA.U 

Al. ‘aaaaao* 

CONVERT  UNITS  DIGIT  TO  FIELOATA  CHAR 

SA.SS 

Ao.PBur^s 

INSERT  TENS  CHARACTER  IN  BUFFER 

SA.S3 

Al .PBUF*S 

insert  units  character  in  buffer 

PRINT 

PSRINT 

IPr  I.S.PBUD 

PRINT  BUFFER 

RESTORE 

OL 

AO. ABur*o 

RESTORE  REGISTERS 

OL 

AS.A8Ur*S 

OL 

A<».  ABUr*<* 

J 

s.xi  1 

RETURN 

BAONUH 

OL 

Al .BAONSO 

PUT  BAO  HSO  INTO  . . . 

OS 

Al .PBUr*3 

...  print  buffer 

J 

ENCODE  10 

ENCODE  BAO  NUHREO  t PRINT  BUFFER 

$(on  . 0 

•BANK 

ABur 

RES 

16 

PBur 

RES 

1 

• 

1 HO  FOR  subroutine  NAHE 

AREO  99 

• 

RES 

S 

. 

8 NOS  FOR  OCTAL  ENCODING  OF  REGISTER 

BAONSO 

*(BA0  NUNBERI* 

pr 

PORN 

IS.B.IS 

BIAS 

END 

•000000’ 

• 
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suoRouriNC  ARONcri  a oercRMiNe  actual  nuhocr  or  arouhcnts  a rcturn  vector 

0 NAROS.  a NUnOER  or  ACTUAL  AROUNENTS  PASSED  TO  ROUTINE  CALLINO  ARORET 
0 KRETNI  a RETURN  K VECTOR  rOR  USE  OY  ROUTINE  CALLINO  ARORET 


history 


E H SCHLOSSER  LEC 


09/87/79  ORIOINAL  CODE 


HETHOO 


THIS  routine  ALLOWS  THE  INVOKING  ROUTINE  TO  BE  CALLED  WITH  A VARIABLE 
number  or  ACTUAL  AROUNENTS.  DETERMINE  THAT  NUMBER.  ANO  RETURN  PROPERLY. 
ARORET  SEARCHES  THROUGH  THE  FORTRAN  V ARGUMENT  LIST  PASSED  TO  ThE 
INVOKING  routine  UNTIL  IT  riNOS  THE  FIRST  VALID  INSTRUCTION  (SK>0>. 

IT  ASSUMES  that  THIS  INSTRUCTION  IS  PRECEDED  BY  THE  FORTRAN  V UALKBACK 
WORD  AND  that  the  UALKBACK  WORD  IS  PRECEDED  BY  THE  ADDRESS  OF  ThE  LAST 
ACTUAL  ARGUMENT. 


machine-oepenoent  code 


WRITTEN  IN  assembler  FOR  THE  UNI  VAC  1100  SERIES  COMPUTERS.  THE 
AROUNENTS  ARE  DESIGNED  TO  BE  MACH  I NE - I NDEPENOEN T , BUT  THE 
METHOD  OF  PASSINO  ARGUMENTS  IS  THAT  USED  BY  UNIVAC  FORTRAN  V. 
IMPLEMENTINO  CODE  MUST  BE  REWRITTEN  FOR  DIFFERENT  COMPILERS 
(EO..  UNIVAC  ASCII  FORTRAN).  AND  DIFFERENT  MACHINES. 


EXTERNAL  references 


NONE. 


EXCEPTIONS 


VIOLATION  or  THE  rOLLOUINO  REQUIREMENTS  MAY  ABORT  THE  CURRENTLY  EXECUTING 
PROGRAM: 

I.  the  INVOKINO  routine  must  declare  8 extra  formal  AROUNENTS.  rOLLOUINO 
The  last  optional  argument,  these  8 arouments  must  never  be  used  in 

ANY  WAY  AT  ALL  I I 

8.  The  INVOKINO  routine  must  not  attempt  TO  ACCESS  ANY  MIS8IN0  FORMAL 
ARGUMENT  OR  TO  PASS  IT  AS  AN  ACTUAL  ARGUMENT  ON  A CALL  TO  ANOTHER 

routine. 

3.  the  INVOKINO  routine  MUST  NOT  DIRECTLY  ACCESS  ANY  PRESENT  FORMAL 


uriLITY  Hour t net 


IX  N 


AROMT 

00* 


AROUNCNT  UNICN  IS  ORMONAL.  flT  NAY  OC  ACCCSSCO  INOIRCCrLY.  AS  THE 
ACTUAL  AROUNCNT  ON  A SUBROUTINE  OR  FUNCTION  CALL. I 

R.  TMC  INVOKINO  ROUTINE  RUST  NOT  RERFORN  A NORNAL  RETURN.  BUT  NUST 
INSTEAD  RERFORN  A RETURN  KRCTN. 


OLOBAL  DECLARATIONS 
NONE. 

AXRS  . BANKS  REVERSED  TO  CLIHINATE  iNOtRECT  LOAD  TABLE  ENTRIES 


S(00>  . I -BANK 


LA.  HZ 

AO. Z. XI I 

LA.  HZ 

AZ. 1 .AO 

LR.U 

Rl  .30 

LXI  .U 

AZ.  1 

SZ 

A3 

SNC.St 

L3.0.*AZ 

NOP 

LXI  .U 

AZ.O 

ANA . HZ 

AZ. 1 .AO 

AU.XU 

AZ.-Z 

8A 

AZ.*t.XM 

SA 

A3.«0.XI 1 

J 

END 

3. XI  I 

■ 

ADDRESS  OF  U.8.  PACKET 

AOOR  OP  AOOR  OF  OTH  ARO  ON  PRCV  CALL 

« OF  ARO  ADDRESSES  TO  SEARCH 

SEARCH  INCRENCNT  IS  I 

00  IS  INVALID  OPCODE 

search  for  first  valid  opcode 

NOT  FDUND:  INVOKER  MILL  CRASH  ON  RETuRNl 

ZERO  INCREMENT  PORTION 

AS  :•  RETURN  K VECTOR 

A3  I*  ACTUAL  NUNOER  OF  AROUNENTS 

KRETN  :«  AZ 

NAROS  :•  A3 

RETURN  TO  INVOKER 
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ufj  ao.atracc  . eoNoirtONAL  trace  or  call  to  AoscneLCR  routine 
•TTTTTT*  . NAHE  Or  ROUTINE 


N I STORY 


E H SCHLOS8ER  LEC 

E H SCHLOSSER  LEC 


06/lt/7*»  ORIOINAL  CODE 

01/07/00  KOHXQT  HACRO 


NETNOO 


ir  NTRACE  IN  konxqt  laoelleo  common  is  not  zero.  Then  print  The  name 
OP  the  calling  routine  prom  The  argument. 


machine-oepenoent  code 


URITTEN  IN  assembler  POR  THE  UNIVAC  ItOO  SERIES  COMPUTERS  UStNO  6-BIT 

pieloata  characters. 

THE  method  op  passing  arguments  is  «<N0T*«  that  used  by  UNIVAC  FORTRAN  V. 
IMPLEMENTINO  CODE  MUST  BE  REHRITTEN  POR  OIPPERENT  CHARACTER  COOES  AND 

oipperent  machines. 


EXTERNAL  REFERENCES 
ER  PRINTS 
EXCEPTIONS 

I.  this  routine  must  not  be  called  by  a FORTRAN  routineii 
global  declarations 


AXRS 

KOMXQT 


LOCAL  declarations 


StOOl  . 0-BANK 

AOXI  O.O.O.O.l.t  . SPACE  I LINE.  PRINT  1 UORO 


. standard  UNIVAC  1100  REGISTER  MNEMONICS 
. COMMON  PROORAM  EXECUTION  SNITCHES 


PROCEDURE 
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ATRACe* 


I -RANK 


TNZ 

HTRACC 

J 

1 .AO 

LXI 

AO.AOXI 

CR 

PRINTS 

U 

I.AO 

CNO 

CHCCK  TRACe  SMITCH 
SMircN  18  orr  --  rcturn 
XI  • RRINT  specs 

PRINT  t HORO 
RCTURN 
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tl( 

III 
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AAA  0000 

ecc 

0000 

cecec 

rrrrr 

000  H N 1 1 1 J 
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L 

N n 

N N 

000  ROM  000  RRRO 

tos 

TTTTT 

u u 

Y V 

M NX  X Y Y Z2Z22 

1 

< 

> aa  9 

« « • 

( 

XX 

TTT  1 

00 

1 

tot 

33S 

•*  9S99S  00  77777 

•00 

000 

• • 

t > 

• • 

I 

1 

0 0 

A A 0 0 

c c 

0 0 

c 

F 

0 0 H N 1 J 

X X 

L 

HH  NN 

NN  N 

0 ON  NO  OR  R 

0 0 

T 

U U 

V V 

U H X X V Y 2 

) 

P 

< 

> a a 9999 

• «« 

( 

XX  X 

s t 

7 7 1 \ 

0 0 

tl 

0 0 

3 3 

•»«»  9 0 7 

0 0 

9 9 
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i t 

/ 

• ••• 

r 

1 

4 0000 

A A 0 0 

c 

0 0 

e 

F 

OMNI  J 

X X 

L 

H n n 

N N N 

0 OP  PQ  OR  R 

s 

T 

u u 

V V 

H U X X V Y 2 

t 

♦ 

< 

« « • 0 

( 

X 

t X 

7 1 \ 

0 0 

1 

i 

3 

•»  H 9999  6 7 

• 0 

9 9 

• 

/ 

a a • 

t 

t 

0 0 

AAAAA  BOO 

e 

0 0 

eec 

FFF 

0 HHHHH  1 J 

XX 

1 

H N H 

N NN 

0 0 PPPP  0 0 RRRR 

8SS 

T 

U U 

V V 

M H U X V 2 

1 

. 

4 i VIV 
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( 

X 

7 1..  \ 

0 0 

t 

aaa 

33 

H H 9 6666  7 

•00 

99t>9 

• 

t i 

/ 

a aaa 

f 

1 

A A 0 0 

c 

0 0 

t 

F 

0 00  N N 1 J 

X X 

1 
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N N 

s 

T 

u u 

V V 

U H U X X Y 2 

1 
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X 

X X 
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1 

a 

3 

9 6 6 7 
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9 
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a 

r 
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c c 
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c 

F 
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U U 

V V. 
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1 

• * 
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OAN  ^ACKAOC  AMCNOi 

urairv  MouriNCt 


tutROuriNC  ■vroNi>(  # cxrRAcr/tCALC/ouNP  lYre  rtecot  <t*s  con^t  iinanyi 


c 

e 

e 

c 

c 


t itpce.  • tPCCiriCArioN  amray  or  e moros  rcr  rytc  riCLOi 

I STARriNO  RYTC  Or  flCLO 

t LCNOYN  or  suR-riCLO  IN  OYres  c>i  • cno  srcett 
s intcocr  raw  or  rcalino  r actor 
•»  intcocr  cxroNCNT  or  rcalino  r actor 
rar  nahc  or  riCLO  «7  to  it  charactcrri 
I iRurR)  • RurrcR  containino  riCLOo  or  intcrnal  rytcr 


NISTORY 


C H tCHLOtSCR 
C A HCLHKC 


LCC  OI/tR/70  ORIGINAL  CODE 

LCC  10/19/79  CALLS  TO  NCH  OCTBYT/OBr/QBV.  I«»KTH0 


nCTHOO 


extract  riELO.  CONVERT  TO  INTEGER  EROM  TUGS  CONPLEHENT  BINARY.  SCALE. 
ANO  PRINT. 


nachine-oepenoent  code 


ASSUHES  6 CHARACTERS  PER  HORO. 
octal  rORHAT  SPEC. 


EXTERNAL  REPERENCES 


OCTBYT  • GET  NON'NEOATIVC  INTEGER  EROH  BYTE  IN  BYTE  STRING 

OETOBY  a GET  NON*NCOATIVE  INTEGER  EROH  DOUBLE  BYTE  IN  BYTE  STRING 

OCTOBY  a GET  INTEGER  PRON  QUADRUPLE  BYTE  IN  BYTE  STRING 

INTEGER  IRKTUO  S INTEGER  POR  ThOS  CDNPLEHEnT  BINARY 


exceptions 


I.  ANY  SUB'PIELOS  LONGER  THAN  V BYTES  ARE  IGNORED, 
t.  NO  other  checks  are  NAOE  ON  ANY  OP  THE  AROUHENTR. 

OLOBAL  declarations 

NONE. 


N*IS 


^ACKAOC  AMCNOIX  N 

uriLirv  RouriNct 


■rroNR 

oot 


e LOCAL  OCCLARAnONO 

c - 

e 


tNTCOCR 
INTCOCR 
INTCOCR 
tNrCOCR 
ixrcocR 
INTCOCR 
INTCOCR 
tNTCOCR 
tNTCOCR 
INTCOCR 
RCAL  SCALCr 
RCAL  RAOTLO 
RCAL  OCOrLO 


tfPCem  0 AROUHCNT 

IRUrRdl  0 AROUHCNT 

lOVNAHItl  a NANC  OC  tUO*riCLO«  IN  CURRCNT  flCLO 

t«R  0 ROINTCR  TO  riRST  ORCC  COR  CURRCNT  CICLO 

lOVT  • STARTINO  OVTC  or  CURRCNT  «UO-riCLO 

LCNOYT  • LCNOTN  IN  fYTCt  Of  OUO>riCLOS  IN  CURRCNT  flCLO 

LCNRIT  a LCNOTM  IN  01 TS  .... 

KTUfLO  a CURRCNT  SUO-flCLO  CONTCNTS  I PARTIAL  MONO.  TUOO  CONRLI 

INTFLO  a CURRCNT  tUR-rtCLO  CONTCNTS  (UHOLC  HORO.  INTCOCRI 

INTCNR 


a TCNRORARY 

a SCALC  TACTOR  rOR  all  SUB-MCLOS  in  CURRCNT  riCLO 
a SCALCO  vALuc  or  currcnt  suB-riCLO  cnorhallt  raoiansi 
a RAOrLO  CONVCRTCO  TO  OCORCCS 


RROCCOURC 


URITC  HCAOINO 

HRITCIB.nSI 
IIS  rORNATI 

a * STRT  L NANC  octal  INTCOCR  RADIANS 

a 'OCORCCS* < 


INITIALIZC  SRCC  ROINTCR 

ISR*I 


C OCT  SPCCS  rOR  SUB>riCLOS  in  currcnt  riCLO 

c 

coo  IBYT<ISRCCl ISPI 

LCNOYT*ISPCC( ISP*li 
LCNOIT«LCNBYT*0 

IPfLCNBYT.LT. n 00  TO  900  S CNO  Or  SPCCS/BurrCR 

iriLCNBYT.OT.H)  00  TO  000  a SKIP  rU'LOS  with  SUB>riCLOS  LONOCR  than  H 

scALcr-PLOATc ispcci isp*ei i ••ispcci isp»si 

IBYNAHt  1 1 •ISPCCI  ISP»**< 

IBYNANICOISPCCI  isp*si 
c 
c 

C CXTRACT  SUB*rtCLO 

c 

SOO  00  TO  ISCO.SwO.SSO.SOOl .LCNOYT 

c 


SCO 

CALL  OCTOYTlKTurLO. 

lOUrR.tOYTI 

a I OYTc  suB-rtCLO 

00  TO  HOO 

3N0 

CALL  OCTOOYIKTHrLO. 

lOUPR.IOTTi 

a c OYTC  suo>ricLo 

00  TO  AOO 

N-t«* 
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uuuu  uuuu 
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urtLtrv  RourtNCt 


■vroi» 

NS 


e 

SSO  CALL  NTOSYtlNrCHR.  Itum.lSYn  • S 8YVC  tUS-ftCLO 

CALL  NrtYTlKTNrLO.  isurii.  ltYr*t> 

KrurLO*KrHrLO*tNrcNR*t««ts 
00  TO  100 

e 

sto  CALL  ocroovtKrNrLO.  lOurA.iOYn  • i oytc  tuo*fiCLO 

e 
e 

C eONVCRT  SUI'flCLO  TO  tIONCO  INYCOCR.  fCALC  IT.  AfUNT  IT 

c 

100  iNTrLO«iiKruoiKrHrLO.LCNiiri  o convcat  to  intcoca  rooN  tmos  coial 
AA0rL0*rL  OA  r ( I NT fL  0 1 • oe AL  er 
ocorLO*AAorLO« i oo . / s . 1 1 1 sooeo 

uRircto.siot  lovr.LCNOvr . lOYNAN.KrurLO. tNrrLo.AAorLO.oeorio 
S19  roRHAri IX. ii.ix. 1 1 . IX. f AO. IX. 01 i.ix.iio.ix.riH.o.ix.rio.si 
c 
c 

C ANCAAAC  rOA  NCXT  SUO-rteLO  IN  CUARCNT  riCLO 

c 

ifyr«iorT*i,CNorT 

tri tfyr.LT. ISACCl ISA»Sn  oo  to  YOO  • SUO>riCLD  CXtfTS.  00  iri 


AACPAAC  rOA  NCXT  flCLO 

600  I6P*I6A*6 
00  TO  000 

CNO  or  sACcs/furrcA 

000  ACruAN 
CNO 


N-l« 


OAH  PACRAM  A^KNOIX  N 

vmirv  RouriNCt 


CALCNA 

OOt 


tUaROUMNff  CALCNA  • CALIMArC  lurrCR  AtCtONNCNTf  rOR  RAH  CMANNCIS 


NltrORT 


A 

HCLNKC 

Lce 

IC/CO/YC 

A 

HCLHKC 

LCC 

lf/tl/7C 

A 

HCLNKC 

LCC 

lt/Cl/7C 

e 

CRISR 

LCNSCO 

oc/ic/co 

H 

SCHLOSSCR 

Lcnsco 

os/ 1 1 /CO 

HCTHOO 


RCQUlRCnCNTt 
ALOORtTHN  OCttON 
ALOORMNN  COOINO 

•Ur  rOR  RAH  CNAN  ONLYir  RRCSCNT  A USCO 
ROLARi  RAM  CNAN  I IN  lUfrCR  I 


RAH  CNANNCLSi 

ocrcRHiNC  rah  channclr  useo  as  thosc  ocrtNCo  as  linit  channcls 
IN  TNC  LINCN  array. 

OCTCRNINC  rah  channcls  NRCSCnY  as  thosc  HITm  a non-clank  CANO 
IN  TMC  ncrcan  array. 

rOR  ALL  RAM  CHANNCLS  RRCSCNT  » uSCO.  UROATC  NCRCHR  ARRAY  TO 
ASCI  ON  CurrCR  nuhccr  i to  rah  CHANNCL  I. 


L INCAR  S ROLAR  TRanSRORHCO  CHANNCLSi 

OCTCRNINC  rah  channcls  USCO  AS  thosc  HITH  NON-2CRO  RAOtANCC 
TRANSrORNATION  LINCAR  HCIOHTS  IN  RTLUOT  ARRAY. 

OCTCRNINC  rah  channcls  RRCSCNT  AS  ThOSC  HITh  A NON-CLANK  BAND 
IN  thc  ncrcan  array. 

rOR  ALL  RAH  CHANNCLS  RRCSCNT  S USCO.  UROATC  NCRCHR  ARRAY  TO 
ASSIGN  CUrrCR  NUHCCR  I TO  RAH  CHANNCL  I. 


NACHINC-OCRCNOCNT  COOC 


NONC. 


CXTCRNAL  RCRCRCNCCS 


NOHARN  • RRINT/LOO/COUNT  ‘HARNlNQ*  NCSSAOCS 

OOUCLC  RRCCISION  CCS*»IN  • YAR-LCNOTh  (S<*CHARI  STRINO  TOR  INT  STRINO 

OOUCLC  RRCCISION  CCS<*CS  • VAR-LCNOTh  >S<*CHARI  STRINO  ROR  CHR  STRING 


CKCCRTIONS 


I.  ir  RCOUIRCO  CHANNCL  IS  NOT  RRCSCNT  ISSUC  NOHARN. 
t.  ir  CHANNCL  TYRC  INVALtO  ISSUC  NOHARN. 


N-te 
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CALCNA 

•Off 


c 

c 

c 

c 

c 

c 

e 

c 

c 

c 


•kOOAi  OCCLAIIAriONO 


iNCiuoc  KONxor.Li«r 
INClUOff  KOHIAT.LlSr 
iNCLUOr  KONKLI.Utr 
INCIUOC  KONNCR.LlSr 


LOCAL  OCCLANATIONI 


• CONNON  MOORAN  CXCCUTION  tHI TCNCS.COUNrCNt 

• CONNON  INNAOIANCC  rNANtrOANAriON  COCrriCICNTf 

• CONNON  CLAStincArion  iNro 

A CONNON  cort  tCCNC  AANANCTCNt 


iNfCOCN  NOr 
iNrCOCN  NCNAN 
INTCOCR  ICHNAM 
iNfCCCN  tCHLIN 


A OurrCN  NUNOCR 

A CNANNCL  NUHiCA  (NO  INAUT  flLC  AASIONCOI 
A NAM  CHANNCl  NUNOCN 
A LI  NCAA  CHANNCL  NUHtCN 


NNOCCOUNC 


CALL  rNACC 


CHCCK  TO  ACC  If  INNur  FUC  IS  AtSIONCO 
00  too  ICNNAH-I .NCNCHA 

If  (NCNOANI ICHNAMi .NC. * *1  00  TO  190  A If  HOT  OLANK.ASSUNC  iNNur  FILC 
100  CONflNUC 


C 

c 

c 

c 


ir  iNNur  riLC  not  assionco.  scr  ourrcN  noi ircRS 

ir  ( IRTTYN. NC. ‘NAM* I 00  TO  ISO 
00  IffO  NOr»I.NLIHCM 

NCNAN*LtNCNINOr> 

If  INCHAN.Or.SI  00  TO  too 
NOrCNNfNCHANI aNOr 

IffO  continuc 

00  ro  900  0 iNNur  rac  not  assionco 

ISO  00  too  ICHNAH«I .NCNCMA 

NOrCHNC ICHNAMI •ICHNAM 
100  CONYINUC 
00  TO  too 


CNANNCL  TYNC  NAM 

100  ir(iNrryN.MC.‘NAM*i  oo  ro  soo 

triNLlNCH.LC.OI  00  TO  SOO 
00  ffOO  NOr«I.NLlHCH 
tCNNAM«LlNCH(Nffri 
If  I tCHNAM.Or.Si  00  TO  too 
iriNCNOANI ICHNAMI .CO. * *1  CALL  NOMANN  I 
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• ‘RAH  CHANNCL’.CeSHINMCHRAH.SI  . ‘ NOT  PResCNT*! 
tPCNt^PANMCHRAHI  .eO.  * *t  00  TO  SOO 

NercHR(iCHRAui«Ner  a rah  channcl  prcscnt 

«oo  continue 
00  TO  000 

c 

c 

c channel  type  linear 
c 

300  tri irttyp.ne.  LIN* t 00  TO  *»ao 
00  330  NBF>I .NLINC; 
tCHL IN-LINCH 
00  310  ICHRAb-  ; .NcRCHA 

IP  IRPLUOTC ICHKAU, ICHLINi .EQ.O.OI  00  TO  310 
IP  CNER8AP( ICHRAU) .EQ. ’ ’>  CALL  HOUARN  ( 

• ‘RAH  CHANNEL  * .C8SHIN( ICHRAM. 3) . ’ POR  LINEAR  CHANNEL 

A C8SHINMCHLIN.3)  . * NOT  PRESENT') 

IP(NERBAN( tCHRAH) .EQ. ' * ) 00  TO  330 

NBPCHRt ICHRAH) -ICHRAH  a RAW  CHANNEL  PRESENT 

310  continue 

330  continue 
00  TO  900 
C 
C 

C CHANNCL  type  POLAR 
C 

HOO  IFIIRTTyP.NC. 'POL')  00  TO  800 
00  *»30  ICHRAU>I  .NERCHA 

I PC (RTLHOTC  tCHRAU. 1 ) .EQ. 0. 0)  . ANO. I RTLHOT ( ICHRAU.?)  .EQ. 0. 0) ) 

> 00  TO  >*30 

IPCNERBAN) ICHRAH) .EG. ' ')  CALL  HOUARNC 

> *RAU  CHANNEL  * .C8S*»  I Nl  ICHRAU.  3)  . ‘ NOT  PRESENT  FOR  POLAR  ' 
IPCNERBANC  tCHRAU)  .EQ.  ' ’)  00  TO  <«30 

N8PCHRC  ICH.RAU)  «ICHRAU  3 RAW  CHANNCL  PRCSCNT 

•*30  continue 
00  TC  900 
C 
C 

C INVALID  CHANNCL  TYPE 
C 

800  CALL  HOUARNC 

> ‘BAD  CHANNCL  type  ' . CSSbCSC I RT T YP . C I ) . 6 ) > 

C 

C 

c 

900  RETURN 
C 

CNO 
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OAN  PACKAOC  APPCNOIX  N 

uriLtry  routincs 

SUBROUriNC  CALCOL  • CALIBRATe  COLOR/ INrCNSI TY  IN  SYMBOL  TABLC 

c - 

c 

HISTORY 

e H SCNLOSSCR  LCHSCO  08/88/80  STUBSCO 
HCTHOO 

NOT  ver  IHPLeHCNTCO. 

MACHlNe-OCPCNOCNr  CODE 

ASSUMES  AT  LEAST  6 CHARACTERS  PER  KSYM  ELEMENT. 

EXTERNAL  REFERENCES 

OETICE  a GET  INTEGER-CHARACTER-EQUl VALENT  PROM  CHARACTER  STRING 

EXCEPTIONS 
NONE. 

GLOBAL  DECLARATIONS 

INCLUDE  KDHSYM.LIST  i COMMON  SYMBOL  TABLE 

LOCAL  declarations 

NONE. 

PROCEDURE 

CALL  trace 
C 
C 

RETURN 

END 


CALCOL 

001 


N-IS 


ooonoooooonoonnnonnonoonnooononoooooooooo 
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CALtCA 

sot 


SUSKOUrtNC  CALSCAC  A CALIBRATC  PPO  rRANSrORHAT ION  COCrriCICNrs  POR  SCALE 

« 

I PLINCH.  a PPO  LINES  PER  INCH 
I PCINCHI  a PPO  COLUHNS  PER  INCH 


HISTORY 


E H SCHLOSSER  LEC  03/02/7<*  ORIGINAL  COOE 

E H SCHLOSSER  LEC  01/30/79  HAX  SCALE  l/IOOOOOO  A FIX  00170 


NETHOO 


CALIBRATE  THE  NAPPING  EQUATIONS  FOR  SCALE.  OUTPUT  OEVtCE.  ANO  OFFSET. 

TYPICALLY.  FOR  A STANDARD  LINE-PRINTER  PLINCH«6.0  ANO  PCINCH-IO.O.  ANO 
FOR  A PEN  PLOTTER  CALIBRATED  IN  INCHES  BOTH  PLINCH  ANO  PCINCH  UOULO 
BE  I . 0 . 


HACHINE-OEPENOENT  COOE 


NONE. 


EXTERNAL  REFERENCES 


HOUARN  a PRiNT/COUNT/LOO  'HARNINO'  OIAONOSTIC  HESSAOE 

REVERT  a CONFUTE  INVERSE  TRANSFORNA T I ON  COEFFICIENTS 


EXCEPTIONS 


I.  INVALID  SCALE  GENERATES  A HARNINO  OIAONOSTIC. 


GLOBAL  declarations 


INCLUDE  KONNER.LIST  a CONNON  ERTS  SCENE  PARANETERS 

INCLUDE  KONFIT.LIST  a CONNON  AOJUSTnENT/REOICTRATION  PARANETERS 

include  trfdrn.list  a define  coordinate  transfornation  functions 

c 
c 

C LOCAL  declarations 
C 

c 

REAL  RFO  a representative  FRACTION  DENONINATOR 

C 


N-eo 


OAN  f»ACKAOC  AMCNOIX  N 
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C 

C RROCeoURL 
C 

c 

c 

CALL  TRACE 
C 

c 

C CHECK  SCALE 
C 

IRFO^lARSCIRrOI  A FLAO  SCALE  AS  CALIBRATEO  (POSITIVE) 

RFO*IRFO 

IFMIRFO.OE.aoOOOl  .ANO.riRFO.LE.tOOOOOOl)  00  TO  ISO 
CALL  NOMARNC  ‘SCALE  NOT  OCFINEO*) 

RFO«l . 

C 

c 

C COHPUTE  LINEAR  COEFFICIENTS  IN  FORMARO  PRI NTER/PLOTTER  EQUATIONS 
C PPOL IN-CORPPO( I (•CORLlN^CORPPOfE) *CORSAri»CORPPO( 3) 

C PPOCOL-CORPPO(VI*CORLIN*CORPPO(5I *CORSAn*CORPPO(6) 

C 

ISO  CORPPO( I I >CORSRN( I ) « 39. 37«PL I NCH/RFO 
CORPPO(S>-CORSRN(E) <39.37<PLINCN/RF0 
CORPPOCVI *CORSRN(VI • 39. 37«PC I NCH/RFO 
CORPPOC  S> -CORSRNI 5 > *39. 37* PC  I NCH/RFO 
C 
C 

C FIND  HININUN  PPO  LINE  A COLUMN  HI  THIN  SCENE 
C 

PP0LNN>»9E*3I 
PPOCNN-fSE^SI 
AOJSAN*! . 

CORSAN-CORSNAC I . . AOJSAN) 

00  170  HSALIN-O.NERLIN.NERLIN 

CORL IN-NSAL IN  • FUTURE  CORRECTION 

PPOLIN-CORPPO' I )*CORLIN*CORPPO(E>  *CORSAn 
PPOCOL*CORPPO(Vi •CORLIN*CORPPO(5>  *CORSAN 
PPOCNN-ANINI (PPOCNN.PPOCOL  > 

PPOLNN-ANiNt ( PPOL HN. PPOL INI 
170  CONTINUE 
C 

c 

C BIAS  PPO  EQUATIONS  SO  PPO  COORDINATES  ARC  POSITIVE  WITHIN  300  UNITS 
C 

CORPPOI3I«300.0*PPOLNN  0 PPOLIN  > *300  WITHIN  SCENE 

CORPPO(6)«300.O’PPOCHN  • PPOCOL  > *300  WITHIN  SCENE 

C 
C 

C COMPUTE  INVERSE  PRINTER/PLOTTER  COEFFICIENTS 
C CORL IN*PP0C0R( 1 1 *PPOLIN*PPOCOR(ei *PPOCOL  *PPOCOR( 3) 

C CORSAM-PPOCOR(V I «PPOL I N*PPOCOR( S I <PPOCOL  *PPOCOR ( 6 1 

c 

CALL  REVERTICORPPO.PPOCOR) 

C 

C 

RETURN 


CALSCA 

BOB 


OF  SCENE 
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CNO 


N’oe 


CALtPA 
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OUmOUriNC  CALSRA  * CALISRArC  pro  rRANSrORNAriON  COtmCICNTS  rOR  SPACINO 

c 

c 

c 

e HISTORY 


e 

e 


c 

E 

N SCNLOSSER 

LEC 

01/06/71 

ORIOINAL  CODE 

c 

e 

H SCNLOSSER 

LEC 

06/13/79 

EXPAND  OOCUNENTAriON 

c 

0 

A DECK 

LEC 

09/61/79 

SENSITIZE  TO  ORIOIN 

c 

c 

C HCTHOO 

c 

c 

C CALIORArc  THC  DISPLAY  CQUATIONS  POR  SPACINO.  AND  OFFSET.  AND  ORIOIN. 

C 

C 

C HACHlNE-OePCNOCNr  CODE 
C 

c 

C NONE . 

C 

C 

C EXTERNAL  REFERENCES 

C 

C 

C NOUARN  a PRINT/COUNT/LOO  ‘UARNtNO’  OtAONOSTIC  MESSAGE 

C REVERT  a COMPUTE  INVERSE  TRANSFORMATION  COEFFICIENTS 

C 
C 

C EXCEPTIONS 

C 

C 

C I.  INVALID  SPACINO  GENERATES  A WARNING  DIAGNOSTIC. 

C 
C 

C OLOSAL  DECLARATIONS 

C 

C 

INCLUDE  KOMNER.LIST 
INCLUDE  KONFIT.LIST 

include  trform.list 
include  konohh.list 
include  minoef.list 
C 
c 

c local  declarations 

C - 

c 

c real  ppolo 

C REAL  PPOCD 

c 
c 

c procedure 
c — — 


a common  CRTS  SCENE  PARAMETERS 
a COMMON  AOJUSTMENT/REOISTRATION  parameters 

a define  coordinate  transformations 
a common  output  window  packets 
a define  structure  of  window  packets 


a FPO  LINE  OF  ORIOIN 
« PPO  column  of  ORIOIN 


Cl  o o o 


N 
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e 

c 

CALL  TAACC 

c 

c 

C CHCeiC  SPACtNO 

e 

IPMHSAOMHtULIN.USPIOOl  .NC.OI  .AND. 

A fnSAOUU(UtAM.USPIOO) .NC.On  00  ro  iso 

CALL  NOUAPNI  '8PACIN0  NOT  oePINCO*! 

00  ro  900 
c 
c 

c coHPure  lincar  cocFrictCNTs  in  fopharo  PRiNrcR^PLorrcR  cquations 

C PPOL IN-CORPPO( I l*CORLlN»COAPPO(ei •CORSAN*CORPPO i 3 l 

C PPOCOL>CORPPO(<*l«CORL lN»CORPPO(S>  «C0RSAN»C0RPP0(6I 

c 

ISO  CORPPOI I > >100. /FLOATCHSAOMHCHLI N.USPIOOl I 
CORPPO(SI>0. 

CORPPOIHI >0 . 

CORPPO I S > • I 00 . / FL  OA  r ( nSAOWH ( HSAH . HSP I 0 0 I I 


CALIORATC  constant  TERNS  IN  FORUARO  PR  I NTER/ PL OT TER  EQUATIONS 

CORPPOfSI -300.  a > *300  WITHIN  SCENE 

CORPPOISi >300.  a > *300  WITHIN  SCENE 

C 
C 

C CONPUTE  PPO  COORDINATES  OF  ORIGIN  BASED  ON  SPACING 
C 

PPDLO>PPDL<»C  (FLOAT  ( NS  AOWWi  UL  IN.WORIOI  I . FL  OA  T ( NSAOWH  ( WSAN  . WOR I 0 1 I I 
PP0C0«PP0C>*C(FL0AT(NSA0HW(HL IN.WORIOI I .PLOATINSAOWWIWSAN.WORIOI > ) 

e 

c 

C REFINE  constant  TERNS  IN  FORWARD  PRINTER/PLOTTER  EQUATIONS 

c 

CORPPO(3I>CORPPOI3I  -(PPOLO*AI  N'.  IPPOLO)  > 

CORPPOC 61 •CORPPOISi -IPPOCD'AINTCPPOCOI > 

C 

C 

C CONPUTE  INVERSE  PRI NTER/PL OT TER  COEFFICIENTS 
C CORL IN>PPOCOR( I i *PPCL IN*PPOCORiei -PPOCOL *PPOCOR ( 3> 

C C0RSAN>PP0C0R(«*  I *PPOL  I N*PPOCOR(  S I *PPOCOL  *PP0C0R(6I 

c 

CALL  RE VERT  1 CORPPO. PPOCOR I 
C 

c 

C AOO  SHALL  eiAS  VALUE  TO  CONSTANT  TERNS  IN  CORPPO  ANO  PPOCOR  FOR  CORRECTION 

c 

CORPPO! 31 -CORPPOl 31 *0.0001 
C0RPP0(6l>C0RPP0l6i *0.0001 
C 

PPOCOR! 3> -PPOCOR ( 3i *0.0001 
PPOCOR! Si -PPOCOR! 61 *0.0001 
C 
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c 

e RCrURN  TO  CALLING  ROUT INC 

e 

900  RCruRN 
CNO 


( 
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oouoouoouoooououoooooooooo  ouuuuuuuuuu  uuuuu 


OAN  PACKAOC  AMCNOU  N 
UTILITY  ROUTINCt 


CALtVN 

001 


ouoooutinc  caloyn  a calioratc  oyhool  taolc  tor  rrintino 


NIOrORY 


C N tCNLOOtCR  LCe 

C H OCHLOSSCR  LCC 


tt/tt/7S  ORIOINAL  COOT 

It/OO/YO  RCRLACe  KOYOIT  HITH  NCltYH 


HCTNOO 


CHANOe  ALL  UNOeriNCO  OYHOOLS  TO  *7*  ANO  OCrCRHlNC  HAXlHUn  lcnoth  in 
CNARACTCRt  or  SYMBOLS. 


HACNINe-OCRCNOCNr  cooc 


NONT. 


cxrcRNAL  RcrcRCNces 


Novcsr  a novc  character  string 

INTCOCR  LENCST  a LCNOTH  Or  CHARACTER  STRINO 


EXCERTIONS 


NONE. 


OLOBAL  OeCLARATIONS 


INCLUOE  KOHSYM.LIST  a COHNON  SYMBOL  TABLE 


LOCAL  OECLARATIONS 


INTEOER  NSYM  a SYMBOL  NUMBER 

INTEOER  KSY  a CURRENT  SYMBOL  <<*  CHARS!  . LEFT. ALIGNED  A RAOOEO  U/  ZERO 
C 
C 

C RROCEOURC 

C 

c 

CALL  trace 
C 

e 

NClSYHaO 


N'CB 


OAN  PACKAOC  APKNOIX  N 

uruiTv  RouriNct 


CALtVN 

OOt 


DO  seo  NtVN«I.KSVntZ 
KtY«0 

CALL  NOVetriKtV.m  KtYHCNtYni.ll 

irCKtY.CQ.OI  CALL  HOVCtT (KSYHtNfYHI , M I . 

• •?  '.C 

NeitYn«nAXOlNCISYH.LCNC«rfKSYHINSVHI.|i»l 
SCO  CONTINUC 

e 

e 

AC TURN 
CNO 


*1 

•♦I . 

*1 

t 


R-»7 


OAN  MCKAOC  AMCNOI 
UTILirv  MOUriNCS 


CALHIN 

001 


OUiOOUriNC  CALMINC  0 CALIOOATC  CNVCLOOCS  Of  OOTPOT  UINOOM  OACKCro 

I ^xoAMOt  ■ 000  UNirt  ro  cxoano  ooo  minoou  oy  at  all  cooco 


NioroAv 


C H OCHLOtSCR  LCe 

C N OCNLOOSCR  LCe 


10/00/71  OAIOINAL  COOC 

10/00/70  UOORAOC  OOCUNCNr*r ION 


nctnoo 


coHOurc  ORiNrco/OLorrcR  ooioin.  conoutc  outout  minoou  cnvclooc.  oclativc 
ro  thc  ooioin.  in  rue  cooroinatc  syotcn  in  uhich  the  minoou  vcoriccs 
ARC  oeriNCO.  convert  envelooe  to  aosolute  cooroi nates  or  alocbraicallt 

AOOINO  the  ORIOIN.  COnOUTE  POO  ENVELOPE  AROUNO  THIS  ENVELOPE  JUST 
OERIVCO  rOOH  the  vertices,  compute  The  OEOORAPHIC.  UTn.  ano  scanner 
ENVELOPES  AROUNO  THE  PPO  ENVELOPE.  IP  THE  MINOOU  VERTICES  MERE  NOT 
IN  SCANNER  COOROINATES.  TRANSPORH  THEN  TO  SCANNER  COOROINATES. 


NACHInC’OEPENOENT  cooe 


NONE. 


EXTERNAL  REFERENCES 


NOUARN 

INVUIN 

ENVUIN 

INVORI 

ENVORt 

PH  A 

OHP 

AHP 

AHO 

UHO 

OHU 

VERAHO 

VEROHU 

VERAHP 

ONPWIN 


• PRINT/COUNT/LOO  'MARNlNO*  OIAONOSTIC  NESSAOE 

• COMPUTE  INTEOER  envelope  AROUNO  INTEOER  VERTICES 
S compute  real  envelope  AROUNO  real  vertices 

• ALOESRAICALLY  AOO  INTEOER  ORIOIN  TO  INTEGER  ENVELOPE 

• ALOESRAICALLY  AOO  REAL  ORIOIN  TO  REAL  ENVELOPE 

• PRINT/PLOr  DEVICE  COORDINATES  FOR  AOJUSTEO  MSS  COORDINATES 

• OEOORAPHIC  COOROINATES  FOR  PRINT/PLOT  DEVICE  COORDINATES 

• ADJUSTED  MSS  COORDINATES  FOR  PRINT/PLOT  DEVICE  COORDINATES 

• adjusted  mss  coordinates  for  OEOORAPHIC  COORDINATES 

• UTN  coordinates  for  OEOORAPHIC  coordinates 

• OEOORAPHIC  coordinates  FOR  UTM  COORDINATES 

• adjusted  mss  vertices  for  OEOORAPHIC  VERTICES 
a OEOORAPHIC  VERTICES  FOR  UTH  VERTICES 

a AOJUSTEO  MSS  VERTICES  FOR  PRINT/PLOT  DEVICE  VERTICES 
a DUMP  MINOOU  packets 


CXCEPTIONS 


C I.  IF  MEITNER  CALSPA  NOR  CALSCA  HAVE  SCCN  CALLED  PREVIOUSLY.  THEN  THE 
C RESULTS  Of  CALUIN  ARE  UNDEFINED. 


N'fS 


o u o o o 


OAN  MCKAOC  AMCNOIX  N 

unuTY  RouriNCt 


CALHIN 

OOt 


t.  ir  NO  COONOINAYC  OYtYCN  It  KriNCO  YON  YNC  ORIOIN  OR  YOR  TNC  MlNOOU 
VCRriCCS.  ‘MARNINO*  01 Af NOtYlCItl  ARC  OCNCRATCO. 

X.  lY  TNC  Ml  ROOM  VCRriCCt  ARC  IN  UtH  COOROINAYCt  OUT  NO  UTN  ZONC  OR 
eCNYRAL  HCRIOIAN  It  OCYINCO.  A ’HARNINO*  OlAONOtTIC  It  OCNCRAYCO. 


OLOtAk  OCCLARATIONt 


INCLUOC  KONXOr.Utr 
INCLUOC  KCNYir.Lltr 
INCLUOC  HiNOCY.LItr 
INCLUOC  KONIHH.LlSt 
INCLUOC  KONOWU.l.ttr 
INCLUOC  NAXINT.Lltr 


• COHNON  YROORAH  CXCCUYION  tMITCNCt.  COUNTCRt 
A CONNON  AOjUtTNCNr/ACOItTRAr ION  YARAHCTCRt 
a oCYtNC  trxucruRC  oy  hinooh  YACxcrt 

a CONNON  INYur  hinooh  YACKCrt 

a CONNON  oufYur  hinooh  YACKcrt 
a OCYINC  NAXInuN  iNrCOCN 


LOCAL  OCCLANATIONt 


LOGICAL  CALONU 
INTCOCR  NOtAVC 
INTCOCR  NOOl.NOOa 
RCAL  YYOL IN.YYOCOL 
RCAL  AOJLIN.AOJSAN 


a rxuc  lY  CALLiNO  ohu.  yalsc  iy  not 

a rCNYORANV  tAVC  LOCATION  YON  VALUC  OY  NOTOTL  ON  CNTRY 
a NOOC  SUOaCNIYTS  yon  CNVCLOYCt 
a YYO  LInC.  COLUNN  oy  CNVCLOYC  CORNCNt 

a Aouusrco  linc.  sanylc  oy  cnvcloyc  corncns 


YNOCCOUNC 


CALL  TRACC 

c 

c 

C NARK  CNVCLOYC  At  UNOCYINCO 
C 

NOtAVC*NOrOTL 

KtrOUHfHNINt>*NUL* 

KtrOMHlHNAXi«*NUL* 

c 

c 

C CNCCK  ORIOIN  A TRANSYORN  INTO  YYO  COOROINATCI 
C 

lYiKtrouNiHORioi  .CO.  *aanaa*>  xtvcHufHORio>«*NuL  * a tchy  yatcn 

lYfKtrOMHfHORIOl .NC. ‘NUL* I 00  TO  100 
CALL  HOUARNf  *N0  ORIOIN'l 
00  TO  too 

100  CALL  YNACYYOONHIUL IN.HORIOI .YYOOUHf HCOL .UORIOi . 

• YLOAriNtAOHUfULIN.HORIOI I . YLOA T ( NtAOUHt WtAH .HORI 0 i • * 

c 

c 

C CAtC  ON  U I NOON  rvYC 
C 

iyinoyayl.nc.oi  00  ro  too 

IY(KtYOHM<HVCRl.CO.*tCA*l  00  TO  100 


N«Ct 


o o o o n n n n 


OAN  MCKAOC  AmmiX  N 

UrUITT  ROUriNCt 


CALMIN 

001 


trtfROTOMUfuvcm.co.  *oco*>.or. 

0 (KOYOMMfHVfRI.CO.  *NIN*il  00  TO  i»00 

trMROyOMNfMVmi.CQ.  *RN  ‘i.OO. 

0 fKOYOMMtMvcNi.CQ.*ncr*ii  00  ro  ooo 

irUOYOHMIHVCRI.CO.’OOIM  00  YO  YOO 
CAU  NOHAONt  ‘NO  HI  NOON’ I 
00  YO  000 

e 

e 

e OCANNCR  UINC-LCNOYN  AOJUOYCOt  COOOOINAYCS 

e 

100  CALL  INVMIKINOAOUUI 
CAIL  INVORI CNSAOHUi 
CALL  CNVAHA 
CALL  CNVAHA 
CALL  CNVOHO 
CALL  CNVU<»A 
00  YO  000 


OCOONAPNIC  COOROINATCO 

•»00  CALL  CNVHiNCOCOOUUi 
CALL  CNVORI lOCOOUHl 
CALL  CNVPHO 
CALL  CNVA*»P 
CALL  CNVUHP 
CALL  VCAA^O 
00  YO  000 


UYN  coonoinatcs 

000  tr((urNcno.NC.O).ANO.iuYHCNO.LC.ioo.t*  oo  yo  oso 

CALL  NOHAANI  'NO  UYK  YONC ‘ I 
00  YO  000 

030  CALL  CNVUlNtUTHOUHl 
CALL  CNVONI IUYNOHUI 

Call  cnvp<*u 

CALL  CNVA«P 
CALL  CNVOHP 
CALL  VCAO*»U 
CALL  VCRA<*0 
00  YO  000 
C 
C 

C MINY/PLOY  OCVICC  COOOOINArcO 

c 

YOO  CALL  CNVHINIPPOOHHI 
CALL  CNVONI (PPOOUU I 
CALL  CNVPVP 
CALL  CNVAVP 
CALL  CNVO*»P 
CALL  CNVUVP 
CALL  VCNANP 
C 


N*IO 


nnnnnnn  r»  r»  n r>  nnnn  Ann 


OAN  PACKAOff  APPfNOiX  N 
WriLITY  MOUriNCt 


CALMtN 

•M 


OUH^  MtNOOU  PACKCrt  (ONLY  tf  TAACtNOI 


too  trtHOUNP.CQ.Ot  00  TO  000 

CAAL  ON^MtNI  ’NOAIUH* 
CALL  ONOUINI  ‘NOAOMH* 
CALL  ONPMtNt  'OCOOMU* 
CAUL  ONPWiNI  ’urnouH* 
CALL  OHMiNt  *!*rOOUH* 


.NSAlimt 

.NtAOHUt 

.OCOOMUl 

.urnOMMi 

.^^OOMHI 


If  NO  oiAONOtrteo.  haok  CNvriooc  as  ocriNCO 

090  trCNOrOTL.NC.NOtAVCt  00  TO  090 
K9Y0MMIHHINI**MI  * 
K9Y0MMIUNAXi«*Mt  * 


noamal  ncturn 
990  AC turn 


INTCANAL 

OUOAOUTtNC  CNVAHA  • CONAUTC  AAOOHU  CNVCLCAC  AAOUNO  NSAOUM  CNVCLOAS 
C 

AAOOUMlULlN.UNINI»*ti*39 
AAOOUU I WL  t N . WHAX I • • 9C • 39 
AA00MU«M9AH.HHtNI**9C»3S 
AA00MU(U9An.UHAXI**9C»39 
C 

00  300  NO0t«UHIN.UMAX 

00  930  NOOt*UHlN.HN*X 

CALL  A«ACAAOLIN.AAOCOL. 

• ri.0ATIN9A0WU<UL  iN.NOOl  < > . YL  OA  T I Hf  AOUUI  U$AH . N000>  > I 

AAOOUMIUL IN.UMINI ■AMI  Ml  I AAOOUUI ML  t N . MH I Ml  .YAOL INI 
AAOOUUIML IN.UMAXI •AHAXI I APQOUUI ML  IN. UMAX  I . AAOL INI 
AAOOWWI WtAH.UHiNI •ANiNt I AAOOWN I U«AN . WN I N< . AAOCOL I 
AAOOUUlWSAN.UHAXt •ANAXt I AAOOMUl U9AN . NNAX I .AAOCOL I 
930  CONTtNUC 

300  CONriNUC 
00  TO  010 

e 

c 

c 

CNTAV  CMVA«0  0 COHAUTC  AAOOUU  CNVCLOAC  AAOUNO  OCOOUU  CNVCLOAC 
CAL0*»U*.rAL9C. 

00  TO  YOO 

c 

e 

CNTAY  CNVAYU  t COHAUTC  AAOOUM  CNVCLOAC  AAOUNO  UTNOUU  CNVCLOAC 
CAAOYU^.TAUC. 


N«3I 


O O U U O o o o 


OAN  PACKAOC  APPCNOIX  N 
UTIL  I TV  KOUTINCS 


CALUIN 

OOS 


•»00  PP00MU(ULlN.HnlNI«»9e»3S 
PPOOMM ( UL t N . un AX  I > - 9C * 39 
PPOOUU i US AH . MH  t N I • * 9C  * 39 
PPOOUU IMSAH.UHAXt*-9e*39 

00  too  NOOt«unlN.UHAX 

00  tSO  NOOe«HHIN.UHAX 

IP(CALO*»U)  CALL  0«»U( 

I OeOOHUCULAr.NOOl l .OCOOUU(ULON.N009I . 

• UTHOUUCUCA.NOOI t .UTNOUUtUNO.NOOai .UTNCNO* 

CALL  AHOCAOJLIN. AOJSAH. 

> oeoouufuLAT.Nooi I .oeoouucHLON.NOoai I 

AOJLIN«ANtNt ( AOJL IN.rLOATfHSAIUUCUL t N.UHAXI *20011 
AOJL IN-AHAXI (AOJL IN.PLOAT(HSAIUU(ULIN.UHtNI -2001 t 
AOJSAH-ANINt  CAOJSAH.rLOArfHSAtUUCUSAM.unAXI  *200)1 
AOJSAH-AHAXl ( A0JSAN.FL0AT(MSA1 UU( USAM. UMt N)  -200 > > 
CALL  P*»A(  PPOL  I N.  PPOCOL  . AOJL  I N . AOJSAH  ) 

PPOOUHCHL iN.UnlNI ■AHINI (PPOOUU) UL IN. UHI N> .PPOL INI 
PPOOUU (UL IN. UMAX) «AHAXI ( PPOOUU! UL I N. UHAXI .PPOL INI 
PPOOUU! USAM.UniNI ■AHINI ( PPOOUU ( US AN . UM I N I .PPOCOL I 
PPOOHUI USAN. UNAX  I -ANAX I ( PPOOUU! USAN. UNAX  1 . PPOCOL I 
•*30  CONTI  Nue 

H80  continue 


a UITHIN  200 
a LINES  ANO 
a SANPLES 
a or  SCENE 


EXPANO  PRINT/PLOT  ENVELOPE  ON  ALL  SIDES 

PPOOUUlUL IN.UHIN) «PPOOUH(UL IN.UNINI -PXPANO 
PPOOUU(USAN.UNIN) «PPOOUU!USAN.UNI N) -PXPANO 
PPOOUUlUL IN. UNAX) -PPOOUNIUL IN. UNAX  I *PXPANO 
PPOOUUIUSAH.UNAXI -PPOOUUIUSAH. UHAXI *PXPANO 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


ENTRY  ENVP<*P  a CONPUTE  PPOOUU  ENVELOPE  AROUND  PPOOUU  ENVELOPE 

INSURE  print/plot  COORDINATES  ARE  ALUAVS  POSITIVE 

810  PPOOUUtULlN.UNlN)«ANAXI ( PPOOUU! UL I N. UN  I N I ,2.  I 
PPOOUU lUCOL .UHIN) •AHAXt ! PPOOUU ! UCOL . UN  I N I I 

RETURN 


INTERNAL 

SUBROUTINi.  ENVAHP  a confute  HSAOUU  envelope  around  PPOOUU  ENVELOPE 

NSAOMMIUL IN.UNINI -*NAX I NT 
HSAOUU  I UL  I N . U.N  AX  I • -HAX I N T 


o o o o o o o 


OAN  PACKAOC  APPCNOIX  N 

urtLiTY  ffouriNCs 


CALHIN 

006 


NO AOMU f US AH . HH I N I > » N A X t N r 
ns AOUU  C USAH . UHAX I • -HAX 1 NT 
C 

00  000  NOOt«UntN.HHAX 

00  too  NOOO«uniN.UHAX 

CALL  A>»P(AOJLIN.AOJSAn. 

• PPOOHUtULtN.NOOn .PPOOHUCUCOL.NOOO) t 

HSAOUHIULIN.HHlH>«HtNO(HSAOHUIULIN.unlNt . iriXtAOJLtNI ) 
nSAOUU ( UL I N . UHAX I -HAXO ( NSAOHWI ML  1 N . UNAX  I . I P I X I AO JL 1 N i I 
NSAOUU(USAN.UNINI«HINOCNSAOUH(USAN.UNlNI . I P I X f AO JSANI I 
NSAOUU(USAH.UHAXI«NAXO(HSAOHU(HSAN.UNAXI . IPIXCAOJSAHI I 

too  continue 

000  CONTINUE 

c 

RETURN 


INTERNAL 

SUBROUTINE  ENVOtP  A COHPUTE  OEOOUU  ENVELOPE  AROUND  PPOOUH  ENVELOPE 
C 

OEOOUHIHLAT.HNINI«*9E*35 
OEOOMWIULAT.unAXI--9E*39 
OEOOHUIULON. HNIN) -*9E»33 
OEOOMUtUL 0N.HNAX>--9E*35 
C 

00  000  NOOl-UniN.UNAX 

00  too  NOOO«UnlN.UNAX 

CALL  OHPIOEOLAT.GEOLON. 

• PPOOUWf ULlN.NOOt  > .PPDOUWf  UCOL.NOOOl > 

OEOOUUIULAT.HNINI «ANINI (OEOOUH(ULAT.MHIN) .CEOLAT) 

OEOOUU ( UL  A T . UNAX  t - ANAX I ( OE  OOUU 1 UL  A T . UHAX ) . OE  OL  AT  I 
OEOOUU(ULON.UNIN) -AHINI (GEOOUU(ULON.UHtN) .OEOLON) 
OEOOUUCULON.UNAXI >ANAXt (GEOOUUCULON.UHAX) .OEOLON) 

100  continue 
000  continue 
c 

RETURN 

c 

c 

c 

c 

c 

c 

c internal 

subroutine  envuhp  a conpute  utnquu  envelope  around  ppoouu  envelope 
c 

UTNOUUIUEA.UNINI ■*9E»3S 
UTN0UU(UEA.UNAXI«*9E*3S 
UTHOUU(UNO.UNINI«»9E*3S 
UTN0UUCUN0.UNAXI>-9E*3S 

c 

00  000  NOOt-UNiN.UNAX 


N-33 


OAN  9ACKA0C  AMCNOIX  N 

uruirv  KouriNCs 


CALMIN 

007 


c 

c 


00  too  NOOt«MHlN.HNAX 

CALL  0«»P(0C0LAr.0eOL0N. 

• PPOOUUCULIN.NOOl I .PPOOUUIUCOL .NOOOl I 

CALL  U*»0(UrNC.UTNN.  OCOLAT  .OCOLON.urnCHOI 
UrHOMU(UCA.UNINI>ANlNt I UTNOUUI MCA . WHI Nl .UTNCt 
UTNOHHCMCA.MHAXtaAnAXt  f UTHOHUI MCA . HHAX t . UTHC I 
UTNOMMIHNO.HHINI-AHINt lUTHOUMC MNO. MHI N> .UTHNI 
UrnOMH(MNO.MHAXI«AnAXI CUrnOMMtHNO.UNAXI .urnNI 
too  CONTINUe 
000  eONTINUC 
RCTURN 


CNO 


N«SH 


OAN  PACKAOC  APKNOIX  N 
UTILITY  ROUriNCS 


CLOtCl 

OOt 


SUMOUTINC  closes  • CLOSE  INPUT  NSS/RSV  TILE  ASSIONEO  TO  UNIT  3 

C - 

C 

C 

C HISTORY 
C 

c 

C NARY  TON*KINS  LEC  08/00/79 

C J e CRISP  LEC  OS/OS/79 

C J C CRISP  LEC  09/29/79 

C 

C NETHOO 

C 

C 

C CHECK  LU3SEQM).  IF  SIP  CALL  CL3SIP.  ELSE  RETURN 


RE QUIRE RENTS 
ALOORITHN  OESION 
ALOORITHH  COO I NO 


C HACHINE'OEPENOENT  code 

c 

c 

C NONE . 

C 

C 

C EXTERNAL  REFERENCES 

C 

C 

C CL3BIP  a CLOSE  ANO  VERIFY  EOF  ON  ERTS  TAPE 

C 

C 

C 0L08AL  DECLARATIONS 

C 

C 


INCLUDE  KONXOT.L 1ST 
INCLUDE  K0NLU3.LIST 
C 
C 

C LOCAL  declarations 

C 

C 

C NONE 

C 

c 

C PROCEDURE 

C 

C 


a connoN  proorah  execution  switches. 
a PACKET/POINTERS  FOR  UNIT  3 


C 

c 

c 

c 

c 


CALL  trace 


IF  ILUSSEQI II .EQ. ’SIP’ ) CALL  CL3SIP 


900  RETURN 
END 


COUNTERS 


N-39 


rtooooonononoonononnoonoooononnnon 


0AM  MACKAOC  AMPCNOtX  N 

UTIL  try  MouriNCs 


CLose« 

001 


sutoouriNC  CLOsCHf  a HMire  cor  on  unit  h coop  conhano  rccall  pilci 

I NUNCflOl  a CARO  INAOe  NUNSeO  APTCR  UNtCH  TO  HRITC  CNO-OP-PILC 


C H OCHLOSSCR  LCC  03/17/70  ORIOtNAL  COOC 

e H OCHLOSSCR  LCC  lt/00/70  CNCCK  NUNCRO  RANOC 


NCTMOO 


HRITC  UNIVAC  CXCC-8  SOP  COP  CONTROL  UO  TO  SCCTOR  • NUMCRO»t. 
NACHINC-OCPCNOCNT  COOC 


VCRRRYt I 


CXTCRNAL  RCPCRCNCCS 


CRtOH  a INITIATC  I/O  ANO  HAIT  POR  CONPLCTION 


CXCCPTtCNS 


I.  IP  NUNCRO  < C.  THC  INACe  IS  NOT  URITTCN  TO  THC  RCCALL  PILE. 


GLOBAL  declarations 


INCLUDE  KONIO.LIST  a CONNON  I/O  PUNCTIONS 

c 

c 

C LOCAL  declarations 

C 

c 

INTCOCR  LU>»PKT(8I  a I/O  PACKET 

DATA  (LUHPKTf I I . I-l .SI  /'RECALL  ’/  a PILE  NAHC 

INTCOCR  KHCOP  /0777777777777/  a SOP  CONTROL  HO:  CNO-OP-PILC 
C 
C 

C PROCEDURE 

C 

C 

CALL  trace 
C 

c 

C CHECK  NUNCRO 
C 

IPfNUNCR0.LT.2l  00  TO  900 


N>36 


noon 


OAN  PACKAOe  APKNOU  N 
UTILITY  ROUTINCS 


CLOSCH 

OOC 


c 

c 

C INiriALtZe  RACKCT  A URITC  SOr  CNO*Or<FtLC  control  horo 

c 

IOStZC(LU*»RKn«l 
lOAOORtLUHRKTI •LOCIKUCOrt 
lOtCCTCLUHPKTloNUHCRO*! 
tOrUNCILUi»PKT)«*aC’  A URITC 
CALL  eRtOUCLU<»RKT) 


COHNON  RCTURN 

900  RCTURN 
CNO 


N-S7 


uuuuuuuuououuouuuuuouuuuuuouououuuuuuu  ououuuuuuuu 


OAN  PACKAOC  AMCNOIX  N 

umiry  RouTiNCs 


CLOsra 

oot 


SUBROUriNC  CLOtl*R  • CL08C  ALTCRNATC  RRINT  PUCIS> 


history 


C M SCNL0S8CR  LCC  07/08/73  ORIOlNAL  COOC 

HARY  rOHPKINS  LEC  OI/OS/80  USE  NEW  CHARACTER  ROUTINES 


HETHOO 


OETERHINE  ip  alternate  print  files  exist,  ip  pile  exist  FOR: 
FILE  TO  tape 

BRKPT  AND  ISSUE  NOTE  ACKNOULEOO I NO  BRKPT  TO  TAPE. 

FILE  TO  DISK 

REQUEST  EXEC  TO  PRINT  FILES  ONTO  DISK.  RESTORE 
installation  OEFAULTS.  drain  suffer,  write  EOF. 

/.NO  QUEUE  FOR  PRINTING. 


nachine-oepenoent  code 


USES  EXEC-e  CONTROL  STATEMENTS 
EXTERNAL  REFERENCES 


ERFITn  • 
NONOTE  a 
ERCSF  a 
PRTINC  a 
PRTNRO  a 
csthin  a 
HovcsT  a 
Integer  ice 


RETRIEVE  facilities  ASSIONNENT  INFORMATION 
PRINT/LOO/COUNT  ’NOTE*  MESSAGES 
SUBMIT  EXEC-B  CONTROL  STATEMENT  FUNCTION 
SET  PRINT  LINES  PER  INCH 

SET  print  margins  a lines 
CHARACTER  STRING  FOR  INTEOER 

MOVE  character  string 

a INTEOER  CHAR  equivalent  (OF  FIRST  CHR  IN  STRINOI 


EXCEPTIONS 


NONE. 


global  declarations 


Include  komxqt.list  a common  prooram  execution  switches,  counters 

INCLUDE  KOMALT.LIST  0 COMMON  ALTERNATE  PRINT  FILE  COUNTERS.  POINTERS 

C 

c LOCAL  declarations 
C 


N>3B 


oouoou  ouuo 


OAN  ^ACKAOC  AMCNOIX  N 
UriLlTY  NOUriNCt 


CLotm 

oot 


c 

INYCOCR  lOriLCdSt  A IS  MONO  NKT.  UtCO  TO  OtTAIN  UNOATC  fUC  INfO. 
DATA  l|Oril.eCNI.N«t.t)/MO*.*  */  • riLC  NANC 

e 

e 


INTCOCN 

C OMAN  0O0000000imimtl«a>8OOCea8333333333Si»4HHMi»ii**<*i» 

C l<3HS67890l83<*S67890l83<»S67000l83<*Se7S90t83HS6709 

•»  JBNKPT  C<»l/ *a8NKNT  IN  . */  • MNITC  CNO*Or>PUe 

•»  jrRce8cvi/*apNce  in.  . */  • prcc  a cataloo 

<*  jpRCCicm/’arRec.i  in.  . */  a prcc  i inhibit  catalooino 

8 JSYNI91  /’aSYN  •OANPRT'N. .1 .HNCHON  . ’/  a QUCUC  TO  PRINT  I TINCS 


PROCeOURC 


CALL  TRACei ‘CLOSPR’ I 


SPECIAL  HANOLINO  FOR  ALTERNATE  PRINT  PILE  ON  TAPE 

IPIHALTH.LE.Ot  00  TO  900  a NC  ALTERNATE  PRINT  PILES 

CALL  ERPITHI lOPILEI 

IP(ICE(IOPILE(7t).LE.O)  00  TO  900  a NO  ALT  PRT  FILES 
IP( ICEI I0PILEI7) I ,0T . tSI  00  TO  300  a NOT  TAPE 
CALL  ERCSPINAO. ’aSRKPT  10  . *> 

CALL  HONOTCl  'PRINTER  OUTPUT  ON  TAPE:') 

URITEI6.I8SI  lOriLEliai.  ( I OP  I LE ( Nl . N«3 . I 1 1 
I8S  PORHATiex. 'REEL  ’ . A6 . 6X . 1 1 AS  I 
00  TO  900 
C 
C 

C REQUEST  EXEC  TO  PRINT  ALT  PRINT  PILES  ON  DISK 
C 

300  NHAX*NALTHo| 

CALL  HOVCSTr JSYH.88.8.  NNEHON.1.6.*  *1 
00  800  N • O.NHAX 
NUNI T*IO»N 

tPINOPATL.NE.OI  HRITEINUNIT.SOSI 
30S  PORHATI'O***  Fatal  ERROR  *•*  > 

URITEINUNIT.3191  N 
319  PORHATI • I •/ '0'/ '0* / *0*/ 

I J9l'«««’l/I9t**««‘l/ 

g 9('«  • • ‘l.'ENO  '.II.*  *.  

3 191'  • • ••I/I9I*  * • ••l/'O’l 

C 

C 

c special  print  control  functions  to  restore  installation  oepaults 
c 

CALL  PRTINCINUNI T.LSINCH.KONPRTI 
IPILPAOE.NE.LSPAOSt  CALL  PRTHROINUNI T.LSPAOE.O.Ot 
C 
C 

C ORA IN  BUPPCR.  MRITE  EOF.  QUEUE  FOR  PR I NT! NO 


N>39 


OAN  ^ACKAOC  AI>PCNOI 
UrtLITY  MOUrtNCt 


C 


c 

c 

c 

c 

c 

c 


800 

880 


CALL  C8TIMNI J8MKf>r.  17.1 . 
CALL  CRC8riNA0. J8MKPri 
CALL  CSr<»lN( jrACCS.  17.1  . 
CALL  CMccriNAo. jmecat 
irtNCO^r.LT. 1 1 00  ro  800 
CALL  CSTHINC JSYN.I7. I . 
CALL  COTHINI JSYH.OO. I . 
CALL  CNCSrtNAO. JSYHI 
00  TO  800 
HAire(O.S80l  N 
roNHATi’  «««useR  flusr  osyh 


600  continuc 

00  TO  900 


N.n 

N.ll 

N.  I I 

NCOPY.ti 


Oft  aoeLcre  pilc  •OAnftftr 


CNfftr  OLCTPft  a ocLcre  ALTCRNarc  piunt  rttes 


c - - 

c 

c 

CALL  TftACec ’OLCrPR* I 
CALL  CRPI TH( IOPILCI 

irc  icci  toFiLC(7M  .LC.oi  00  ro  900  a no  alt  prt  files 

NNAX»NALTN-I 
00  700  N>O.NNAX 

CALL  CSr>*lNIJBRKPT.  17.  I . N.ll 
CALL  ERCSFINAO. J8RKPTI 
CALL  C8T«tN( JFRCei . 17. 1 . N.ll 
CALL  CRCSF ( NAO . JFRCe I I 

700  continue 

C 

C 

C NORHAL  RETURN 
C 

900  RETURN 
C 

END 


.11 


CL08M 

008 


« 


• . • I 


N-HO 


ononortnnooonoooooooonnnnnoooonononoooooo 


CLtNOO 
OOt 

tUIROUriNr  CLSMOOI  • MINT  lO/ClAtSirtCATION  HCAOINO 
I NUNiri  • LOOICAL  UNIT  NUNtCR  TO  MRITC  ON 


OAN  RACKAOC  ARKNOI 
urutTY  RouriNCt 


NitroRT 

c 

N 

SCNLOSSCR 

LCC 

07/Ot/T3 

c 

N 

SCNLOSSCR 

LCC 

06/CO/7t 

c 

N 

SCNLOSSCR 

LCC 

OI/CO/70 

J 

C 

CRISP 

LCC 

01 /OH/ao 

J 

c 

CRISP 

LCNSCO 

05/10/00 

ncthoo 


THIS  SUOROUriNC 


ORIGINAL  cooe 

lOCNTirr  TOLCRANCe 

lOCNTirv  OCT  rite  as  rao/ocn/cla 

URORAOe  OOCUNCNTaT ION 

lOCNTiry  • or  channcls  in  oct  rue 


T . 


PRINTS  CONNON  I O/CL ASS  I P I C A T I ON  HCAOINO  ON  NUNI 


NACHINC-OCPCNOCNT  COOC 


rORHAT  SPCCiriCATIONS  ASSUne  S CHARACTCRS  pcr  intcocr 


CXTCRNAL  RCrCRCNCCS 


NONC. 

CXCCPTIONS 

NONC. 

OLOOAL  OeCLARATIONS 

INCLUOC 

INCLUOC 

INCLUOC 

INCLUOC 

INCLUOC 

KONXQT.I 

KONNCR.I 

KONKLS.I 

UINOCr.l 

KONOCT.I 

LOCAL  OCCLARATIONS 

a CONNON  pRooRAN  execurioN  suitchcs.  countcrs 

A CONNON  CRTS  SCCNC  PARANCTCRS 
• CONNON  CLASSiriCATION  INPO 
9 OCriNC  STRUCTURC  Or  UINOOU  PACKCTS 
9 CONNON  BCTCCTION  riLC  UlNOOW  PACkCTS  AND  OATCS 


NONC. 


N*«l 


iruirv  MOuriNCt 


u N 


CLtNOO 

oot 


Moccounc 


CALL  rnACC 


irc CNUMir.NC.ti .ANO. IHOArAC.NC.On  00  TO  000  0 OATA/CNCCKOUT  NOOe 


c 

c 


c 

c 


UWirClNUNir.lSOI  NCRrt.NCROAY.NCONON.NCRrR 
too  rORHAM  *0*/ *0'/ 

I OX.’CRTO  OCCNCi  ,JS/ 

C OX.'OATCi  * . to. IX.AI. IX. 10/ 

s ox.'ouN  CLCvi  ’.It.*  oeoRces’/ 

<*  OX.’OUN  AZtnuTHi  ‘.13.’  OCOReCS’l 


MRtTClNUNIT.HSOI 

6 ( JCNHOVINI  .N*l  .<*1  . 

7 inOAOMH(ULlN.UMIN.N)  .N-l  ,•*)  . 

• (HOAOUUIULIN.UHAX.N) .N«l .HI . 

0 (HOAOUHIUSAn.UnlN.NI .N«l .HI . 

A IHIAOHMtHSAH.UHAX.NI .N*t .HI 

•*00  rORHATMX./ 

s ox.’ccr  OTRiRSi ’ . I IX. ’ 1 ’ .ex. ’t’ .ex. ’3’ .ex. *H* / 

6 ox.’OAre  CL Asoiricos * .H( t X. A6I / 

7 OX.’HINlnun  LINC:  '.H|7/ 

0 OX.’NAXIHUR  LlNC;  ’.HI7/ 

0 OX.’NINIMUN  SAnRLC;  ‘.HI7/ 

A OX.’NAXIHUR  SARPLC:  *.H|7I 


NCROCL.NCROAZ 


URirC(NUNir.H73l 

■ (NTCRALC 1 I . I>l .HI .KLOTVP.NCRCHA. 

C ICVTOL 

•*70  PORHATI 

8 ex.’RATCRiALItl  OCTtCTCO!  ’.HA8.’  I ’ . A3 . ’ . ’ . I I . ’ I ’ / 
C OX. ’rOLCRANCCi  ’.1171 

C 
C 


900  RCTURN 
CNO 


oooooooooooooooo 


OAN  ^ACKAOC  AMCNOIX  N 
UriLtrv  AOUMNCt 


CLMIP 

001 


tuittouriNC  CLsoi^  0 CLOOC  ANO  vcnirr  cor  on  CNrs  oir  tanc 


NItrONY 


J 

c 

CAISA 

LCC 

OO/CO/70 

ACOUIACNCNYS 

c 

A 

NCLNKC 

LCC 

tl/IS/70 

ALOOAI THN 

DCS ION 

c 

A 

NCLHKC 

LCC 

11/10/70 

ALOOAI THN 

cool  NO 

nctmoo 


NCAO  tanc  until  CN0*or>riLC.  ir  ncct  oh  nctunn.  clsc  acao 
OUT  LOOICAL  TaAF  NCAOCN  ACCONO.  CHCCK  LUSOm.  ir  ‘00*.  call 
•OTHOO.  call  CSTHCO.  CXTNACT  ANO  MAITC  tIAT  NunOCA  ANO 
AAOCCSfINO  OATC.  LOCaTC  ANO  ACAO  AOV  COHAUTaT I ONAL  DATA 
ACCOAO.  CHCCK  LUSOrn.  ir  ‘00‘.  CALL  OSTHOO.  call  CSTHCO. 
CXTAACT/OCCOOC  CCNTCA/NAOI A/NCaOINO  ANO  CONAUTC^ VCAirv/UAOATC 
AITCH  ANO  AOLL.  IT  HOHAAN  O 0 OA  NOUNA  <>  0.  CALL  lYTOnA. 
CLOC  ACAO  OUT  HSS  CONAUTAT  I ONAL  OaTa  ACCOAO.  chcck  Lusorn. 

io  *00'  CALL  OSTHOO.  CALL  csthcb.  cxtaact / occooc/ vcai rv/ 

UAOATC  AITCH  ANO  AOLL.  IT  NOUAAN  O 0 OA  NOUNA  O 0.  CALL 
OVTOHA. 


nachinC'OCacnocnt  cool 


NONC. 


cxtcanal  AcrcACNces 


c 

c 

c 

c 


e 

e 


OSTHOO 

CSTHCO 

OCTOOV 

ocToor 

caioh 

OYTONA 

IHKTUO 

AITAOL 

NOAATL 

NOMAAN 

NONOTC 

NOCLAH 

COSHCS 

COSHIN 


• INTCANAL  OVTC  STAINO  rOA  0*01 T OYTC  staino 
i cnanactca  staino  rOA  COCOIC  oytc  staino 

a OCT  NON'NCOATIVC  INTCOCA  rOAN  QUAO  OYTC  IN  OYTC  STAINO 
a OCT  NON'NCOATIvC  INTCOCA  fAOH  OOUOLC  OYTC  IN  OYTC  STAINO 
a iNiTurc  ANO  WAIT  roA  conalction  on  i/o 

a CKTAACT/fCALC/OUHA  OYTC  flCLOS 
a SIONCO  INTCOCA  rAON  TuOS'CONALCHCNT  oinaay 
a CSTINATC  AITCH  ANO  AOLL 
a AAINT/LOO/COUNT  TaTAL  caaoa*  ncssaocs 
a aaint/loo/count  ’uaanino*  ncssaocs 
a aaint/loo  *notc*  ncssaocs 

a CLCAA  'UAANINO*  count 

a vaaiaolC'LCnoth  staino  roA  cixco-lcnoth  staino 
a vaaiaolc*lcnoth  staino  coa  intcoca 


OOUOLC  AACCISION  COSHCS 
OOUOLC  AACCISION  COSHIN 


N-HS 


o o o o o 


OAH  MCKAOC  AmNOIX  N 

uriLirv  iiouriNCf 


eiMir 

•at 


cxecanoNt 


t.  TnC  rOlLOHINO  CONOiriONt  OCNCRATC  THC  rOLUOUiNO  CAROAt  UHUC 
vcAirviNO  cor  or  in«oc  AceoAoti 

NO  CNO  or  rue  on  cato  taac  rAtAi. 
cor  our  or  rot  in  on  r*tAL 
LOOT  room  ON  rAtAL 
■AO  riLC  rATAL 


t.  TnC  rOLLONINO  CONOiriONt  OCNCAArC  rHC  rOLLOMiNO  CAAOAt  MNILC 
ACAOINO  COHAurATIONAL  OArA  ACCOAOti 

OAO  AircM  rAON  coNrAoi.  Ncr  haan 
■AO  roll  rAON  coNrAOL  Ncr  warn 
tur  CCNTCA/NAOIA  iNCONtlSrCNr  with  AtrCH  WARN 
tiAr  ccntca/naoia  iNCONtitrcNr  mitn  roll  warn 
LOtr  rotirioN  warn 
■ AO  ACC;«AO  HAAN 
■AO  rue  HAAN 


OLOAAL  OCCL AAA r IONS 


INCLUOC  KOHXor.Litr 
INCIUOC  KONLUl.Lltr 
INCLUOC  KOHIO.Lltr 
INCIUOC  konnca.list 
INCLUOC  NULCir.LISr 


a eONNON  AAOOAAH  CXCCUTION  tUirCHCt.  COUNTCAt 
a I/O  ANO  UNNACXINO  DATA  TOR  NSS/AOV  OATa  (UNIT  3> 
a rOATNAN  NANirULATION  OF  ASSCNOLCR  I/O  PACKCTS 

a CATf  tccNC  paaanctcas 
a ocriNC  NULL  chaaactca  stnino 


LOCAL  OCCLAAAriONt 


c 

c 

c 


c 

c 


iNrcocA  Liouraion  a AurrcR  roR  looical  unit  3 

OArA  L3ourAiii/o/  a ro  clininatc  truRiout  conpuca  oiaonootic 


tACCt 

roA 

riCLOt  IN  tur  Atv  CONA  OArx  accoao 

trAAr 

LCN 

tCALC  NANC 

iNrCOCA  I0A0V(7NW 

017. 

oc. 

01  .*01.  ’ALr  CMANOC*. 

Olt. 

It. 

00. *00.  ’••CtCOIC**'. 

0S7. 

ON. 

lO.'Ot.  *CCNTCA  LAr«. 

ONI. 

ON. 

10. >00.  ’CCNTCA  LON’. 

ONt. 

ON. 

10. *00.  ‘naoia  LAr*. 

ONt. 

ON. 

lO.'Ot.  ‘NAOIA  LON*. 

otx. 

ON. 

01  .*01 . *ALr  NcrcAt*. 

0t7. 

ON. 

10. -oi.  *ONr  tee*. 

OtI. 

ON. 

10. ‘Ot.  ’NCAOINO*. 

ott. 

On. 

10. ‘Ot.  *AircN 

oot. 

ON. 

lO.'Ot.  *AOLL 

071. 

ON. 

10. -Ot.  *VAH 

077. 

-1/ 

OINCNtlON  lONttntNI 

■Acet  roA  riCLOt  in  tur  Ntt  cona  data  accord 


N>««* 


O O O VI  o 


DAN  PACKAOC  AmNOU  N 

uniifv  MouriNct 


cirai^ 

eol 


I 


C «TANr  LCN  WALC  NAKC 
DATA  IIONtttNI  .N*t.MI/ 

A 017.  90.  OI.»OI.  *Al.r  CNANOC*. 

i ess.  or.  st.oOt.  *Atr  n nilcs*. 

0 ess.  00.  00. >17.  >OOLL  0 CTN*. 

• OSS.  00.  00. -17.  *oircN  A cro>. 

A 007.  00.  00. -!7.  •TAM  • CTO*. 

A OSS.  00.  90. -17.  *001.1  fSl*. 

A 077.  00.  00. -t?.  *OirCN  lOi*. 

A OOS.  00.  00. -17.  ’YAM  lOi*. 

A IIS.  00.  00. -17.  ’IHAOC  SKCM*. 

A IIS.  08.  00. -17,  ’Vi’lOC  CNAMOC*. 

A 117.  0%.  10. -00.  *NCAN  OirCMV 
CATa  I tOnSSINI  .N»07.  I ]•»■  / 

1 101.  OH.  10. -00.  ’NCANOOLL’. 

A lOS.  OH.  10. -00.  ‘NCAN  YAH’. 

A 100.  OH.  10. -00.  ‘oircH  AArc. 

A I3S.  OH.  10. -00.  ’AOLL  AaTZ’, 

A IS7.  OH.  10. -oe.  ’YAH  AATC’. 

A IHI.  OH.  01. *01.  ’HCAN  AL7’. 

A IHS.  OH.  01. *01.  ’alt  NaTC*. 

A IHO.  OH.  to. -03.  *0HT  SCCdtl*. 

A 103.  OH.  to. -00.  ’NAOIALATI I I ) * . 

A 037.  OH.  10. -00.  ’NAOIALONf t I I ’ . 

A 001.  OH.  01. *01.  ’ALTNCrCAl I n ’ . 

A 309.-1/ 

ACAL  orOAAD  /97. 09977091/  • DC0ACC9  ACA  AAOIAN 

INTCOCA  lAAAtr  • ACCOAO  • Or  ACCOAO  tO  BCYONO  LAST  ACCOAO  ON  VOLUliC 

iNrCOCA  lA^ACC  0 9IAT  ACCOAO  NUnOCA  (AOVi 

ACAL  937CLA  • CCNTCA  LATITuOC  (A0V> 

ACAL  9HICL0  • CCNYCA  LONOiruOC  lAOVi 

ACAL  9H9NLA  • NAOIA  LATtruOC  lAOVi 

ACAL  9H9NL0  a NAOIA  LONOITuOC  (AOVI 

ACAL  OOINNY  a NCAOINO  minus  yah  (AOVI 

ACAL  VOOAir  a AirCM  (AOVI 

ACAL  VOOAOL  a AOLL  (AOVI 

ACAL  993A0L  a AOLL  IH99I 

ACAL  099AIT  a AITCH  (NSSi 

ACAL  907A0L  I AOLL  IH99> 

ACAL  909AIY  a AITCN  IHSSI 


AAOCCOUAC 


CALL  YAACC 
C 

c 

e 

100  iriNorATL.NC.oioo  ro  ooo 

triLuoscom.NC. ’oio’ioo  ro  ooo  a Nor  a oia  taac 
e 
e 

e vcAirv  CMo-or-riLC 
c 

MAircis.oisi 

( ' 


M-HS 


o o o o 


DAN  NACKAOe  APNCHOIX  N 

uriLirr  noutincs 


CLseiP 

oo« 


tt9  PORNAr(*o..  venirriNO  cor  on  crts  bip  tapcm 

IRPAST«B3*»0»I0  a SET  10  RCCOROS  PAST  LAST  RECORD 

c 

c 

C READ  IHAOE  RECORDS  ON  TAPE  UNTIL  ENO-Or-flLE 
C 

00  3S0  IRREA0-LU3R8P. IRPAST 

CALL  R3TREC(L3BUPR.8I . ITSTAT.  1 .200. 300 . 80 > 
tr( ITSTAT.EQ. * ‘ .OR.  ITSTAT.EQ. *BA0R* l 00  TO  330 
IRTENO>IRREAO 

ir(IRTEN0.EQ.83'»0l  00  TO  >»00  a EOF  AT  CORRECT  POSITION 

CALL  N0PATL(C8S*»CSt  I TSTAT.  ( I I .•»>  . • AFTER  LINE*, 
a CBSHINCIRTENO.SI . ’OISREOARO  OUTPUT) 

IF(  I TSTAT  .EQ. ’EOF’ * 00  TO  '♦00  a EOF  AT  INCORRECT  POSITION 
IF( ITSTAT.EQ. 'BAOr* >00  TO  900 
330  IFINOOI IRREA0.256I . EQ. 0 > MR  I TE ( 6 . 335) 

335  FORHATC  ..•)  a security  BLANKET 

350  CONTINUE 

CALL  nOFATLI 

t 'NO  ENO  OF  file  on  BIP  T APE • >0 1 SREOARO  ALL  OUTPUT') 

00  TO  900 

c 

c 

C READ  SI  AT  LOGICAL  TAPE  HEADER  RECORD  <•!> 

C 

•♦00  IFINCCT.NE.mOO  TO  900 
I0SIZEILU3PKT)>81 
IOAOOR(LU3PKT) -LOC (L3BUFR) 
tOWAI T(LUEPKT) >10 
I ATREC«1 

I0FUNC(LU3PKT1>'aK'  a READ  FORHARO 

CALL  ERI0H(LU3PKT ) 

1STAT>I0C00E(LU3PKT) 

IFIISTAT.NE.  ' '100  TO  B70 
C 
C 

C CONVERT  SIAT  number  ANO  PROCESSING  DATE  FROM  EBCDIC  TO  FIELOATA 
C ANO  WRITE  OUT 
C 

IFILU3BFM.EQ. 'BB'ICALL  BSTi^BB  I L 3BUFR . L3BUFR.2NI 
CALL  CST^CBIL3BUFR.L3BUFR,2'^) 

HRI  TEI  6.>^0SI  (L3BUFR(NI  .N-I  .<♦) 

HOS  FORMAT! 

S'O'.Of'******'!/  ‘ 

a '0  SIAT  number  a date  of  tape  preparation:'/ 
a 'O'. •♦AO/ 

a 'O'.oi'******'!//! 


READ  SIAT  R8V  COMPUTATIONAL  OATa  RECORD  ! *5  OR  *61 

•♦10  continue 

I ATREC-IATREC>I 
lOFUNClLUSPKTla'a'^’ 

CALL  ERIOUf LU3Pk:i 
ISTAT>IOCOOEILU3PKT) 


OAK  ^ACKAOC  AMCNOIX  N 

uTtLiTY  ilouriNes 


CL»I^ 

00« 


in  ISTAT.NC.  * *1  00  TO  870 

iFf UTRCc.or.ei  oo  ro  07o  a no  rbv  rccoro 

Nerres^NOHNi  f lONuosiLusPKTn 
tptLuserN.eo. ‘oa* > NeYres*N8Yres*9/o 
irtNBYrcs.or.oei  oo  ro  hio  a too  lono--not  rbv  RccoRO>-rRY  aoain 
c 
c 

c exTRAcr  ccNreR/NAOiR/HCAOtNO  a coNPurc/vcRiFv/uPOAre  pitch  a roll 
c 

IFILUSBPN.CQ. ’BB‘I  CALL  BSr<*BB(L3BUPR.L3BUFR.78> 

CALL  OerOBYC ITCHP.L3BUFR. f 37)1 
S37CLA«tHKTM0( irCHP.3B)«IO. ••-Oe*OeORAO 
CALL  OerOBYt ireHP.L3BUFR. I«l  I I 
S**ICLO-*tHKrHO(  I TCHP.3S)  « t 0 . • • -0*0C0RA0 
CALL  0eTQ8VUreNP.L38UPR.  OS)  1 
StSNLA'OKTUOt  I TCHP  . 39  ) • I 0 . < • -6*0C0RA0 
CALL  OCTOBY  M rCHP.L3BUrR.  09)  I 
$<*9NLO--l<*KrHO(  I rCMP.  39)  < t 0 . • • *6« OCGRAO 
CALL  0CT08YI ITCNP.LSBUFR. (61 > ) 

SSIHHY-OKTUO(  t TCNP.  39)  • I 0.  •*  -6<OeORAO 
CALL  PITROL  ( 

a S37CLA.S>»tCL0.SH9NLA.S**9NL0.S6tHnY.  ALTKM.CPI  ro.CROLO) 
iFiPiToeo.LT.-gg.)  ptroeo-cpiro 
IFfROLOCO.LT . -99. ) ROLOEO-EROLO 
tP(Aes(PiroEo-EPiTO) .or.o. IS)  call  houarn) 

> *8A0  PITCH  FROH  CONTROL  NET’) 

IFIABSIROLOEC-EROLD) .or.o. IS)  call  H0UARN( 

> ‘BAD  ROLL  FRON  CONTROL  NET’) 

c 

c 

c EXTRACT  a SCALE  A OUNP  FIELDS  FRON  RBV  CONP  DATA  RECORD 
C 

IFIHBATCH.EQ.O)  CALL  NOCLRHI  NULCST)  a IGNORE  UARNINO  IP  NOT  BATCH 

IF(  I'NOHARN.EQ.O)  .ANO.  (HOUNP.EQ.O)  ) 00  TO  SOO 
WRITE  (6.H3S) IATREC 

H3S  FORHAT(’l««*  SIAT  RECORD  ’.II. ’--RBV  COHPUTAT I ONAL  DATA  «««’) 

CALL  BYTONPI I0RBV.L3BUFR) 

CALL  OETQBYC ITEHP.L3BUFR. (6S) ) 

V6SPIT«OKTHO(  I TCNP.39)  * 10.  •«-6*0E0RA0 
CALL  0ETQBY( I TENP.L3BUFR. (69) ) 
ve9R0L>OKTU0(  ITEHP.39)  • 10.  *«  -6*0E0RA0 
SOO  CONTINUE 
C 
C 

C READ  SIAT  HSS  COHPUTATIONAL  DATA  RECORD  ( *6  OR  *7) 

C 

lATREC-lATREC*! 
lOFUNC ( LU3PKT ) • ’ ax ' 

CALL  ERIOUILUSPKTI 
ISTAT*IOCOOE(LU3PKT) 

IFf ISTAT.NE. * *)  00  TO  870  a tape  read  ERROR 

c 

c 

C EXTRACT/VERIFY/UPOATE  PITCH  A ROLL  FRON  HSS  DATA  RECORD 
C 

IFILUSBFH.EO.  *88*)  CALL  BSr<f88(L38UFR.L38UFR.39<*) 


H-H7 


OOOU  ouuo  uouo 


OAN  PACKAOe  APPCNOIX  N 
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CLSIIA 

006 


CALL  HOCLRMI  NULCSTI  A CLCAR  UARNlNOS 

CALL  ocroeri ireHP.LSSuro.cssi I 
SSSROL-tHKTUOl trCNP. t6t*a.*«>t7«oeORAO 
CALL  oeroBYc trenp.LSOurR. 1551 1 
sospiraiHKYHOi trcHP. t6>«a. ••-i7«oeoRAO 
CALL  oerooYi irenp.LseurR. (6711 
S67R0L«lHKru0( irCHP. 161*0. «*OI7*oeORAO 
CALL  oeroBYi treHP.L38urR.(8sn 
S66Pir«l«»KTH0(  ITCHP.  161*0.  **-l7*0e0RA0 
tr(PtToeo.LT.-99i  piroeo>(SSSPirts8SPiri/o. 
ir(ROLOeo.LT.>99)  ROLOeo-(S93ROL*S67ROL I/O. 
triABSiPiToeo-sssPin .or. 0.001  call  houarnc 

• *S1AT  CENTCR/NAOtR  tNCONStSTENT  UITH  PtTCH’l 
IFIAeS(ROLOEO-S53ROLI .or .0.001  CALL  MOUARNI 

• *SIAr  CENrCR/NAOtR  iNCONStSrCNr  UITh  rollm 

triHBArCH.EQ.Ol  CALL  NOCLRUI  NULCSri  1 I ONORE  UARNlNO  IF  NOr  BArCH 

IF(  (NOUARN.EQ.CI  .ANO.  (MOUHP.EQ.O)  > GO  ro  900 


DUMP  MSS  COMPUrAriONAL  OArA  RECORD 
uRirEce.sisi  urREC 

SIS  roRMArci***  siAr  record  •.ii.*--mss  coMPurArioNAL  oArA  «•«•> 
Call  OYroMPc lOMSs.LseuFRi 
00  ro  900 


CHECK  ANO  FLAG  FAPE  ERRORS 

870  trnsrAr.EQ. 'EOF*  I go  ro  sso 

Call  mouarn(C8S*»cs(  isrAr.  i n .m  i 
00  ro  900 

880  CALL  HONOrE(*NO  SlAr  FILE' I 


USER  Husr  aFREE.  aREuiNO.  OR  aLOCArE  fape 

900  REruRN 
END 
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UrtLtTY  ROUriNCS 


CROROU 

001 


tUOROUriNC  CROROHI  I CROP  OUTPUT  MINOOU  TO  PIT  INPUT  UINOOU  A PPO  HAROUAR 

t NPRLHX.  a NAXtHUN  NUHOCR  OP  PRINT  LINES  ALLOUCO 
I NPRCNXt  a NAXinUH  NUHOCR  OP  PRINT  COLUNNS  ALLOHCO 


HISTORY 


e N SCHLOSSCR  LCC 

C H SCHLOSSCR  LCC 


Oa/00/7<»  CROP  NSAOUH  (INTCOCR  SPACINO  ONLYI 
10/06/79  CROP  PPOOUHAHSAOUU  ( SCAL I NO/ SPAC I NO) 


HCTHOO 


C 

C 

C 

C 

c 

C 

c 

c 

c 

c 

C 

c 

c 

c 

c 

C 

c 

c 

c 


initialize  temporary  MSA  INPUT  ENVELOPE. 

COMPUTE  TEMPORARY  PPO  INPUT  ENVELOPE  AROUND  TEMPORARY  MSA  INPUT  ENVELOPE. 
INTERSECT  PPO  OUTPUT  ENVELOPE  MITH  TEMPORARY  PPO  INPUT  ENVELOPE. 

CROP  INTERSECTED  PPO  OUTPUT  ENVELOPE  SYMMETRICALLY  TO  PIT  NPRLMX 
AND  NPRCMX. 

COMPUTE  MSA  OUTPUT  ENVELOPE  AROUND  CROPPED  PPO  OUTPUT  ENVELOPE. 


machinc-oepenoent  code 


NONE. 


external  RCrCRENCES 


MONOTC  a PRINT/COUNT/LOG  ’note*  oiaonostic  message 
HOUARN  a PRiNT/COUNT/LOO  ’HARNINO’  DIAGNOSTIC  MESSAGE 

PHA  a print/plot  coordinates  por  adjusted  mss  coordinates 

A>*P  a ADJUSTED  MSS  coordinates  por  print/plot  coordinates 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

C 

C 

C 

C 


EXCEPTIONS 


1.  IP  CALUIN  HAS  NOT  been  called  PREVIOUSLY.  THEN  THE  RESULTS  OP  CROPOU 
ARE  UNOEPINCD. 

2.  IP  COMMON  MSA  input  envelope  is  empty.  The  temporary  MSA  input  envelope 
IS  initialized  to  nominal  pull-scene  values  to  support  debug  USE  OP 
•synthetic*  data. 

3.  IP  the  intersection  op  the  output  a input  envelopes  is  empty,  a 
•HARNINO*  oiaonostic  IS  OCNCRaTEO. 

H.  IP  The  PPO  output  envelope  (truncated  to  intcoeri  is  larger  than 

NPRLHX  LINES  X NPRCMX  COLUMNS.  THE  ENVELOPE  IS  CROPPED  SYMMETRICALLY 
AND  A •note*  oiaonostic  IS  GENERATED. 


N-«9 
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OAN  PACKAOC  AMEND  IX  N 

urairr  nouriNCS 


CRONOH 

ODD 


OlOBAL  OeCLARAriONS 


INCLUDE  KOHXOr.LISr  • COHNON  PROORAN  EXECUTION  SHITCHES.  COUNTERS 

INCLUDE  HINOEP.LIST  • DEFINE  STRUCTURE  OF  HINOOU  PACKETS 

INCLUDE  KOHIHH.LIST  A COHNON  INPUT  UINOOH  PACKETS 

include  konouu.list  a connon  output  hinoou  packets  4 

INCLUDE  NAXINT.LIST  a DEFINE  NAXIHUH  INTEOER 

C 

c 

C LOCAL  DECLARATIONS 

C - 

C 

INTEOER  MSATIM(S.3>  a TEHPORARY  MSA  INPUT  UINOOH  PACKET 

real  PPOTIUI2.3I  a TEMPORARY  PPO  INPUT  HINOOU  PACKET 

INTEOER  NOOt.NOOE  » NODE  SUBSCRIPTS  FOR  ENVELOPE 

C 
C 

C PROCEDURE 

C 

C 

C 

CALL  TRACE 
C 
C 

C initialize  temporary  MSA  INPUT  ENVELOPE: 

C (FOR  FULL-SCENE  SYNTHETIC  DATA  IF  COMMON  MSA  INPUT  ENVELOPE  IS  EMPTY. 

C UITH  CONTENTS  OF  COMMON  MSA  INPUT  ENVELOPE  OTHERUISC) 

C 

HSATIU.'HL  IH.UHiNt«I 

IF(MSAIHH(UL IN.UMIN) . NE. 01  MSAT I U ( UL I N . UM I N I -MSA  I HU (UL IN.HMINI 
HSATIU(  HL  IN.  UMAX  I •B*»00 

IF(MSAIHU(HL IN.HMAXi . NE . 0 > MSAT I U ( UL I N . UMAX  I ‘MSA  I UUI UL I N . UMAX  I 
MSATtU(USAM.UMIN'.«l 

IFIMSAI UU(HSAM.HMIN)  . NE . 0 > MSAT I U( USAM.UMIN) «MS A I HU  I USAM . UM I N > 

MSATIUruSAM.HMAXI «3300 

IF(M8Al UUCUSAM.UMAXI . NE . 0 I MSAT I H<  USAM . UMAX ) «HSA I HU( USAM . UMAX  I 
C 

c 

C COMPUTE  TEMPORARY  PPO  INPUT  ENVELOPE  AROUND  TEMPORARY  MSA  INPUT  ENVELOPE 
C 

CALL  ENVPNA 
C 
C 

C SET  PPO  OUTPUT  ENVELOPE  TO  ITS  INTERSECTION  UITh  TEMPORARY  PPO  INPUT  ENVELOPE 
C 

PPOOUHI UL IN.UMINI «AMAX I ( PPOOUU ( UL I N . UM I N ) .PPOT I U ( UL I N . UMl N II 
PPOOUHI UL IN.HMAXI « AMI Ni  ( PPOOUUf UL I N , UMAX  I .PPOTIUfUL IN.HMAXI  I 
PPOOUHIUCOL .UMlNIaAMAXt (PPOOHUIUCOL .HMINI .PPOT|U(UCOL .UMlNI I 
PPOOUUCUCOL .UMAXI >ANINI ( PPOOUHI UCOL . UMAX  I . PPOT I U ( UCOL . UMAX  I I 
C 

c 

C CHECK  IF  INTERSECTED  PPO  OUTPUT  ENVELOPE  IS  EMPTY 

C 


N-SO 


o o r*  r»  o o nooo  o o o o o o o o o o o o 


0AM  MACKAOr  APMCNOU  N 

urtLirr  moutincs 


003 


I P ( I PPOOUU I ULI N . HH I N I . oe . PPOOHU ( ML  1 N . UN AX  > t . OR . 

A (PPOOUUfUSAN.UHtNI .OC.PPOOMMIHSAn.unAX) n CALL  NOUARN< 
• *N0  MSS  data  UITHIN  UINOOHM 


coHPure/CHecK/CROP  HCiONr  of  ppo  output  CNvCLOPe 

NPRLIN>IFIXCPP00MU(UL1N.UMAXI I - 1 Ft  XI PPOOUUC UL I N. UHl Nt I *t 
IFINPRLIN.LC.NPRLNXt  00  TO  600 

CALL  HONOTec  ’UtNOOH  TOO  HlOH  ••  TRUNCATCO*! 
PPOOHHIULIN.UNtNI •PPOOUUI UL I N . UN  1 Ml *FLOAT I ( NPRL I N-NPRLNX 1 /O I 
PPOOHUlUL IN.UMAXI >PPOOUHI UL I N . UMAX  I -FLOAT  I I NPRL I N-NPRL NX  * I 1 / 6 1 
600  CONTINUe 


CONPUTC/CHCCK/CROP  HIOTH  OF  PPO  OUTPUT  CNVCLOPC 

NPRCOL>tFIX(PPOOUU(UCOL .MNAXI I - I F I X ( PPOOUUI UCOL . MMI N)  > *t 
IFINPRCOL.LC.NPRCMXI  GO  TO  700 

CALL  NONOTCI  'UINOOU  TOO  U I OF  --  TRUNCATFO'l 
PPOOMUl UCOL. MNIN I -PPOOUUI UCOL . UN  I N I -FL OA T I ( NPRCOL -NPRCHX > / ? ) 
PPOOUUI UCOL. UHAX I -PPOOUUIUCOL .UNAX) -FLOAT! I NPRCOL -NPRCNX- I 1 /2> 
700  CONTINUE 


COMPUTE  NSA  OUTPUT  ENVELOPE  AROUND  PPO  OUTPUT  ENVELOPE 
CALL  ENVAVP 


DONE 


RETURN 


INTERNAL 

SU6R0UT1NE  ENVPHA  a COMPUTE  PPOTIU  ENVELOPE  AROUND  MSATIU  ENVELOPE 
C 

REAL  PPOLIN.PPOCOL  « PPO  LINE.  COLUMN  OF  ENVELOPE  CORNERS 
C 

PPOTIUIULIN.UMINI -*9E*3S 
PPOTtUIULlN.HMAXI --9E-35 
PPOTIUIUSAM.UMINI -*9E*39 
PPOTIUIUSAM.UMAXI --9E-39 
C 

00  360  NOO I -UN IN. UMAX 

00  330  NOOO-UMIN.UNAX 

CALL  P**AI  PPOLIN.PPOCOL. 

• FLOATiHSATtUlUL IN.NOOI ) > . FL OAT  I MSAT I U ( USAM . NODE > I ) 

PPOTIUIULIN.UMIN) -AMINI IPPOTIUlUL IN.UMINI .PPOL INI 
PPOTIUIULIN.UMAXI -AMAXI I PPOT I Ul UL I N . UMAX  I .PPOL INI 
PPOTIUIUSAM.UMINI -AMINI I PPOT I U ( USAM. UM I Nl .PPOCOL I 
PPOTIUIUSAH.UHAXI-AHAXI I PPOTIU! USAM. UHAX I .PPOCOL) 


N-St 


o o o o o o o o 


OAH  PACKAOC  APKNOIX  N 
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eiiopoH 

OOH 


SSO  eONTINUC 

360  CONTI Nue 

e 

e 

C INSURE  PRINT/PLOr  COORDINATES  ARE  ALUAYS  POSITIVE 

e 

PPOT|M(ULIN.MHINi>ANAXI (PPOTIUCULlN.HNiNt .6.1 
PPOTlH(NCOL.HHlNI«AHAXi(PPOTIH(UCOL.UHINI .6. I 


RETURN 


INTERNAL 

subroutine  cnvavp  a compute  msaohu  envelope  around  PPOOUU  envelope 
c 

REAL  AOJL IN. AOJSAM  a ADJUSTED  LINE.  SAMPLE  OF  ENVELOPE  CORNERS 
C 

MSAOUUCUL IN.UMINI >»MAXINT 
MSAOUUCHL IN. UMAX) --MAX  I NT 
MSAOUUCUSAM.  UMI  N)  - ^^MAX  INT 
MSAOMMf  USAM. UMAX  > «-MAX I NT 
C 

DO  600  NODI •UMIN. UMAX 

DO  too  N006«UMIN.UMAX 

CALL  AVPCAOJLIN. AOJSAM. 

« PPOOUU (UL iN.NOOl I . PPOOUU ( UCOL .N006) > 

MSAOUUCUL  t N.UMt  N) «M I NO ( MSAOUU I UL I N . UM t N I . IP  I X( AOJL  IN)  > 
MSAOUUfUL IN.UMAXI «M AX 0 ( MS AOUU ( UL I N . UM AX ) . IF  I X( AOJL IN)  I 
NSAOUU(USAM.UMIN) ■M1NO(MSAOUU(USAM.UMIN)  . I F I X ( AOJSAM)  ) 
MSAOUUIUSAM.UMAX) >MAXO (MSAOUU(USAM.UMAX)  . IF  1 X( AOJSAM)  ) 

too  continue 
600  continue 
c 

RETURN 
' ENO 
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uuououuuuuoououuuuuoooooouo  ouuouououoooouoouu 
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OCORLT 

001 


SUMOUriNC  OCORLT ( 
0 CORRCL.  a SINOLC 
0 AHCAN.  0 SINOLC 

0 sroev.  a sinolc 


a CORRCL ATI ONS/HCANS/Oevs  FROH  00  RR  SUNS /SUNS -OF -PROO 
PRCCISiON  NATRIX  OF  CORRCLATION  COCFFICICNTS 
PRCCISION  VCCrOR  OF  ARITNNCriC  NCANS 
PRCCISION  VCCrOR  OF  STANOARO  OCVlATtONS 


I NOSS.  a NUNSCR  OF  OOSCRVATIONS  (ORCATCR  THAN  SOOl 
I OSUN.  a OOUBLC  PRCCISION  VCCrOR  OF  SUNS 

I OSPROO.  a OOUBLC  PRCCISION  NATRIX  OF  SUNS  OF  PRODUCTS 

I NRCUSC.  a NUNBCR  OF  ROUS  A COLUNNS  USCO 

I NRCOINI  a NUNSCR  OF  ROUS  A COLUNNS  OlNCNSIONCO 


HISTORY 


C H SCHLOSSCR  LCC  03/05/78 

e H SCHLOSSCR  LCC  18/13/79 


ORIOINAL  COOe 

CHCCK  FOR  BAO  OSPROO  VALUCS 


NCTHOO 


STANOARO  statistics. 


NACHINC-OCFCNOCNT  COOC 


NONA  . 


CXTCRNAL  RCFCRCNCCS 


HONOTC  a PRINT/COUNT/LOO  *N0TC  OIAONOSTIC  hcssaoc 
NOHARN  a PRINT/COUNT/LOO  'UARNINO'  OIAONOSTIC  HCSSAOC 

OOUBLC  PRCCISION  CBS'*  IN  A CHARACTCR  STRING  FOR  INTCOCR 


CXCCPTIONS 


THC  FOLLOHINO  CONOITIONS 
CONOI TION 
NOBS  < 8<NRCUSC 
OSPROO!  I . Jl  < *>  0 


OCNCRATC  THC  OIAONOSTICS  SHOUN: 
OIAONOSTIC 
UARNINO 
UARNINO 


GLOBAL  OCCLARATIONS 


NONC. 


LOCAL  OCCLARATIONS 


N-SS 


OAH  PACKAOC  AP^CNOtX  N 

umtrv  RourtNCt 


c - 

c 

RCAL  CONRCLINMCOIN.NNCOlni .AnCANINMCOlHl .trOCVINACOINI 
OOUtLC  MCCItlON  OSUniNNCOlNi .OSPWOOINMCOIN.NACOIHI 

c 

c 

c PHoeeounc 

c 

c 

CALL  TRACC 

c 

c 

c coHPure  ucans  a stanoaro  ocviations 
c 

trfN08S.Lr.2«NRCusei  call  homarni  *nobs  too  shall  in  ocorltm 
DO  teo  NR-l.NRCUSe 

00  iHo  NC«t .NRCuse 

irtOSPROOINR.NCt .LC.O. t CALL  HOMARNI 
• ’OSPROOI  ’ .CBS**  INI  NR.  t I . * . ‘ .COS'*  I N(  NC  . I ) . ‘ I <«  0 IN  OCORLT’I 

CORRCL(NR.NC)>(OSPROO(NR.NC)  - OSUHI NR  I «OSUH ( NC ) / NOBS  I / NOBS 
IHO  CONTiNUe 

ISO  continue 

00  too  NR-I.NRCUSe 

AHCAN(NRI»OSUH(NRI /NOBS 
SroeviNRI*SQRT(CORRCL(NR.NRI I 

too  continue 

c 

C 

C COHPUTE  CORRELATION  COEmCIENTS 
C 

00  B60  NR- I. NRCUSE 

00  EHO  NC«t .NRCUSE 

CORREL (NR.NCt -CORRELINR.NC) / ISTOEVINRI «ST0EVINC> I 

BHo  continue 

BBO  continue 
RETURN 
CNO 


OCORLT 

OOt 
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OCO 

001 


RCAL  ruNcriON  oco(  • ocoRCCs  (rooN  oeoRCCt.niNurcs.sccoNOSi 
t loco.  « UNOLC  OCORCCS  MNrCOCOI 

I iniN.  • MMOLC  NINUrCt  (INTCOCRI 

I ICC)  • OCCONOO  IRCALI 


(CHOI 


OON-IOCO 

oco*rLOAri  lAOf  Moeon*rLOATi  iHiNi/eo.*scc/3eoo. 

oco*siONioeo.soNi 

RCruRN 

CNO 


N*S9 


DAN  PACKAOC  AmNOlK  N 

uriLtrr  nouMNCt 


OCLCrC'OCNS 

001 


•OCLCrC.C  •OANOCN-I. 
•ocLcrc.e  •oanocn-o. 
•OCLCrC.C  •OAHOCN-l. 
•ocLcre.c  •oanocn-<*. 


N'Oe 


OOJR/NATMMCK 

001 


OAN  OACKAOC  AOOCNOIX  N 

uriLirv  NourtNCt 


c 

c 

e 


c 

e 

c 

c 

c 

c 

c 

c 

c 


e 

c 


OUiOOUMNC  OOJNI  ■ OOUOLC  MCClttON  OAUOt-JOOOAN  RCOUCriON 


U A. 


I NC. 
I NO. 
t N. 

I NC. 
I t. 

0 JC. 
U V> 


Oi  N X N INVCROC 


riRsr  N eoLUHNti 
ti  N X N NAmiX 
LAST  NC*N  COtUNNSi 

It  coNtTANr  vccroot  oi  tOLunoN  vccroM 

NUNRCR  or  COLUNNO  OlMCNtlONCO  IN  A 

NUNtCO  or  ROMO  oincnoionco  in  a 

NUNiCR  or  ROUS  IN  A 

NUNOCR  or  COLUMNS  IN  A 

RCruRN  fRANSrCR  LAiCL  If  OVCRrLOM 

JCCII  • •l*IROH  • or  LAST  eORRCCriV  rcoucco  roui 

It  orrioNS  RCQuctrcoi  i.  t.  s.  •».  s.  o.  7. 

INVCRT  MATRIX  T N T N T N Y 

fOLVC  OCrCRMINANT  N V T I 

SOLVC  SIMUL  COUAT  N N N 

octcrminant  RCQucsreoi 
vMi  • SION  or  octcrminant 
vest  > oLOOcoASsiocrcRMiNANn 


• Oi  ir 


N 

Y 


OOUOLC  PRCCIStON  A(NR.NC) 
OOJSLC  PRCCIStON  VtCI 
iNTCOCR  JCtNl 


UNtVAC  1100  HATHPACK  ROUMNC 

SOURCC  COOC  IS  NOT  AVAUABLC 


OAN  MCRAOC  AA^CNOIX  N 

uruirv  ftouriNCt 


oopciir 

•Of 


•uMouriNC  ooACNri  • conjure  t or  taacc  roft  hataix  oiaoonal  CLCnCNrs 

I ANAf.  • RCAk  OINOLC  rACCItlON  NATNiX 
I NttUtC.  • NUNKR  or  MOMS  UtCO  lANAri 

I NCUtC.  • NUNMA  or  COLUNNO  UtCO  lAHAT  A ACrNACI 

I NNOIft.  • NUNMA  or  AOMO  OIACNOIONCO  lAHAn 

t ACOiN.  a NUNOCA  or  colunno  oincnsionco  (ahat  i AcroACt 

0 ACTAACi  a ACACCNT  OA  TAACti 

AON  I • INOIVIDUAL  f 
AOM  t • eUAULATIVC  f 


(C  H tCMLOftCAl 


ACAL  AHA? CNAOlN.NCOlni 
ACAL  ACrAAC(O.NCOIni 
CALL  TAACe 
C 

e 

iriNAUtC.NC.NCUtCI  CALL  nOMAANI  ‘HATAIX  NOT  SQUAAC  tN  OOACNTM 
ATAACC«0. 

00  (00  (•I.NAUSC 

ATAACC-ArRACC^ANATl I . I I 
(00  CONTINUC 

ATAACC-ATAACC/IOO.  0 rOA  I CALCULATION 

C 

SUN*0. 

or  TOO  l-I.NAUfC 

ACTAAC< t . I I >ANATl  I . I I /ATAACC  8 INOIVIOUAL  I 

8UN«0UN*ANAT( ! . t I /ATNACC 
ACTNACK.  1 1 *0011  8 CUNULATIVC  I 

XOO  CONTINUC 
AC  TUAN 
CNO 


o A n o o 


OAN  ^ACRAOC  A^fRNOIX  N 

uruirv  RouMNCt 


OOMCA 

001 


OUMOUriNC  OOACCAt  • rAKC  ACCIAROCAL  Of  NATRIX  OtAOONAL  CLCNCNTO 
I ANAT.  0 ORtOINAL  OINOLC  AACCIttON  HATAlX 

I NRUOC.NCUOC.  • tIUNSCA  Or  AOUfl  A COCUMNf  UtCO 
I NAOIN.NCOIN.  0 NUnOCA  Of  AOWO  A COLUHNt  OIACNSIONCO 
0 OAATI  A ACM  RAtAlX  (HAT  OC  OANC  At  AHATI 


(C  N tCNLOttCAl 


ACAL  AAAriNAOlA.NCOiHI .ORAf f NAOIA.NCOI Al 

00  000  !•! .NAUtC 

ORArt ) .11*1. /ARATI t . i I 
000  CONTINUC 
ACruAN 
CNO 


OAN  PACKAOC  APPCNOIX  N 
UmiTY  ROUriNCS 


SUBROUriNC  OOSORYt  A YAKC  SORT  Or  NATRlX  OIAOONAI.  CLCNCNrS 
I ANAT.  • ORIOtNAL  SINOLC  PRECISION  HATRIX 

t NRUSE.NCUSe.  « NUH8ER  OP  ROUS  A COLUHNS  USED 
I NROIH.NCOIN.  • NUMBER  OP  ROUS  A COLUMNS  OIMENSIONEO 
0 BMATt  a NEU  MATRIX  (HAY  BE  SAME  AS  AMATI 

C 

C 

C (E  H SCHLOSSER1 

C 

C 

REAL  AMAT tNROiM.NCOIMI . BMAT ( NRO I N. NCOI H I 
C 

00  300  1*1 .NRUSE 

BMAT ( I . 1 ) •SORT ( AMAT( 1 .1)1 

300  continue 

RETURN 

ENO 


OOSQRT 

OOt 


uuuuu  uouu  uouo 


OAH  PACKAOC  APPCNOIX  N 

urutTv  MouriNCs 


OHprie 

001 


SUOROUTINC  OHPrtC  • OUHP  TICK  TAOLC 


<e  H SCHLOSSCRt 


INCLUDE  KOHTOL.LIST 


CHECK  IP  TICK  table  IS  PRESENT 

irCKTBLTY.EO. ’TICK* I 00  TO  BOO 
HRITEI6.I0SI 

lOS  FORHAT(*0  < NO  TICK  TABLE  •*> 
00  TO  900 


OUHP  TICK  Table 

SOO  URITEIB.eOS) 

BOS  roRHATc*o  « • TICK  Table  * 

00  300  NTICK>t .KTBLSZ 
IPLTIC«LINTIC(NTICK) 

IPCTIC-C0LT1C(NTICKI 
LVLTIC«LEVTIC(NTICK) 

URITECB.BHSI  NTtCK. tPLTIC. tPCriC.LVLTIC 
B«»S  rORNATC  IH.  IX.  16.  IX.  16.  tX.  I?) 
iriIPLTtC.OT.eOOO>  go  to  900 

IP( I IPLTIC.EQ.O) . AND. ( IPCT tC.EO. 01 . ANO. ( NT  I CK . GT  . I 0 > > 
i GO  TO  900 
300  continue 
C 
C 

900  RETURN 

EN.-*^ 


OAN  ^ACKAOC  APKNOIX  N 
UrtLtTY  ROUriNCS 


SUBROUriNC  OHRUIN(  A OUNP  UINOOH  PACKET 
I NAHPKT.  a NAME  OP  PACKET  C|ST  LETTER  TELLS  IP  INTEOER  OR  REALI 
I NUUPKTt  a MINOOU  PACKET 

C 

C 

C te  H SCHLOSSCRI 

c 

c 

Olh  IN  NUUPKTt I) 

C 

c 

C EXTRACT  header  PRON  UINOOU  PACKET 
C 

NHEAOl "NUUPKTt  t I 
NHEA02"NUUPKT(2) 

NUOHAX-NI NO ( NHEA02<2 . 50 ) 

IPtNHEAOl .NE.0>  NU0MAX«M1N0(NHEA01 •3.NUOHAX) 
tPtNHEAOl  .EQ.  01  NUOnAX«HINO(  l*».NMOHAX) 

NUONAX-NAXO I NUOHAX . 6 ) 

C 

c 

C PRINT  NAME  ANO  HEADER  OP  UINOOU  PACKET 
C 

URITEI6.I05I  NAHPKT 
tOS  PORNATt 

a '0  • • *.A6.‘  UINOOU  PACKET  • •*) 

URITEie.iaSI  NHEAOt .NHEA02 
tas  PORHATt*  01  HEAD  *.17.11?) 

ipt (PLOl 0.6. NAHPKT) .LT.*aaaaai’).OR. 
a (PLOio. 6. NAHPKT) .QT. * aaaaaN* ) ) oo  to  30o  a real  uinoou 
c 
c 

C PRINT  BOOT  OP  INTEOER  UINOOU  PACKET 
C 

URI  TEf  6.?*»5>  (NUUPKTtNUO)  . NUO>3  . NUOHAX  ) 

?4S  PORHATt 

a * 0?  HIN  * . I7.5X. 17/ 
a * 03  H.*X  • . I7.5X.  17/ 
a • OH  INC  ‘.17.5X.17/ 
a • 05  TIC*0* .I7.5X.I7/ 
a • 06  TIC*I * . 17.5X. 17/ 
a • 07  ORIO  * . 17.5X. 17/ 
a • 08  VER*0* .17.5X.I7/ 
a • 09  VER*I * . I7.5X. 17/ 
a • 10  VER*?* . I7.5X. 17/ 
a • 11  VER*3*  . 17.5X. 17/ 
a * 1?  VER*H* . 17.5X. 17/ 
a • 13  VER*5‘.I7.5X.I7/ 
at*  ••  VER*« • . 17.SX. 17)) 

00  TO  OOG 
c 
c 

C PRINT  BOOT  OP  REAL  UINOOU  PACKET 
C 

300  URITEI6.3HSI  INUUPKTINUOI .NUC-3. NUOHAX) 

3H9  PORHATt 


N>6? 


ONPHIN 

001 


u o 


NOIX  N 


ONINIIN 

ooe 


uriLirY  MourtNCS 


« * 08  niN  *.8ri8.*»/ 

* * 03  HAX  *.8rt8.*»/ 

* ‘ 0*»  INC  *.8rt8.<»/ 
0 • OS  TIC*0*  .8ri8.«»/ 

ft  • 06  ric*t*.8rt8.i»/ 

ft  * 07  ORIO  *.8ri8.H/ 
ft  * 00  VCR»0*  .8ri8.<*/ 
ft  • 09  vcR*i • .ana.'*/ 
ft  * 10  vcR*a* .art^.^/ 
ft  * It  vCR«3* .aria.t*/ 
ft  * la  veR*<»‘  .ana.)*/ 
ft  • 13  vtR*S‘  .ana.<»/ 
ft<‘  ••  VCR** • .aria.'*n 


900  RETURN 
ENO 


oooooooooooooouoooooouoooooooouuooooouo  uouuoo 
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urtLirv  AOMriNes 


OStPII 

OOi 


SUfMOUriNC  OSSPAt 


0 

OSUH. 

a 

DOUBLE 

0 

OSPROO. 

a 

DOUBLE 

( 

NRCOIN. 

a 

NUNBEA 

1 

TATA. 

a 

SINGLE 

I 

NOBS. 

a 

NUNBEA 

1 

NVARSI 

a 

NUNBEA 

a coHPure  osl  paccision  sums  a suns  or  paooucts 
PACCisiON  vecroA  or  suns 
PACCISION  HATAIX  Of  SUNS  OF  PAOOUCTS 
or  ROUS  A COLUHNS  OINCNStONCO  tN  OSPROO 

PRCeisiON  data  nataix 
or  oescRVATtoNS  coat a aohs> 

or  VAAlABLeS  (DATA  COLUNNS) 


history 


e H SCHLOSSCR  LEC  Ot/08/78  ALGOAITHH  COOING 

J C CRISP  LEC  11/30/79  REVISE  ARCUNEnT  LIST 


NE'HOO 


INITIALIZE  suns  ANO  SUnS  OF  PRODUCTS  TO  0.  CONFUTE  SUNS  AND  UPPER 
TRIANOULAR  SUNS  OF  PRODUCTS.  COPY  UPPER  TRIANGULAR  SunS  OF  PRODUCTS 
TO  LOHER  triangular. 


nachine-depenoent  code 


NONE 


EXTERNAL  REFERENCES 


NONE 


exceptions 


NONE 


OLOOAL  declarations 


INCLUDE  KONXQT.LIST 


a CONNON  PROORAN  EXECUTION  SWITCHES. 


COUNTERS 


LOCAL  DECLARATIONS 


REAL  TATAINOSS.NVAAS)  9 AROUNENT 

DOUBLE  PACCISION  OSUNt 1 1 .OSPROOtNRCOIN.NRCOlNI  • AROUNENT 


N>6*» 


r>  o o o o o o o o o o o n 


OAN  MCKAOC  APKNOIX  N 
wmirv  MourtNCs 


OS«M 

00« 


INTCOCR  NROU.NCOL  • ftOU/COLUHN  NUneCR 


PROeCOURC 


CALL  TRACe 


iNiriALize  suns  a suns  or  products 

00  ttO  NROH*t.NVARS 
OSUnCNROMI >0. 

00  too  NCOL*t.NVARS 

OSPROO(NROU.NCOLI«0. 
too  CONTiNUe 

tIO  CONTtNUe 


conpure  suns  s upper  triangular  suns  op  products 

00  tHO  NOB-t.NOBS 

00  tso  NROH-I.NVARS 

0SUNCNR0HI«0SUNINR0U) * T A T A ( NOB . NROUl 
00  too  NCOL-NROH. NVARS 

OSPROOtNROH. NCOL  > ■OSPROOtNROU.NCOL ) * 

I TATAINOB.NROH) <TATA(N0B.NC0L > 

tao  co.iTiNue 

tso  continue 

tHO  continue 
c 
c 

C COPY  UPPER  TRIANOULAR  suns  or  PRODUCTS  TO  LOWER  TRIANGULAR 

c 

00  230  NROH>I.NVARS 

00  220  NCOL«NROH.NVARS 

OSPROO ( NCOL . NROW I -OSPROO ( NROU . NCOL ) 

220  continue 

230  continue 
C 

RETURN 

ENO 


N*6S 


oooooouooooooooouooooooooooooooouoooo  uuoououuuou 
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urtLtrv  RouriNCS 


0SSM3 

001 


SUMOUriNC  0SSPR3(  OOP  SUHS/SUNS>0r>PP00UCrS  PPOH  NSS  rAPC  CUNir  31 
0 08UN.  8 00U8LC  PRCCISION  VCCTOR  Or  SUH8 

0 08PR00.  a 00U9LC  PRCCISION  HATRIX  OP  SUNS  OP  PRODUCTS 

( NRCOIN.  a NUN8CR  OP  RONS  ANO  C0LUNN8  IN  OSPROO 

0 KPIXLS.  a NUneCR  op  PIXCLS 


I KCHAN8I  a NUHSCR  OP  CHANNCL8 


HISTORY 


H L 8ROHN 
J C CRISP 


LCC  01/13/78  ALOORI THN  COOINO 
LCC  10/11/79  Revise  SPACING  ANO  PIXCL  BUPPCR 
ANO  AOO  RCSANPLINO  ANO  SCRCCNING 


NCTHOO 


INITIALIZC  SUNS  ANO  SUNS  OP  PRODUCTS  ANO  PIXCL  COUNTCR. 
INlTIALIZe  LOW  ANO  HlOH  UlNCS  ANO  SANPLCS  ANO  SPACING.  POSITION 
AT  TOP  OP  RCAO  UINOOH.  RCAO  RCQUeSTeO  SCAN  UNCS  ANO  CHCCK  PGR 
I/O  CRRORS.  RCSANPLC  ANO  SCRCCN  PIXCLS  POR  CACH  L I NC . CONPUTC 
SUNS  ANO  UPPCR  triangular  SUNS  OP  PRODUCTS  AND  COUNT  RCSANPLCO 
ANO  SCRCCNCO  PIXCLS.  CONVCRT  SUNS  ANO  SUNS  OP  PRODUCTS  TO  00U6LC 
PRCCISION.  COPY  UPPCR  TRIANGULAR  SUNS  OP  PRODUCTS  TO  LOMCR 
TRIANGULAR. 


NACHINC'OCPCNOCNT  COOC 


NONC 


cxtcrnal  rcpcrcnccs 


OCTRAO  a OCT  ALL  SCLCCTCO  RAH/ TRanSPORNCO  CHANNCLS 

OCTBYT  a OCT  BYTC  PRON  BYTC  STRING 

A*»P  a AOJUSTCO  COORO  POR  PRINT/PLOT  cooro 

NOPATL  a PRINT/tOO/COUNT  'PaTAL  CRROR’  ncssaoCs 

OOUBLC  PRCCISION  C8S<*CS  8 VARI  ABLC-LCNOTh  CST  PGR  PlXCO  LCNOTH 


CXCCPTIONS 


I.  ThC  POLLOHINO  I/O  CRRORS  OCNCRATC  ThC  POLLOUINO  DIAGNOSTICS: 
•8A0R*  PATAL 

*8A0P‘  PATAL 

•COP*  PATAL 

•OPL*  PATAL 


N-66 


u u u u u u 


OAN  ^ACKAOC  APKNOIX  N 

uruirv  RouriNCs 


OttMS 

oot 


c 

C OLOBAL  OeCLARATIONS 

C 

c 

iNCLuoc  KOHXor.Lisr  a cohhon  rroorah  cxccumon  shi rcHes.couNrcRS 

INCLUDE  KONKLS.LISr  a COHNON  CLASSiriCAT ION  INfO 

INCLUDE  UINOEr.LISr  a OEriNE  UINOOH  packets 

INCLUDE  KONOMH.LISr  a OEPINE  OUTPUT  UINOOU  PACKET 

INCLUDE  PXBDEr.LIST  a OEPINE  8UPPER  STRUCTURE 

INCLUOC  NAXINT.LIST  a HAXINUN  INTCOCR  VALUE 


LOCAL  DECLARATIONS 


INTCOCRS  IN  NSA  BUF  • *InTS  PRCANBLE  * f«eiNS*3l/H  * (vexTRA  8YrcS*3>/>» 
PARANCTCR  NHIXBF  ■ (PXBINS'tl  * (3S<*8*3)/H  » (t9*3</>* 

PARANCTCR  NXBUFS«6  a NUNBCR  OP  NSS  PIXEL  BUFFERS  IN  ARRAY 

DOUBLE  PRECISION  OSUNMt  | ARCUNENT 

DOUBLE  PRECISION  OSPROOl NRCO I N. NRCO I N > a AROunENT 

INTEGER  HPXBUP(NMIxnF.NxeuFS)  a ARRAY  OF  PIXEL  BUFFERS 

INTEOER  ISUniNXBUFSI  i TEMPORARY  ARRAY  OF  SUMS 

INTEGER  ISPROO(NXBUFS.NXBUFS)  a TEMPORARY  MATRIX  OF  SUMS  OF  PRODUCTS 
INTEOER  IPIXEL(NXBUFS)  a PIXEL  VALUE  FOR  EACH  BUFFER 

INTCOCR  NBINSO(NXBUFS>  a BIN  • OF  SAMPLE  0 FOR  EACH  BUFFER 

INTEGER  ISTAT  a I/O  STATUS 

INTCOCR  NROU.NCOL  a ROM/COLUMN  NUMBERS 
INTCOCR  MSAL IN.NSASAM  a MSA  LINE  ANO  SAMPLE 

INTEGER  MSASLO.MSASHI  a MSA  LOM  ANO  HIGH  SAMPLE 

REAL  AOJL IN. AOJSAM  a ACJUSTCO  LINE  ANO  SAMPLE 

INTCOCR  MLIOOL.HLIOOH.MLIOOS  a MSA  LINEMOO:  L ON  . H I CH  . SP  AC  I NO 

INTCOCR  MSIOOL.MSIOOH.MSIOOS  a MSA  SAKPLC«tOO:  L OU . H I OH . SP AC  I NO 

INTEGER  LASTLN  a LAST  LINE  READ 

INTCOCR  IPLIN  a PRINT  LINE 

INTCOCR  I PCMI N. I PCMAX  a MINIMUM  ANO  MAXIMUM  PRINT  COLUMN 

INTCOCR  IPLMIN. IPLMAX  a MINIMUM  ANO  MAXIMUM  PRINT  LiNC 

C 
C 

C PROCCCURC 

C 

C 

CALL  trace 
C 
C 

C initialize  MINIMUM  ANO  MAXIMUM  PRINT  LINES  ANO  COLUMNS 

c 

IPLMlN«PPOOUUrUL IN. UMINI 
IPLMAX*PPOOUH(ML IN. UMAX) 

IPCMlN«PPOOUU(UCOL .UMI  N) 

IPCMAX«PP00UM(UC0L.MMAXI 

/ C 

> ‘ c 

C initialize  SUNS  ANO  SUMS  OF  PRODUCTS  ANO  PIXEL  COUNTER 

c 

DO  1 10  NROU*l .KCHANS 
0SUMCNR0NI«0. 

{ 


N-B7 


o o o o 


OAN  ^ACKAOC  AMCNOtX  N 
uruirv  MouriNCt 


00  too  NCOL-t .KCNANS 

OSPOOO ( NROH . NCOL I *0 . 
too  CONTtNUe 

ttO  CONTINUC 
KRtXLS*0 
C 

c 

C tNtrtALtZe  LOH  ANO  HtOH  LINES  ANO  SPACINO 
C 

CALL  A<*P  (AOJLtN.AOJSAN.  TLOA T ( t PLN I N>  , t . I 

NLtOOL*AOJLIN«IOO. 

CALL  A4P  (AOJLtN.AOJSAN.  PL OA T ( I PLNAX I . t . I 

HLtOOH*AOJLtN*IOO. 

NLIOOS-nSAOMM(HLlN.USPiOOI 

C 

c 

c POSITION  AT  TOP  OP  UINOOH 
C 

NSALlN-NLIOOL/tOO 

CALL  OCTRAO  ( NPXBUP . I 0 ) . ( NX8UPS)  . t STAT  . NSALIN.O.O> 
IP  ( ISTAT.NC. ’BAOP' I 00  TO  BOO 

CALL  NOPATL  ('BAOP  ( 6A0  PILE)  ON  UNIT  3*> 

00  TO  900 


REAO  BEQUESTEO  SCAN  LINES 

BOO  tPLlN>IPLNIN 

LASTLN--NAXINr 

00  730  NL I 00*NL i OOL . ML  I OOH.NL I OOS 

00  BNO  NPOU-1 .KCNANS  A CLEAR  TENP  SUNS  ANO  SUNS  OP  PROOS 
ISUHCNROM*  >0 
00  BBO  NCOL«l .KCNANS 

tSPROOCNROH.NCOL I *0 
BBO  continue 

BNO  continue 

NSAL IN'NL 100/ I 00 

CALL  A*»P  (AOJLtN.AOJSAN.  PL  OAT  ( I PL  i N t . PL  OAT  ( t PCN I N I ) 
NSIOOL*AOJSAN*IOO. 

CALL  A*»P  (AOJLtN.AOJSAN.  PL  OA  T M PL  I N I . PL  0 A T ( I PCNAX  ) I 

HStOON>AOJSAN* 100 . 

NSt OOS«NSAOUU( USAN.USPl 001 
NSASLO«NSIOOL/ 100 
NSASNt •HSI OON/ too 

IP  (NSAL IN.NE.LASTLNI  CALL  OCTRAO  ( NPXBUP . ( NU I XSP < . ( NXBUPS > 
0 ISTAT.  NSALIN.NSASLO.NSASHI I 

L ASTLN*NSAL in 

IP  ( ISTAT. CO. ' M 00  TO  BBO 

CALL  NOPATL  IC8SXCS( ISTAT . I .HI . 

S * WNILE  REAOINO  on  unit  3*1 

00  TO  900 

BBO  CALL  NSKPIX  ( NPXBUP  ( I . I > . NPXBUPd.lX 

C 

c 

C initialize  bin  NUHBER  pop  SANPLE  0 POR  EACH  8UPPER 


OBSPRS 

001 


N*OB 


OAH  PACKAOC  AfiKNOIX  N 
uruiTY  ROurtNCS 


DO  f90  NUNIur«i .KCNANS 

N9 1 NSO ( NUHBUr  t aHRMRur I RXL ■ I N . NUHBUr I 
A onRXBurtRXLSAn.NunBuri 

BBO  CONTINUC 


e 

e 

C RCSAHRLC.SCRCCN.COHRUre  BUNS  AND  SUNS  Or  NROOS  TOR  CACH  I : NC 
C 

00  6S0  NBtOO>NSIOOL.NSIOON.NSinOS 
NSASAN>NBIOO/IOO 

c 

c aurrcR  i 
c 

tr  I tnSASAN.Lr.NRXOUrtRXLSAN. I > ) .OR. 

A INSASAN.Or.NPXBurfRXHSAM.t I n 00  TO  6S0  A 

CALL  OCTBVr  (iPtXCLn)  . 

m NPXaUPtPXBINS.I  I . t HSASAN*NBI NSO ( t > 

IP  ( IRIXCLI I I .Oe.NPXBUP«PXNOOA. t I I 00  TO  6S0  A 
IP  ((tPIXCLItI  .LT.LCVLOM  .OR. 

A ( tPtXCLC  t I .or  .LCVHM  n 00  TO  890  A 

IP  (KCHANS'I .CQ.01  00  TO  990 
C 

C BUPPCR  2 
C 

IP  I CNSASAN.Lr.NPXBUP(PXLSAH.2>  I .OR. 

A (NSASAN.0T.NPXBUP(PXHSAN.2I t ) 00  TO  690  A 

CALL  OCTBYT  CIPlxCLlB). 

■ NPXBUP(PXBtNS.2> . (NSASAN*NBlNS0(2l 

IP  ( ( tPtXEL  (21  .LT  .LCVL0(2M  .OR. 

A ( IPtXCL(2l .Or.LCVHI (21  I I 00  TO  690  A 

IP  (KCHANS>2.CQ.0l  00  ro  930 


C 

C BUPPCR  3 
C 

IP  ( INSASAN.lt. HPxBUP(PXL SAN. 3 > ) .OR. 

A (NSASAH.OT.NPXBUPCPXHSAN. 3> ) I 00  TO  690  A 

CALL  OCTBYT  (tPlxCL(3i . 

• NPXBUPIPXBtNS.3i . inSASAN*NBINSO(  3> 
IP  ( ( IPIXCLCSI .LT.LCVLO' 31  I .OR. 

» ( IPIXCL (3* .OT.LCVHI ( 31  I I 30  TO  690  A 

IP  IKCHANS-3.CQ.0l  00  TO  *»70 
C 

C BUPPiCR  •» 

c 

IP  ( (NSASAN.LT  .NPXBUP(PXLSAN.I»I  I . OR . 

A (NSASAN.OT.NPxBUP(PXHSAN.H) ) I 00  TO  690  A 

CALL  OCTBYT  (tPIXCL(>»>. 

• NPXBUPIPXBINS.HI  . (NSASAN*NB1NS0(**I 
IP  l(IPIxeL(*»I.LT.LCVLO(«*i)  .OR. 

A (tPIXCLIRi  .OT.LCVHI  (<*n  I 00  TO  690  A 

IP  (KCNANS-**.CQ.Ol  00  TO  «»I0 
C 

C BUPPCR  9 
C 

IP  I (NBASAN.LT.NPXBUP(PXLSAN.9I ) .OR. 

A (NSASAN.0T.NPXBUPIPXHSAN.9I  I i 00  TO  690  I 


OtBPRS 

0B« 


SAN  NOT  IN  BL'P 
I I 

NO  data 

OUT  OP  RAO  LIN 
SAN  not  in  BUP 

I ) 

OUT  OP  RAO  L in 

SAN  NOT  IN  BUP 
I I 

OUT  OP  RAO  LIN 

SAN  NOT  IN  8UP 
t 

OUT  OP  RAO  iH 
SAN  NOi  IN  BUP 


N*6B 
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OttPMl 

00« 


A 

e 

c lurrcK 
c 

4 


4 

C 

c coHPurc 
c 


380 

C 

c 

390 


300 

C 

C 

HIO 


i»«0 

c 

c 

•*70 


900 

C 

C 

930 


980 

C 

C 

900 


680 

690 

C 

c 

C CONYCRr 


CALL  OertYT  IIPIXCU9t. 

N^X6Ur ( PX6 1 N6 . 9 i . ( N6 A9AN*N6 1 N60 ( 9 n I 

tr  ((i0ixfL(9>.Lr.LCVLo:9n .00. 

ll0tXCLI9t.Or.LCVHI<9tM  00  TO  090  0 OUT  Of  0*0  LtH 

tr  IKCHANS>9.CQ.O)  00  TO  390 


ir  I 1 09*9*0. LT.N0XtUrt0XL9*H.0) t .00. 

(09*9*0. or. 00x9ur(0XHS*0. 01 n oo  ro  690  « 9*n  Nor  in  tur 

CALL  oerorr  nrixCLco) . 

0rx0uri0x0tN9.8> . (0$*9*0»n0|n$o(8>  > > 

If  ( ( iriXCL(0l .Cr .LCVLO(0l I .00. 

nrixCL  (01  .or.LCVHi  (01 1 1 oo  ro  69o  « our  or  0*0  lin 

SU09  *N0  U0PC0  r0i*NOUL*0  suns  or  rxooucrs 

ISU0(8t*ISUN(0t  *IPUCL  (61 

00  380  NC0L«6.KCH*NS 

ISP0OO(8.NCOL)*ISP0OO(0.NCOL  > • I P t XCL ( 8 > • I P I XCL I NCOt  > 

coNriNue 


I9U0(91 -tSUN(9l « tPt XCC (91 
00  300  NC0I.-9.KCHANS 

I SP0OO  ( 9 . NCOL  ) • I SP0OO  ( 9 . NC 01.  > * t p 1 xe  t ( 9 > < I P I xe L ( NCOL  > 
coNrtNue 


t SUN  ( N I > I SUN  ( •*  ) * I P I XCL  ( 4 I 
00  <»'»0  NCOI.***.KCHANS 

tSP0OO(*».NCOl.  t •tSP0OO(<«  .NCOU  *tPlXCL  (HI  • tPI  XCt.  (NCOL  I 

coNriNue 


l9UN(3l*tSUN(3l *IPIxeL (3> 

00  900  NC0L*3.KCH*N$ 

I SP0OO  ( 3 . NCOCI  - I SP0OO  ( 3 . NCOL  I • I P I XCL  ( 3 1 • I P I XCL  ( NCOI.  I 
coNriNuc 


ISUN(8)*1SUN(81 *t PI XCL 18) 

00  980  NC0L*8.KCHANS 

tSP0OO(8.NCOL I •tSP0OO(8.NCOL i • t PI XCL (8 1 • I PI XCL ( NCOL > 
CONr INUC 


iSu0ii)*tsuN(i)*iPixcL(n 

00  080  NCOL«t .KCMANS 

I SP0OO ( I . NCOL I • I SP0OO ( I . NCOL I * I p : XCL ( I I • I PI XCL ( NCOL I 
CONr iNuc 
KPIXLS»KPIXL9*I 
CONr INUC 


ro  oouoLC  P0CCISION 


0*70 


o o o 


IX  N 


ott^m 

oot 


OAN  PACKAOC  APMI 
utility  NOUriNCS 


e 

00  700  NII0H*l  .KCHANt 

Otun ( NAOW I •OtUH I NROM I » I tUK ( NOOM I 
00  000  NCOL>NAOH. KCHANt 

OtMOO  ( NROM  . NCOL  I •OtRROO  ( NROU . NC  OU  • 

A ItMOOtNIIOM.NCOLI 

too  eoNrvNuc 

700  CONTINUC 

IAUN«IRLIN*1 
710  CONTI  Hue 
C 
C 

C CORY  UAAtN  TRIANOULAN  SUNS  Or  AROOUCTS  TO  LOMCR  TRIANOULAR 
C 

00  7S0  NROH«l .KCHANS 

00  7S0  NCOL«NROH. KCHANS 

OSRROO I NC OL . NROH I ■OSAROO < NROU . NCOL ) 

7S0  CONTINUC 

700  CONTINUC 


900  RCTURN 
CNO 


( 


( 
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0AM  MACKAOC  AMMtNOU  N 
umtfT  MouriNCt 


tuoMOurtNC  etOMtf  » ocoacci  ro  ocoacco .niNurct.tccoNOO 
I OCO.  • OCOACes  lACALi 

0 loco.  • UNOtC  OCOACCO  (INTCOCAI 

0 ININ.  « MNOLC  niNUrCt  C INTCOCAI 

0 tcci  • tceoNOt  iacali 

c 

c 

C fCNSI 

c 

ioco*irix(ocoi 

ANIN«AO«lOCO*rLOATf lOCOI I •60. 

ININ«AHIN 

tCCalANlN^rLOAfl ININI I *00. 

AC Tuan 
CNO 


OCONO 

001 


N*V» 


ctMro 

091 


OAN  ^ACKAOC  AOMNOIX  N 

urtiirv  RouriNCt 


c 

c 


tumour  INC  cimroi 

U CtOm.  • NATNIX 
U CtOVCe.  • NATNIX 
I NNCUtC.  • NUntCR 
I NNCOINt  • NUNtCR 


• tONT  C>VAlf/C«VCCt  IN  OCtCCNOINO  ONOCN  OY  C«VAL 
HITN  CIOCNVALUCI  OlAOONAL 

or  cioCNvccroNt 

or  NOUO  A eOlUNNt  utco 

or  NOMt  A COLUMNS  oimcnsionco 


1C  N SCHLOtSCNI 


fNIt  tUONOuriNC  toxrt  in  OCSCCNOINC  SCQUCnCC  USINO  tM^TTLCSORr 

ICaCH  ALOONITnH  • 1791.  TMlt  TCCmNIQUC  It  VCMT  CmCICNr  HHLn  (ANO  only  MNCNI 

ThC  OATA  It  ALRCAOV  OAOttLT  tOOrCO  IN  ThC  MROMCA  SCQUCNCC. 

RCAL  eiOVALINRCOIN.NRCOlHI . C I OVCC < NRCO I H . NACOI M i 
CALL  TNACC 


iriNNCUSC.LT.f I 00  TO  900 
Nl •NMCUSC-I 
00  NOO  1*1 .Nt 

00  SOO  NC-I.I.<I 

iriciovAL(NC.NC)  .oc.ciovAL(NC*i  .NC*i  n ooro  *»oo 
RL  rcHr«c  I OVA'.  ( NC . NC  > 

CIOVAL(NC.NCt>CIOVAL INC*t .NC*I I 
CIOVALINC*! .NC*I I •ALrcnr 


00  TOO  NA«I .NACUSC 

NLTCHP-CIOvCCINA.nCI 
CIOVCCINR.NC I «C I OVCC i NX, NC* I I 
ciovcc<NA.NC*i )•RLrcnP 
>00  continuc 

SOO  CONTINUC 

«00  CONTINUC 

900  AC  TUAN 
CNO 


N-7J 


n n o o o 


1 


OAH  PACKAOC  AMCNOIX  N 

uriLtry  routincs 


CNVORI 

001 


SUBROUriNC  CNVORI t 0 AOO  ORIGIN  TO  CNVCLOPC  (RCAL  ONLYI 
U AHMPKTI  • HI  NOON  PACKCT  (RCALI 


fC  N SCHLOSSCRt 


RCAL  AHURKTIO.II 
iNCLuoe  HiNOcr.Lisr 

e 

c 

AUURKTd .UHINI«AHUPKTII . UNI Nt *AUHRKT ( t .HORIO) 
AUUPKT ( I .UNAXI •AUHPKT ( I . UMAX  I oAUUPKT ( I .UORIO) 
AUUPKTCO.UNINI ■AUUPKT ( 2 . HN 1 N > *AHUPKT 1 8 . UOR t 0 > 
AUUPKT (C.UNAXI  -AUUPKT  ( 8 . UMAX  I -AUUPKT ( 2 . UOR 1 0 1 
RCTURN 
CNO 


N-7V 


uuuuuuuuuuu  uouo  uouo 


OAN  PACKAOC  APKNOIX  N 
UriLlTY  ROUriNCS 


SURROUrtNC  CNVMlNt  • COHPUrC  CNVCLOPe  rOR  REAL  HINOOU 
U eUMPKTI  a HINOOU  PACKET  IREALI 


fC  H.SCNLOSSERI 


EXTERNAL  SUOROUTINES/PUNCTIONS  CALLEO 


mop'atl 


REAL  EUUPKTta.It 
INCLUOE  UINOEP.LtST 
EQUIVALENCE  I AX VER. HAXVERI 


INITIALIZE  envelope 

EUUPKTC I .HNINI *»9E»35 
EHHPKT( t .UNAX) >-9E*3S 
EHUPKTCa.UMINI  •«'9E»3S 
EUUPKTCe,UNAX)--9E»3S 


CET  POINTERS  TO  FIRST  AND  LAST  VERTICES 

NINVER«HVER*I 
AX VER>EUUPKT ( UUSEO . UHEAO ) 
iriNAXVER.OT.NlNVER)  00  TO  800 

IF(HAXVER.NE.HINVER)  CALL  NOFATLC 
• '8A0  NOOE  POINTER  IN  ENVUIN*) 

NAXVER*NlNVER*t 

EUUPKTI I .NAXVERI >0.  a the  other  vertex  is  the  origin 
EUUPKT(E.NAXVER) -0. 

800  continue 
c 
c 

C FI  NO  the  envelope 

c 

00  300  NVER*NINVER.NAXVER 

EHHPKTI I .HNINI aANINI lEUUPKTl I .UNI N) .EUUPKT ( I . NVER) > 
EUUPKTI I .UNAXI >ANAXt (EUUPKTI I .UNAXI .EUUPKT ( I .NVERI ) 
EUUPKT (8. UNI N) >AN INI ( EUUPK T ( 0 . UNI N ) . EUUPKT ( 8 . NVER > I 
EUUPKTI8.UNAXI >ANAXI I EUUPKT (8 .UNAX  I . EUUPKT ( 8 . NVER >1 

300  continue 
RETURN 
ENO 


CNVUIN 

OOt 


N*7S 


OAH  PACKAOC  AMCNOIX  N 
umtTv  AourtNCs 


cor 

001 


•cor  . (OAH.cori 


N>70 


nooo  o o o o 


N 


rACMir 

001 


OAN  OACKAOC  AMCNOt 
UMLITY  OOUriNCS 


e 

c 

c 

c 

c 


tuoROuriNC  FACoor 


I rtrnuc.  • 

I rCNOKN.  A 

0 rcoMio.  A 

1 oro.  A 

t AHCAN,  A 


I Mouse. NCUSC.  A 

I NOOIN.NCOtHI  A 


t A ooiNT  FAcroo  sroucruoc/coeFricieNrs/NeANs 
FAcroo  sroucruoc 

FAcroo  coCFFicieNrs  of  noonalizco  cnanncls 
FACrOO  COCFFICICNTS  OF  OOIOINAL  CHANNCLS 

vecroo  of  stanoaoo  ocvi.  :ons  of  ooio  cmanncls 
vceroo  of  hcans  of  ooioinal  cnanncls 
nunoca  of  oous  a columns  useo 
NUHOCO  OF  nous  A COLUMNS  OINCNSIONtO 


fC  N SCNLOSSeoi 


OCAL  FSrOUCtNOOIN.NCOINt .FCNOONCNROIN.NCOIHI 
Oe*L  rCORtO(NNOIN.NCOtN> .rneAN(7l 
RCAL  SrO(NCOlN) .ANCANINCOINI 

CALL  trace 


PRINT  factor  STRUCTURE  A COCFriCICNTS 
HRITCtS.ZZSl 

eas  FORNATC*  factor  structure 

A ’ CORRELATION  (LOAOlNOl  BETWEEN  CNANNELS  A FACTORS'! 

CALL  HATPRTtS.FSTRUC. * CHAN ' . NRUSC .NCUSE . NRO I M . NCOI N I 
URITCiS.SaSi 
sas  FORMAT 

A ('  NORMALIZEO  factors  --  COEFFICIENTS  OF  NORMALIZED  CHANNELS') 
CALL  MATPRTf 6.FCN0RM. ' CHAN ' . NRUSE . NCUSE . NRO I M . NCO I M ) 


UN-NORMAL IZE  AND  PRINT  FACTOR  COEFFICIENTS  A FACTOR  MEANS 

00  SZO  NC«I. NRUSE 
FMEAN(NCI*0. 

00  500  NR«I. NCUSE 

FCORIOINR.NCI «FCNORMtNR.NCl /STO(NR) 

FMEANINCI*FMEAN(NC! *(FCN0RMINR.NCI /STOINRI > «AMEANINRI 

soo  continue 
SZO  continue 

MRITEIS.SaSi 

SZS  FORMATI’  BUSED  FACTORS  --  COEFFICIENTS  OF  ORIGINAL  CHANNELS'* 
CALL  MATPRTcB.FCORIG. ' CHAN *. NRUSE . NCUSE . NRO I M . NCO I Mi 
URI  TE(e.S<*Sl 

S<*S  FORMATI'  BIASED  FACTORS  --  MEANS  (STO  DEV  * l.0>'l 
CALL  MATPRTIB.FMEAN. ' ' . I .NCUSE. I .NCOIMi 

C 

RETURN 

END 
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DAN  NACKAOC  ANNCNOIX  N 
UTILITY  ROUriNCS 


ft  INTO 
OOt 


suiROuTiNC  ruiNrot  a oer  rue  tNroNHATioN 

0 lomc.  a iNfONNATioN  aurrcR  in  rioer  roRHAr 

• 

1 NANrU.  a INTCRNAL  rUCNAHC:  STRINO  I THRU  12  CHARACreRS  TROH 

TMC  tCT  A THRU  Z.  0 THRU  9 AND  CASH  (-1.  If  A VARlASLe 
INtTCAO  or  A QUOTeO  LirCRAL.  NUST  8C  RAOOeO  WITH  9LANKS 
TO  A TOTAL  LCNOTH  OF  12  CHARACTCRS. 
t lexrHTi  a cxtcrnal  torhat  tr  tarci  *b8‘/’BST*/*cst* 


history 


HARY  TOKRKINS 
C A HCLMKe 
C A HCLHXe 
HARY  TOMPKINS 


LCC  OS/08/79 
tec  09/20/79 
Lee  09/29/79 
LCMSCO  09/23/80 


ReouiReMCNTs 
aloorithh  oestON 
ALOORIThh  cooino 
CALL  ..  CRINPO 


hcthoo 


INITIALlZe  lOPUe.  eSTA8LtSH  ’NAHriL*  PACKET  TO  08TAIN 
information  on  pile  or  facility  assignment.  DEPENDENT  UPON 
INPUT  DEVICE  USED.  GENERATE  lOFILE  AS  DEFINED  8Y  THE  FIOEF 
FORMAT. 

IF  tape,  set  I0FILECFI08FMI ; 

lEXFHT  (EXTERNAL  TAPE  FORMAT) 
'88*  '8ST*  *CST'  ANYTHING  ELSE 


UNIVAC  DATA 

OWO 

•8ST' 

•*ERR* 

*ERR*  *ERR* 

transfer 

6B 

•CST' 

*ERR* 

*ERR*  *ERR* 

FORMAT 

88 

‘88* 

*8ST* 

*CST*  *ERR* 

hachinE'DEpenoent  code 

ALIGNMENT  OF  SCALED 

INTEGERS 

ASSUMES 

36-8IT 

COMPUTER  WORD 

external  references 


ERFITM  a RETRIEVE  FACILITIES  ASSIGNMENT  INFORMATION 

CRINFO  a RETRIEVE  SYSTEM. RUN. PROGRAM,  t FILE  PARAMETERS 

MOVINT  a MOVE  INTEOER  FROM  ONE  STRING  TO  ANOTHER  STRING 

novcst  a MOVE  character  string 

INTEOER  LENCST  a LENGTH  OF  CHARACTER  STRING 

DOU8LE  PRECISION  C8S*»IN  a VARIA8LE  lENOTH  CHAR  STRINO  FOR  INTEOER 


e 

c 

c 

C EXCEPTIONS 

c • 


N«7B 


n o o o o o 


OAN  PACKAOC  AmNOIX  N 

urtuiry  MouriNCS 


ruNro 

oot 


l.tHC  rOLLONiNO  CONOinONS  OeNCAArC  TNC  CQUtVALCNT  ceoc  ANOHNi 
eoNoirioNt  lorurcrtocari 

rur  Nor  AttiONCo  *nul* 

riLi  ASSiONCo  ro  uNtuMOAreo  ocvice  *orNA> 

riLC  NAHC  SYNTAX  CAAOA  *CAA‘ 


OLOIAI.  OCCLAAATIONS 


C 


INCLUOC  KONXQT.LItr 
iNCLuoe  rioer.LisT 

INCLUOC  ASNOCr.LISr 


• CONNON  AAOOAAN  CXCCUMON  SUITCHCS.  COUNTCAS 

• NNCN0NIC8  rOA  POINTCAS  TO  LOCATIONS  IN 

• lOPiLC  eurPCA. 

a HAKCS  UNI  VAC  noo  asschblca  partial  UORO 
a HNCNONICS  AVAIL ASLC  TO  FORTRAN  V PROORANS 


LOCAL  OeCLARATIONS 


C 


C 

C 

C 

C 


INTCOCR  lOriLCIIOl 
INTCOCR  NAhriLCCI 
INTCOCR  IPAKCruSI 
INTCOCR  ISLANK/*  */ 
INTCOCR  J79C0P<ISI  / 


a AROUNCNT 
a AROUNCNT 
a PACKCT  rOR  CRFITN 

a ARRAY  CONTAININO  TaPC  track  ANO  CQUIP 
a COOC  HNCNONICS  FOR  CQUIP  cooes  l>IS 


I *7  sc  •. 
» *7  sc  •. 
s *7  SCS'  . 

*7  SCS*. 
9 '9  BC9*. 

t *9  SC9'. 

7 *7  <»C 

9 *7  <»CB*  . 

9*7  19  • . 

A *7  IS  •. 
• *9  I9N*. 

C ‘9  I9N*. 

0 *9  CON*. 

C *7  3A  *. 

F *7  9A  * / 


a bco/ficloata  translation  haroharc 
a bco/ficloata  translation  harouarc 


a oco/ficloata  translation  harouarc 


INTCOCR  UOCNSISI  / ‘900 
I *900*. *1900*. *3900*. 


INTCOCR  lOTFCO  0 


INTCOCR  ICXFCO  • 

INTCOCR  ibufnms.vi  / a 
I *9ST* . *CST* . *99* . a 

9 *CRR*.*CRR*.*BSr*.  a 

I *CRR*.*CRR*.*CST*. 

7 *CRR*.*CNN* .*CRR*  / 
INTCOCR  NOCNS  9 


* . *SS9* . a tapc  ocnsi tics 

*777  •/ 

UNI  VAC  OATa  TRANSFCR  COOC  IIBUFnT  ROM  IMOCXI 
I • QUARTCR  UORO 
9 • 9-BIT  PACKCO 
3 ■ 9-91 T PACKCO 

CXTCRNAL  FORNAT  COOC  1*99.  9*BST.  3*CST. 

•»»anvthino  clsc  cibufht  colunn  inocx) 

LOOKUP  TA9LC  FOR  BUFFCR  FORNAT  OCPCNOINO 
UPON  CXTCRNAL  FORNAT  ANO  UNiVAC 
HSA  OATA  TRANSFCR  FORNAT 


INOCX  TO  JOCNS  ARRAY 


N-7S 


uuou  uouoo  uuuu 


OAH  PACKAOC  APMNOU  N 

uMLtrv  KouriNCt 


rLinro 

003 


INTCOCO  NCQUIP 

iNrcecR  NOURCO 
iurcoco  iNOCNO(O)/ 

I *000'. *500*. ‘000 
iNrCOCR  IRKT 
INTCOCR  IsrriL 
tNrcocR  I or r UN 
INTCOCR  KNTruN 

e 

e 

e RRoecDuRC 

c 

c 

CALL  TRACC 


a COUIRNCNT  cooc 
a COUIRNCNT  ouocooc 
a tarc  ocNcirico  fron  crinfo 
1000* . *0000*/ 

a RACKCr  FOR  FUNCTION  NOOCOO  IN  CRINFO 

a otatuo  of  intcrnal  filc 
a otatuo  OF  function 

a COUNT  OF  UOROC  RCO.  TO  TRANONIT  ALL  DATA 


INiriALtZe  INFORNATION  OUFFCR 

00  too  1>I.7 
too  lOFILCI  IKIBLANK 
IOFILC(ei«0 


OCT  UR  A RACKCr  FOR  CALL  TO  CRFITN  tCRFITH  IS  FORTRAN  ORIVCR 
UHICH  CALLS  UNIVAC  CXCCUTtVC  RCQUCST  FITCNSI 

CALL  HOVCSrt  tPAKCT,  I I I . MSI  . 

- NANFtL  . I n . (LCNCST  CNANPIL  . tan  . * ‘I 

CALL  CRFITNt IPAKCTI 


CHCCK  FOR  VALID  FILCNANC 
NCOUlR-ASNSt  t IRAKCr 17)1 

IF  INCQUIR.CO.O  .AND.  IRAKC*( I I .CO. lOLANK  .ANO. 

I IRAKCTIOI  .CO.  lOLANKI  00  TO  **00  S FILC  NANC  SYNTAX  CRROR 
IF  (NCQUlR.Or.Ol  00  TO  ISO  a FILC  IS  ASSIONCO 
lOFILCIFIOCQTf'NUL’  » FILC  NOT  ASSIONCO 

00  TO  900 
C 
C 

C CHCCK  IF  COUIRNCNT  TyRC  IS  TaRC  OR  DISK 
C 

ISO  IF  (NCOUlR.Oe.t  .ANO.  NCQUIR.LC. IS)  00  TO  ISO  I TARC 
IF  (NCOUlR.OC.a**  .ANO.  NC0UIR.LC.3I  .ANO.  NCOUl  R . NC  .20 1 
I 00  TO  300  a FASTRANO  orun 

IOFILCiFIOCOri>*OTHR*  a UNSURRORTCO  OCVICC 

00  TO  900 
C 

c 

C COUIRNCNT  TYRC  IS  TaRC 
C 

ISO  IOFlLCIFIOCOri>*TARC* 

CALL  NOVCOT  I lOF ILC< FI OCQC I . I .6. J79C0RI NCOUl RI .« . 3. I BL ANKI 
CALL  NOVCOT  fl0FILClFI0TRKI.I.6.J79C0R(NC0UlRl.l.3.IBLANKI 

e 


DAN  MCKAOC  AMCNOIX  N 

uriLirr  aoutincs 


rUNTO 

00« 


e 

c cxrRAcr  ocNSiry  and  nsa  data  rAANsrcM  roANA?  taoh  rirent  aakct 
e 

ir  (NCQuiA.or.tt  00  ro  loo 

NOCNS  • rLOcso-is.o.iAAKCrtoii  a roA  taac  unito  othca  than 
lorrco*!  a uniscavo  io/ih/io/ao 

00  ro  no 

too  If  iNCQuiA.or. tot  00  ro  aoo 

NOCMO  • rLOISS'tS.A.IAAKCriOII  * t a rOA  7>TAACK  uniscavo  ia/ih/is 
00  ro  Aio 

Aoo  ir  iNCQuiA.or. lit  00  ro  aao 

NOCNS  • IASS  (rL0(3S*ll.l.iAAKCT(9tl-i»l  a roA  s-taack  uniscavo 
AIO  IOTFCC  • FLO  ( 3S*I7  .A . I PAKCT ( 9 1 I * 1 a 1 A/ I •»/ I O/AQ/ 30/ lA/ !•»/ SO 

IF  CI0TFC0.0r.3t  IOTFCO-3 
00  ro  AIO 

AAO  N0CNS>6  a FOA  UNISCAVO  MIA  AND  IIA 

IOTFCO-3 

AIO  IOFILC  IFIOFPII  - JOCNSCNtCNC' 

C 

C 

C USINO  exrCANAL  FOAMAT  ANO  NSA  data  TRANSFCR  format 
C LOOK  UP  aUFFCR  FORMAT 

c 

IF  I ICXFMT.NC. 'BO*  t 00  TO  A<*0 

ICXFCO-t 

00  TO  A70 

AHO  IF  ( ICXFMT.NC. 'BST* J 00  TO  A50 
ICXFCO-A 
00  TO  A70 

ASO  IF  I ICXFMT.NC. *CST' I 00  TO  AOO 
ICXFCO-3 

00  TO  A70 
ABO  ICXFCO-V 

A70  IOFILC  (FIOBFMI  • IBUFMTC lOTFCO. ICXFCO) 

c 

C CXTRACr  CURRCNT  RCCL  NUMBCR  AND  NCXT  RCCL  NUMBCR  FROM  FITCMS  PACKCT 
C 

IOFILCIFIOCRLI-IPAKCTI lAl 

1 or  I LC I F I ONRL I • I P AKC  T ( I 3 1 

IF  (lOFiLC(FiONRL) .CO. 'aaiaaa't  iofilccfionrl > >' 
c 
c 

c cxtract  ano  chcck  noisc  constant,  insurc  that  tapc  blocks  lcss 
C than  B CHARACTCRS  arc  TRCATCO  as  'NOISC 
c 

lOriLClFIONOSi -ASMSSC  tPAKCTcS) t 
IF  f lOFILCIFIONOSt .oc.st  00  TO  ABO 
IOFILC  (FIONOSI-B 
CALL  CRCSF  INAO.'aMOOC  S..8  . 'I 

c 

e 

c CALL  CRINFO.  IF  STATUS  RCTuRNCO  IS  ACCCPTaBLC  UPOATC  IOFILC. 

C IF  status  RCFLCCTS  a PROORAMMCR  CRROR  issue  OIAONOSTIC. 

e 

ABO  CALL  CRlNFOClSTFlL.ISTFUN.KNTFUN.tPKT.I.  IPAKCT.IQt 


N>B1 
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uriLirr  RourtNCt 


rLINTO 

oos 


trtisrrtL.NC.o.ANO. ttrriL.NC.c.ANO.ttrriL.NC.si  call  nohaani 
A *MOORANNCR  CftftORt  flLC  tTATUt  * .CM^INCISrftL  .tt . 

• * IN  CRlNrOM 

irmtrrtL.CQ.o.oii.itrriL.CQ.cl.ANO. 

A fitrruN.CQ.o.OR.icrruN.CQ.s.oN.itrruN.CQ.7tt  oo  ro  *«o 
trtitrruN.NC.t.ANO. itrruN.NC.si  call  houarni 
A ’RROORAHHCR  CRRORt  rUNCTtON  trATUt  * .CCtHlNt ItrrUN.CI . 

• * IN  CRlNrO’l 
00  TO  000 

too  lorrco  • rLO(is«i.x.iRKn  a o/o/quartcr  rackco 
lorrco  • HiNOdorrco.si 
loriLCcrieorNi  • lourHriiorrco.iexrcoi 

NOCNO  • AtNOeURKTI 

irnoriLCirtorRKt  .CO. 'OM  nocno  • nocns  »t 
lOriLCcrtOrRI)  > INOCNStNOCNSi  A OCNSITY 

00  ro  000 
e 
e 

C CQUIRHCNr  TYRC  1$  DISK  crASTNANO  ORUN) . UtC  CQUIRnCNT  COOC 
C ANO  SUOCOOe  TO  OerCRHINC  CQUIRHCNT  COOC  HNCHONIC. 

C 


300  IOriLC<riOCQTI>'OI8K* 

ICQCAS>NCQUIP>t3 

00  TO  (StO. 3tO. 330. 3*»0. 390. 360. 370. 3001  . ICQCAA 
3to  NfuocD-AOHtenPAKeritni  a cquip  cooe  tn 

NOOCAO-NOueCO*! 


NSOCA9«NINO(3.HAXO( I .NSOCAOIl 
00  TO  I3tt.3tt.310l .N8BCA8 

3tt  tortLeiPtocQci>‘Pt* 

00  TO  900 

3to  ioPiLCtPioeaci«*roo’ 

00  TO  900 

3t0  00  TO  900 

330  ioriLC(rtococ)**r<»* 

00  TO  900 

3«»o  ioriLC<PtocQC>»*ro* 

00  TO  900 

390  toPiLC(Ptoeoci«*rt7* 

00  TO  900 

300  N9U0CO*A9N9OMPAKCTIltn 
N9OeA9>NtU0e0*t 
N9OCAt>NtN0(3.NAX0< I .N90CA9I > 
00  TO  (30t.30A.30e> .N90CA9 

300  IOriLCIPIOCQCI«’Pt<*’ 

90  TO  900 

39*»  toriLC(riocoei«’Pt«* 

00  ro  000 

390  t0PILCIPt0e0Ct«*rt9* 

00  ro  000 

370  ionLC(Piocoei«*rRo* 

00  ro  000 

300  ioriLC(Piococi**rco* 

00  ro  000 
e 
e 

C riLC  NANC  ovntax  crror 


a 9U0C00C  00  OR  01 
a 9U0C00C  ot 

a CQUIP  COOC  t9  NOT  U9C0 
a CQUIP  COOC  to 

a CQUIP  COOC  07 

a CQUIP  COOC  to 

a CQUIP  cooe  to 

a 9U0C00C  00 
a 9U0C00C  01 
a ouocooc  ot 

a CQUIP  COOC  30 
a CQUIP  COOC  31 


♦ 


♦ 


N-Ot 


DAN  PACKAM  AMCNOIX  N ftlNTt 

uncirv  RogriNCt  OM 


e 

*00  iortLC(fiocQn«*ciiii* 
e 
e 

e TCRNINATC 

e 

000  RCruRN 
CNO 


( 


N*iS 


OM  FACKAW  AmNOtX  N 

vriitry  nouriNCt 


•etfif 

OAI 


tumour INC  occur  • AotiON/eoNourc  coNorANrt  roo  cort  ocoNcrov 
NitrORV 

C H tCNLOOOCR  LCe  00/17/71  ONIONAL  COOC 

NAR7  rOHOKINO  LCC  10/11/70  rCNO  LANOAT-l  CONSrANrt 

HcrMOO 

AceouoiNo  ro  Ncorom  AStiON/conoure  AAMomurc  coNsrANrt. 

CXrCANAL  RCrCACNCei 

NOrAn  • MINr/COUNT/LOO  ’fATAL  CRRON’  OlAONOtriC  NCSSAOC. 
CXeCRTIONS 

I.  If  NCRTtni  It  INVALID  THCN  OCNCAArC  fATAL  OlAONOtTIC  AND  UtC 
LANOtAT-l  CONtTANTt. 

OLOOAL  OCCLARATIONt 

INCLUOC  KONNCR.LItr  • CONNON  CNTt  tCCNC  fARANCTCM 

INCLUOC  KONf.r.Lltr  • CONNON  AOJUtTNCNr/NCOItTNAT ION  fANANCTCAf 

LOCAL  OCCLANATIONt 

NCAL  RAOCO/.OI7VtS>OOI'  • NAOIANt  fCN  OCONCC 

COUlVALCNCC  INCRTtlll.NNCNTtl  • 1ST  0101 T Of  SCCNC  • • LANOtAT  • 

moecouNC 

CALL  TNACC 

CNCCK  LANOtAT  NUNOCN 

tri  iNCNTtMi.Lr.n.oN.iNCNrtm.or.oi  i oo  ro  ooo 
LtAr-l  LtAr-C  LtAT-l  L0Ar>0 

00  rot  too.  coo.  t 0000  ro  o 


N-m 


OAN  MCKAM  Ammu  N 

uriiiTY  muriNCB 


•eCKT 

•w 


A 

A lOA. 

A NNCATt 


•AA 


Itt.  AAA.  A AAAA  TA  AAAA  AAYA  AINCC  lAimCN 
t.  A IAAA  TA  lAAA  AATA  AINCC  LAUNCH 


C 

c 

e AAAtAN  ANAITNANT  CANATANrc 

e 

tOA  CANTINUC  a LANOCAT'I 

iriNCNAAmi.COr  • *)  NCNtATfll 
IffO  iriNCNLlN.CA.OI  NffALIN«CIAO 
triNCNAAN.CA.Ot  NCAfAN-BCAO 
irtALTKN.CA.Ot  ALrKN«AtC. 
iriALrtAN.CA.OI  ALTAANvALrKN/.OAA 
If INCRCNA.CO.Ot  NCACHA  • A 


ACNA«.1AA0AA 

ACNA«O.O-.CAIIC0 

tCNCa.OAASOS 

ACNUalA.AtAA 

CCNlHC^.COIAM 

CCNrit*.OSttlO 


NINROA 
MIRROR 
ACT  I VC 
ACriVC 


LAAT-I* 

• NOMINAL  LINCA/ACCNC 
NOMINAL  AANRLfC/ACCNC 
NOMINAL  ALTiruOC  IKILOMCTRCtl 
NOMINAL  ALTiruOC  IAANRLCA* 
NOMINAL  NUHACR  Of  CNANNCLt 
(RAOIANtI 
(RAOUNOI 
iraoianai 
RADIAN  NATURAL  fRCQ  IRAO/ACO 
ACAN  ANOLC  IRAOIANAI 
ACAN  fCRIOO  I ACC  I 


• MIRROR  ACAN  COCf 

• MIRROR  ACAN  COCr 
ACAN  COCf 


I LANOAAT^t 
‘I  NCRAAT 1 1 l«*LAAT-t* 

• NOMINAL 


COO  CONTINUC 

IflNCRAArm.CQ. 

If CNCRLIN.CO.OI  NCRLIN*C]li»0 
If CNCRAAN.CO.OI  NCRAAN*StO** 
IflALrKN.CO.OI  ALTKNaAIC. 
IflALriAN.CQ.Oi  ALTAANvALTKN/ .080 
If INCRCNA.CQ.OI  NCRCNA  • V 


LINCA/ACCNC 
AAMfLCA/fCCNC 
ALTiruOC  ikilomctrcai 

ALTITUOC  ItAHftCAl 
NUHACR  Of  CNANNCLS 


c 

c 

c 

c 


ACNAa.IiABNO  I MIRROR 
ACNA«0.0-.ti7tA0  I MIRROR 
ACNC-.0A7AAA  • MIRROR 
ACNH*I7.0A0I  • MIRROR 
ACNTNA-.COIAOA  • ACTIVC 
ACNIIA^.OICIIO  • ACTIVC 
00  TO  AOO 


• NOMINAL 

• NOMINAL 

• NOMINAL 

• NOMINAL 
ACAN  COCf  IRAOIANAI 
ACAN  COCf  IRAOIANAI 
ACAN  COCf  IRAOIANAI 

RADIAN  NATURAL  fRCO  IRAO/ACCI 
ACAN  ANOLC  IRAOIANAI 
ACAN  fCRIOO  I ACC  I 


TCNR  CONATANTA  UACO  fOR  TCATINO 

300  CONTINUC  • LANOAAT-1 

IflNCRAATIII.CO. * *1  NCRAATIt l••LAAT.|* 

If INCRLIN.CQ.OI  NCRLINatSVO  • NOMINAL 

IfINCRAAH.CO.OI  NCRAAN*3tAN  • 

lflALTKN.CO.Oi  ALTKN«Alt.  I 

lflALTAAN.CO.OI  ALTAAN*ALTKN/ . OAA  0 

If INCRCNA.CO.OI  NCRCNA  • A 0 


LINCA/ACCNC 
AAMRLCA/ACCNC 
ALTITUOC  ikilomctrcai 
ALTITUOC  lAANRLCAl 
NUNACR  Of  CNANNCLA 


ACNA* . 3AAAN0  A 
ACMA«0.0*.AA7tA0  0 
ACNC«.0A7AAA  0 
ACINI*I7,0A0S  0 
ACNTNA^.tOIAAA  0 
ACNTIA-.OStlSO  0 
00  TO  000 


NOMINAL 
NOMINAL 
NOMINAL 
NOMINAL 

iraoianai 

IRAOIANAI 
IRAOIANAI 

MIRROR  RAC* AN  NATURAL  fRCO  IRAO/ACCI 
ACTIVC  ACam  ANOLC  IRAOIANAI 
ACTIVC  ACAN  fCRIOO  (ACCi 


MIRROR  ACAN  COCf 
MIRROR  ACAN  COCf 
MIRROR  ACAN  COCf 


NOA  CONTINUC 


A LANDOAT-N 


H-OA 


uuuu 


DM  DACKAM  AMCNOIS  N 
DfILITT  mUTINCt 


•ecRf 

tti 


e 

e 

C rVAO  DAO  LANOtAT  mifiDffR 

e 

MO  CAtl  NOrATL t *eONf VANTO  AVAtLAOLC  ONLY  fOR  LtAT-I.SUI** 
NCmAT(ll«*LOAr-f 
NCMATltt** 

M fO  too  • AOtlON  eONOTANYt  fOO  LANOOAY-t  ANTHAY 


eenouTC  rcmainino  eoNSYANro 
too  NCMCN«*Nft* 

triemiN.CQ.ei  eriH,tN«.s*(NCAtiN*n*o.  a occnc  cc»ircK 
trierROAH.co.oi  crMAN*.s*(NfR«An*i  i*o.  • sccnc  ccntcn 

ROLRAC»AOLOCO«RAOCO*tCNC 
teNTN»*«CNrN«>*l. 

tCNriM«(fCNrts«fCNHi/rkOAr(N(RSAn*ti 

c 

e 

RCTURN 

e 


UTlLirv  ROUriNCS 


I 


OCNON 

Ml 


SMUOUriNC  OCNON  0 OCONCTRIC  CONSTANTS  TO  NCOISTCR  NON  NNOJCCTION  DATA 

c 

c 

c 

C NISTORV 

c 

c 

C W H SCNLOSSCR  LCC  '*10/70  ORIOINAL  COOC 

c 

c 

c nctnoo 

c 

c 

c ACCOROINO  TO  NCRTSd)  ASSION/CONPUTC  APPROPRIATC  CONSTANTS. 

C 

C 

c exrcRNAL  RcreRCNces 

c - 

c 

C NOFATL  a PRINT/COUNT/LOO  'FATAL  ERROR*  OlAONOSTIC  NESSAOE 

C 

C 

C EXCEPT tONS 

C - 

C 

C 1.  IF  THE  ENTRY  POINT  THAT  MAS  CALLED  DOES  NOT  AGREE  UITH  THE  CONTENTS 

C OF  NEROeO.  then  A FATAL  ERROR  IS  OENERATEO. 

C 

C e.  IF  NERTSdl  IS  INVALID  THEN  SET  CONSTANTS  TO  LANOSAT-I  VALUES  ANO 

C OENERATE  FATAL  ERROR. 

C 

C 

C OLOOAL  declarations 

C 

C 

INCLUDE  KDHNER.LIST  1 COHHON  ERTS  SCENE  PARAMETERS 

INCLUDE  KDNFIT.LIST  I COHHON  ADJUSTMENT /REOI STRAT I ON  PARAMETERS 

C 

e 

C LOCAL  DECLARATIONS 

C 

C 

REAL  RAOEO/.OI7HS3E88I/  I RADIANS  PER  DECREE 

EQUIVALENCE  (NERTSI I > .NNERT8)  i TO  USE  ERTS  NUHOER  AS  CASE  VARIAOLE 

C 
C 

C PROCEDURE 

C 

C 

CALL  TRACE  I 'OCNON* I 

IFINEROEO.NE. 'HOH'I  CALL  HOFATLI  'OEONETRY  NOT  MON  IN  OCHOM'I 
00  TO  100 

c 

c 

c 

c 


‘jt 


• .'I.  f 

••  V.'C’ 


r 


T5? 


N-S7 


u o 


QAM  MACKAOC  AMMCNOIX  N 
UTILITY  ROUTINCt 


QCNOn 

•0> 


CNTRY  OCLCe  • OCONCTRIC  CONtTANTt  TO  RCOItTCR  LCC  MROJCCTION  DATA 

C — - 

c 

CALL  TRACCI*OCLCC*> 

irtNCNOCO.NC.*LCC*l  CALL  NOFATLC  'OCOMCTRV  NOT  LCC  IN  OCLCCM 
00  TO  too 

e 

e 

c 

c 

CNTRY  OCRS  • OCONCTRIC  CONSTANTS  TO  RCOISTCR  RS  RROJCCTION  DATA 
C - 

c 

CALL  TRACCC ‘OCRS’I 

irCNCROCO.NC. ‘R8‘l  CALL  NOFATLC  'OCONCTRY  NOT  PS  IN  OCRS ‘I 
00  TO  too 
C 
c 
c 
c 

CNTRY  OCSOH  • OCONCTRIC  CONSTANTS  TO  RCOISTCR  SON  RROJCCTION  DATA 
C — - - 

c 

CALL  TRACCI 'OCSON* I 

IFINCROCO.NC. ’SON’)  CALL  NOFATLC  ’OCONCTRY  NOT  SON  IN  OCSOHM 
00  TO  too 
C 
C 

c 

c 

CNTRY  OCUTN  0 OCONCTRIC  CONSTANTS  TO  RCOISTCR  UTH  RROJCCTION  DATA 
C 

c 

CALL  TRACCC 'OCUTN’I 

IFCNCROCO.NC. *UTN*I  CALL  NOFATLC  'OCONCTRY  NOT  UTN  IN  OCUTH‘1 
C 
C 

C CNCCK  LANOSAT  NJH8CR 
C 

100  IFC  CNCRTSC II .LT. 1 1 .OR. CNCRT8C 1 1 .0T.6I  I 00  TO  800 


LSAT-I 

LSAT-C 

LSAT-3 

LSAT-0 

00  TOC  no. 

8t0. 

0 

0000 

TO 

09SO 

DAYS 

SINCC 

LAUNCH 

0 

330. 

•♦NO. 

0 

0000 

TO 

9999 

DAYS 

SINCC 

LAUNCH 

0 

no. 

080 

I . 

0 

1000 

TO 

1999 

days 

SINCC 

LAUNCH 

0 

NNCRTS 

c 

c 

C ASSION  AR8ITRARY  CONSTANTS 
C 

no  CONTINUC  0 LANOSAT*! 

IFCNCRSATIII .CO. * *1  NCRSATC 1 1 •*LSAT*I * 

IFCNCRCNA.CQ.Oi  NCRCHA  • 0 NONINAL  NUNBCR  OF  CHANNCLS 

00  TO  000 

e 

SCO  CONTINUC  0 LANOSAT >C 


N*00 


nnnn 


0«N  PACKAOC  AIN>CNOIX  N 

ymirv  Rountict 


irtNCMATin.CQ. * *1  NCiitArm**LtAr>»* 

irtNCRCNA.CQ.OI  NCRCNA  • % • NOMINAL  NUNOCN  W CHANNCLS 

c 

no  CONTtNUC  • LANOtAT-X 

triNCNOATttl  .CO.  * *1  NCRSArm-'LSATO* 

trtNCNCNA.CQ.Ot  NCRCNA  *0  A NOMINAL  NUNOCR  Of  CNANNCLS 
00  TO  000 

c 

AMO  CONTtNUC  0 LAN0tAT*i» 


FLAO  RAO  LANOSAT  NUNOCR 

000  CALL  NOFATL I ’CONST ANTS  AVAILABLC  ONLY  FOR  LANOSAT-t ,0.A3‘ > 
NCRSATIII*’  * 

NCRSATIO*'  ’ 

00  TO  no  A ASStON  CONSTANTS  FOR  LANOSAT*!  ANYWAY 

C 
C 

C CONPUTC  RCHAININO  CONSTANTS 
C 

900  IFtNCRLIN.CQ.Ot  NCRLIN-A903  A NOMINAL  UNCS/SCCNC 

IFICTRLIN.CQ.O. > CTRLIN«.S*(NCRLIN»:i«0.  a sccnc  ccntcr  linc 
IFCNCRSAN.eO.O)  NCRSAH-SSHS  A NOMINAL  SAHPLCS^ SCENE 

IFICTRSAN.EO.O. I CTRSAN-.S* (NERSAN»I > »79.  A SCENE  CENTER  SAMPLE 
IFIALTSAH.EQ.O)  ALTSAN«I . 0E*7  A PSEUOO  ALTITUDE  ISANPLESI 

IFI ALTKN.EQ. 0. I ALTKH-ALTSAH«.050  a PSEUOO  ALTITUDE  (KILOMETRES) 
SCNA-I.O  A 

SCN0»0.9C-7  A 

SCNC-0.0  A 

SCNHaNCRSAM  A 

SCNTMS*C.0*ATANI0.9«SCNH/ALTSAMI  a ACTIVE  SCAN  ANOLE  (RADIANS) 

SCNTIS*I.0E>7  A 

NCRSEN«'MSS* 

ROLRAC-ROLOEO*RAOCO*SCNC 
SCNTNC*SCNTMS/e.  A 

SCNTIH-SCNTIS  A 

C 

c 

RETURN 

C 

CNO 


eCNOM 

003 


N*09 


OAN  MCKAOC  AmNOIX  N 

uriLirv  RouriNCt 


oeoNtr 

oat 


tUIRQUriNC  eCONtr  • AttlONt  UNCORRCCrCO/OROINATC  COOROINATC  eONSTANta 


e 

c 

e NitroRT 

c 

c 


c 

j e crisp 

LCC 

OB/ 18/78 

REQUIRENCNTS 

e 

j e crisp 

LEC 

08/B8/78 

ALOORITHN  OESION 

e 

J c crisp 

LCC 

08/88/78 

alboritnh  coding 

c 

e 

c nctnoo 

c 

c 

C CNCCK  NCRmi.ir  INVALID  SCT  NCRrSMl  • I ISSUE  FATAL  NCSSAOC. 

C CHECK  NEROEO  IF  INVALID  SET  NEROEO  • ‘EAT’  AND  ISSUE  FATAL  MESSAGE 
C CALL  APPRDPRIATE  OCXXX  ACCORDING  TO  PROJECTION  USED. 

C 


c external  references 

C 

c 

OCERT 
OCNDN 
OCLCC 
OCRS 
OCSON 
OCUTN 
HOFATL 


C 

c 
c 
c 
c 
c 
c 

C EXCEPTIONS 
C OLO0AL  declarations 


• ASSION/COHPUTE  CONSTANTS  FOR  ERTS  PROJECTION 

• AS8I0N/C0NPUTE  CONSTANTS  FOR  HON  PROJECTION 

• ASSION/COHPUTE  CONSTANTS  FOR  LAMBERT  PROJECTION 

• ASSION/COMPUTE  constants  FOR  PS  PROJECTION 

• ASSION/COHPUTE  CONSTANTS  FOR  SOM  PROJECTOR 
I ASSION/COMPUTE  CONSTANTS  FOR  UTM  PROJECTION 


• PRiNT/LOO/COUNT  'FATAL  ERROR'  MESSAGES 


I.  THE  FOLLOHINO  CONDITIONS  GENERATE  FATAL  ERRORSi 
NEROEO  > 'BAO' 


INCLUDE  KOMXQT.LIST 
INCLUDE  KONNER.LIST 


LOCAL  declarations 
NONE. 

PROCEDURE 

CALL  TRACE 


• COMMON  PROGRAM  EXECUTION  SUl TCHES. COUNTERS 
a ERTS  SCENE  -PARAMETERS 


* 


N*BB 


n o 


OAN  MCKAOC  AMCNOIX  N 
liriLITY  ROUTtNeS 


•comr 


C 

e 

e CNCCK  roR  valid  inaoc  data  oconctry 

e 

100  trCNCROCO.NC.‘DAO‘l  00  TO  COO 
NCROCO  • *CRT‘ 

CALL  ROrATLCMNVALIO  INAOC  DATA  OCONCTRY*) 

e 

c 

C CALL  ARRRORRIATC  ROUTINC  TOR  INAOC  DATA  OCONCTRY 
C 

COO  irCNCROeo.CQ.’LCC*)  call  oclcc 
iriNCROCO.CQ. *RS  ’)  CALL  OCRS 
iriNCROeO.CQ.’SON*)  call  ocson 
triNCROco.eo. *utn’i  call  ocuth 

irfNCROeO.CQ. ’HON’ ) CALL  OCHON 

c 

irtNCROeO.CQ. ’CRT’)  CALL  OCCRT 


900  RCTURN 


ooooooooooooooooooooooooooooooooooooooooooouoooooooooo 


OAN  MCKAOC  APKNOIR  N 
(irtilTY  ftOUriNCt 


OCNTIC 

001 


tumourtNC  ocNnct  • ocncratc  ncKt  roR  outrut  hinoou 

I LURTtC)  A OUTPUT  UNIT  POR  TICK  LISTINO  (NONC  IP  01 


NItTORV 


C H OCNLOSOCR  LCC 

C N SCNLOSSCR  LCC 


10/00/73  ORIOINAL  COOC 
10/09/70  URORAOe  OOCUHCNTATION 


HCTHOO 


eONRUTC  TICK  COOROINATCS  IN  SPeCIPICO  COOROINATC  SYSTCN.  TRANSPORN 
TO  OTHER  COORDINATE  SYSTENS.  STORE  IN  TICK  TABLE.  ANO  PRINT  IP  NON-ZERO 
OUTPUT  UNIT  SPECIPIEO.  SORT  TICK  TABLE. 


NACHINE-OEPENOENT  CODE 


ASSUMES  36-BIT  HORO  POR  PACKINO  TICKS  INTO  TICK  TABLE. 


EXTERNAL  REPERENCES 


NONOTE 

HOHARN 

0**A 

AHO 

P7A 

OHU 

ISRTBA 

RLOISX 

NOUNIT 

DNPTIC 


0 PRINT/COUNT/LOO  ’NOTE*  OIAONOSTIC  NESSAOE 
0 PRINT/COUNT/LOO  ’WARNINO*  OIAONOSTIC  NESSAOE 
0 OEOORAPHIC  coordinates  POR  ADJUSTED  SCAN  COOROINATCS 
• ADJUSTED  SCAN  COOROINATCS  POR  OEOORAPHIC  COOROINATCS 
a PPO  COORDINATES  POR  ADJUSTED  SCAN  COOROINATCS 
a OEOORAPHIC  COOROINATCS  POR  UTH  COOROINATCS 
a INTCOCR  BUBBLE  SORT  ASCEND  I NO 
a REAL  TO  INTCOCR  SEXAGENARY  ARRAY 
a PRINT  PACE  HCAOINO  ON  SPECIPIEO  UNIT 
a OUNP  CONTENTS  OP  TICK  TABLE 


EXCEPTIONS 


t.  IP  the  coordinate  system  POR  CITHER  PRIMARY  OR  SECONDARY  TICKS 
IS  NOT  OCPINCO.  A WARNINO  OIAONOSTIC  WILL  BE  ISSUED. 

0.  IP  THE  TICK  table  IS  NOT  LAROC  CNOUOH  TO  CONTAIN  THE  APPROXIMATE 
NUNBCR  OP  PRIMARY  TICKS  TO  BE  OCNCRATCO.  A WARNING  OIAONOSTIC  IS 
ISSUED. 

3.  IP  SPACE  IN  THE  TICK  TABLE  IS  CXHAUSTCO  WHILE  THE  TICKS  ARC  OCINO 
OCNCRATCO.  A NOTE  OIAONOSTIC  IS  OCNCRATCO  ANO  THE  RCNAININO  TICKS 
ARC  OCNCRATCO  ANO  LISTCO.  BUT  NOT  STORED  IN  THE  TICK  TABLE. 


N*OC 


DAN  PACKAOC  AmnOtX  N 

UmiTY  ROUrtNCt 


C OLOtAL  OCCLARATIONt 

C — 

c 

meLuoc  KONXQT.Lisr 

INCLUOC  KONNCR.LISr 
tNCLuoc  Konrir.Lisr 
INCLUOC  KOHOHU.LISr 
INCLUOC  KONTOL.LISr 
INCLUOC  uiNOcr.Lisr 

c 
c 

C LOCAL  OCCLANATIONt 

c 

c 

LOGICAL  THCRIO  • IS  TRANSVCR8C  HCRCATOR  CCNTRAL  NCRIOIAN  SPCCiriCO? 

RCAL  CONC  a ZONC  CONRUTCO  FRON  UTHCNO  CONLY  VALID  IF  INTCOCRl 

INTCOCR  NZONC  » VALID  UtN  ZONC  OR  >9909 

C 

c 

C FROCCOURC 

C — 

C 

CALL  TRACC 

c 

c 

C INiriALIZC 

c 

KTBLTY-’TICK* 

NTICKS-0 

NL INC* I 00  a TO  FORCE  PR  I NT  I NO  OF  HE AO  I NO 
IFCLUNTIC.LT.O*  00  TO  760  $ DON'T  OENERATC  TICKS 

NUNIT*LUNT|C 

IFINCTLPT.lt. S>  NUNIT-0  a DON'T  LIST  TICKS  8ASC0  ON  NOMINAL  CONTROL 
C 

c 

c start  with  primary  ticks 
c 

LVLTIC-0 

NOOTIC-MTIC 

c 

c 

C MARK  UTM  tick  COORDINATES  UNKNOWN 
C 

600  UTNC-9E*3C 
UrMN«9C*S6 
C 

c 

C CNCCK  IF  UTM  ZONE  OR  CENTRAL  NCRIOIAN  NAS  9CCN  SPCCIFIEO 
C 

THCRIO*. false. 

IFIAOSIUTNCMO* .LT. ISO. * TMCRIO*. TRUE. 

NZ0NC**9999 

ZONC*( Its. •UTMCMOi /6. 

IFIAlNTfZONO.CQ.ZONCl  NZONC*ZONC 
C 

c 


OCNTIC 

00» 


a COMMON  PMOOMAN  CXCCUTION  SNITCNCS.  COUNTERS 
a COMMON  CRTS  SCCNC  PARANCTCRS 
a COMMON  AOJUSTMCNT/RCOISTRATION  PARANCTCRS 
a COMMON  OUTPUT  HINOOH  PACKETS 
a COMMON  multi-purpose  TA6LC 
a OCFINC  STRUCTURE  OF  WINOOH  PACKETS 


N-9S 


OAN  MCKAOC  AmNOtX  N 

umirv  ROuriNCt 


•curie 

•os 


e riNO  MINOOH  tyrc 

c 

iriKeVOHH(NOOTIC).CO.*tCA*l  00  TO  xoo 
Iff (KSvouMtNooriei .co. *oco*t .or. 

A (KOYOMMtNOOriei.CQ.  *NIN*ll  00  TO  •»00 
irUKOYOUUINOOriCi.CQ.’KN  M.OR. 

A fKOYOMM(NOOne).CQ.*HCr*ll  00  ro  000 
CALL  N0MARN(*N0  TICKS* I 
00  TO  000 

c 

c 

C eONVCRT  CNVCLORC  TRON  SCANNCR  UNITS  TO  TICK  UNITS 

c 

SOO  NINrNS«(NSAOUM(HUN.NNINI»HSAOHU(ULIN.NOOTICt  -I  I / 

A NSAOUHIHLIN.NOOnCI 

NAXTNS>NSAOHM I ML  I N . UNAX I / NSAOHH I ML  I N . NOOT I C I 
HlNreu«(N8A0UU(USAN.MNlNI»HSA0UU(USAN.N00riCi -11/ 

A NSAOMHIUSAN.NOOr ICI 

NAXrCU«NSAQUM( USAN . HNAX  t /HSAOUUC  U8AM . NOOT I C I 
CALL  CHKTICtSYOOl 
C 
C 

C OCNCRATC  SCANNCR  TICKS 

c 

00  SOO  HTICNS>HInTNS.HAXTN8 

AO JL I N«NT I CNS* NSAOHUf  ML  I N . NOOT I C I 
00  330  HTICCH-NINTCH.NAXTCM 

aojsan>nticch*hsaouuchsan.nootici 

CALL  OHAfOCOLAT.OCOLON.  AOJL IN. AOJSAHi 
irCTNCRIOt  CALL  UHO( UTNC . UTNN . OCOLAT .OCOLON.UTNCHOI 
CALL  TICRAK 
330  CONTiNue 

SOO  CONTINUC 
00  TO  700 

c 

c 

C CONVCRT  CNVCLORC  PRON  OCORCCS  TO  TICK  UNITS 
C 

«»00  NINTNS»OCOOUHtULAT. UNIN) /OCOOUUIULAT.NOOTICI 980 
naxtns-ocooum(ulat.unax) /ocoouuiulat.nootici *. 001 
NINTCU«OCOOUU(ULON.UNlNl /OCOOUHCULON.NOOTICI •. 999 
NAXTCU-OCOOUUCMLON.MNAXI  /OCOOUUIULON.NOOTIO  *. 001 
CALL  CNKTICIS760I 
C 

e 

C OCNCRATC  OCOORARNIC  TICKS 
C 

00  RSO  NTICNS-NAXTNS.NINTNS.-I  0 TOR  TO  OOTTON.  SANC  AS  SCANNCR 

ocolat«nticns*ocoouu(ulat.nootici 

00  RSO  NTICCU«NAXTCU.NlNTCU.-l  0 LCPT  TQ  RIOHT.  SANC  AS  SCANNCR 

OCOLON*NTICCU*OCOOUU(ULON.NOOTICI 
CALL  A90U0JLIN.A0JSAN.  OCOLAT.OCOLON) 

IPITNCRIOI  call  UUOIUTNC.UTNN.  OCOLAT. OCOLON.UTNCNOI 
CALL  riCRAK 
«S0  CONTINUC 

«00  CONTINUC 


N-S« 


Oft  n o 


OAH  PACKAOC  APKNOIX  N 
ttmiTv  ROuriNCt 


OCNTIC 

00* 


e 

c 

e eoNvcor  cnvclok  rooH  Ncmco  ro  tick  uni  to 

c 

000  HI NTCUaUr NOMHC  HC A . HHI N I / UT NOUHt  UCA . MOOT  I C I * . 000 
NAXrCH«Ur HOUUt  HC A . UNAX I / UTNOMUt  UCA . NOOT I C I * . 00 1 
HI NTNO^Ur NOUU ( UNO . UNI N I / UT NOUN I UNO . NOOT I C I » . 999 
NAXTNC«Ur NOUUt  UNO . UHAX ) / UT HOUU ( UNO . NOOT I C I * . 00 1 
CALL  CNKTICtOTeOt 
iriTNCNIOl  00  TO  0*0 

CALL  NONOrCI ’CONC/NCNIOIAN  NOT  OCrtNCO  -•  NO  UTH  TICK9*t 
00  TO  700 

c 

c 

e OCNCRATC  UTH  TICKS 

c 

6*0  00  690  HTICNS-HAXTNS.NlNrNS.'t  • TON  TO  BOTTOH.  SAHC  AS  SCANNCR 

UTHN«HTICNS*UTN0UUIUN0.N00TICI 
00  630  HTieeu«HlNTCU.NAXTeu 

uTNe«HTieeu*uTNOuu(ueA.NOoriC) 

CALL  0*U(0e0LAr.0e0L0N.  UTne.UrHN.UTNCNOt 

CALL  A*0(A0JLIN. AOJSAN.  OCOLAT, OCOLONI 

CALL  TICPAK 

630  CONTINUC 

660  CONTINUC 

c 

c 

c CONTINUC  UlTH  SeCONOARY  TICKS 

c 

700  iriLVLTIC.NC.O)  00  TO  7*0 
LVLTIC-I 
NOOTIC-UTIC^t 
00  TO  COO 

c 

C 

c cuecK  roR  tick  tablc  ovcrclou 
c 

7*0  IPILVLTIC.NC.tt  00  TO  760 
CALL  NONOTCI 

A ’TOO  MANY  TICKS  -•  RCHAININO  TICKS  lONORCO'l 
C 

c 

e HARK  CNO  or  TICK  TAOLC  AND  SORT  IT 
C 

700  KrABLC(NTtCKS*n-99999*C««IO»99999*C*t  • NAX  LINC.  NAX  SAHNLC 

CALL  ISRTOAIKTAOLC.NTiCKSI 


DUNN  TICK  Tablc  conly  ip  tracinoi 

IPIHOUNN.NC.OI  CALL  OHCTIC 

e 

e 

C NORNAL  RCTURN 
C 


N-OO 


o u u o u o o 


OAN  PACKAK  APKNOU  N 
UmtTY  KOUriNCS 


•curie 

DOS 


•••  RCruRN 


INTCRNAL 

•umOUriNC  CNKTICCSt 
irr 

A ifNAxrNt*NiNrNti«(nAxrcM-niNrcHi/avLrie»i I .oc. iKriLsr-NncKti I • no  noon 
A .AND. 

A CrNrieKS«NOArCNI.CQ.OII  • on  minany  ticks  on  in  ocnano  nun 
A CALL  NONANNC'TOO  NANV  TICKS* • 
iriNOTOTL.NC.OI  NCTUNN  I 
NCrUNN 


INTCNNAL 

SUONOUTINC  TICPAK  A NACK  TICK  COONOINATCS  INTO  TAOLC  A NNINT  ThCH 
C 

OINCNSION  JSYTIC(S>  .LATONStSI  .LONONSHI 

DATA  JSrTIC  /*•’.*»’.*  */  A NNINANY.  SCCONOANY,  OMITTCO 

C 

c 

C STONC  TICK  COONOINATCS  ANO  LCVCL  COOC  IN  TICK  TAOLC 
C 

CALL  Ni»A(NNOLIN.NNOCOL.  AOJLIN.AOJSANi 

in 

A (NNOLIN.LT.NNOOHUIHLIN.NHINI I .ON. 

A (NNOLIN.OT.NNOOHNIHLIN.UNAXI I .on. 

A (NNOCOL.LT.NNOOHNIMSAN.HNINI I .on. 

A fNNOCOL.OT.NNOOHUfUSAN.UNAXm  00  TO  SOO 

irf iNro.NC.oi  00  to  no  a tnuncatc  con  scalco  outnut 

NN0LIN«NN0LIN*.S 

nnocol*nnocol*.s 
no  INLIN*NNOLIN  A TNUNCATC 

INCOL-NNOCOL  A TNUNCATC 

inNTICKS.LT.KTtLSZ'li  00  TO  ICO 

LVLTICaf  A NO  NOON  IN  TAOLC  ••  SYNOOL  ONI  TYCO 
00  TO  SOO 

ICO  NTICKS*NTICKS*t 

ktaolcinticksi* 

A tPLlN«C«*IO*  A OITS  10  TNNU  SO  iroioo.io.  ..  n 

A INCOL«C*  A OITS  01  TNNU  17  .ri.0n0.l7.  ..II 

A LVLTIC  A Oir  00  irLOOS.OI.  ..  >1 

c 

c 

C MINT  TICK  SYNOOL  ANO  COONOINATCS 

e 

SOO  iriNUNir.co.oi  oo  to  ooo 
inNOrOTL.NC.Ot  00  TO  000 


OAN  ^ACKAOC  APMNOIX  N 

unttrv  RouriNfft 


triNkINC.Or.LMOCI  call  TtCMOOtNZONC.UrNCNOI 
CALL  RLtttXiOCOLAT^. 00001. LArONt.S.RLrCNPI 
CALL  OLCItXIOCOLON*.OOOOI.LONONt.3.IILreNf>t 
NOALtN«AOJLlN  0 roUNCArC 

NOAOAN«AOJtAN  0 roUNCArC 

MitrctNUNir.itoi 

1 jtYrte(LvLnc»ii. 
e t NtALIN.NOAOAN. 
ff  AO.ILIN.AOJtAn. 

I LArONt.LONOnO. 

• OCOLAT.OCOLON. 

0 urnc.uTHN. 

7 tPLIN.i^COL 

Its  rOOHATI 

1 SX.A*. 

t lX.CfO.f. 

3 tx.l<*.*i’.jc.’t‘.jc. 

0 sx.trio.*!. 

0 fx.>3^.cr0.3.0l>. 

7 »X.fl7» 

NLiNC«NLlNC*l 
900  OCruMN 


C INTCRNAL 

suooouriNC  ricHoofNZONC.urNCnoi 

CALL  MOUNirtH.NUNin 

iriNZONC.Lr.oi  unirccNUNir .nsi  urncno 
Its  roRNAri***.60x.*ncxioiAN  *.ro.«»> 
MOirciNUNir.ics*  nzonc 
ICS  rooHAri 

I ' rtCK  SCANNCR* .7X. 

3 * lOCOiNINiSCCl *.SX. 

S ’ (OCORCCSI'.SX. 

0 * UTH  ZONC  '.1C.'  CKN)*.tX. 

7 • MiNreo't 

HMirClNUNI r. IHSt 

t«>s  roxNAn 

1 * SYNOOL  LINC  SANXLC 
3 ' LATiruOC  LONOiruOC 

S * LATiruOC  LONOiruOC  *. 

0 * CASriNO  nontnino 

7 * LINC  COLUMN*/ I 
NCruNN 

c 

c 

CNO 


•CNne 

••• 


N-07 


( 


OAN  MCRAOC  AmNOtX  N tCTOM 

afILITV  ROUriNCt  *0* 


e 

e 

e 


^UMOUTINt  OCrOtIK  • OCT  OI«K  tVNtOCtC  MCORO 
0 INtTAT.  • INPUT  tTATUti  * NONNAk  CONPLCTION 

*r«*  rue  KPANATOR  I aeon 
*cor*  CNO  or  rue 

'ort*  eurreR  oveRrLOw  i leNOtN  > tea  i 
iNAoe  eurreR  (nax  tea  CNARti 

LeNUTH  ar  iHAae  in  cnars.  iNCLuoea  rRAUiNU  akANxa.  ir  PReteNT 
kacATioN  or  Ncxr  xeeaRo  mi  thin  rue  t <a  • eNo*or-rue  i 


0 iNAOe. 
0 LeNOTN. 
0 LOCNXT. 


I LacRec.  • LOCATION  or  rccoro  uitnin  rue 
I NANrut  • NAne  or  rue 

a NAHe  MUST  CONTAIN  It  CNARACTeRt.  INCLUOlNa  TRAIL INO  RLANKt 


NIOTORY 

C N tCHLOtSCR  LCC  9t/tt/70  ORIOINAL  RCQUiRCNCNTt 
HCTNOO 

TO  ac  oercRNiNCO. 

NACNINC'OCrCNOCNT  COOC 

UNIVAC  exec  a proonan  pilc  nanino  convcntions  and  cxecurtve  acouctrs. 
CXTCRNAL  RCrCRCNCCa 

NOVeaT  a NOVC  cnaractcr  strino 

CRION  a aUiNIT  CXCC-a  rACUITV  RCOUeST  control  aTATCnCNT 

exccpTioNo 

I.  rue  OR  CLCNCNT  ooci  not  exitr. 
t.  rue  OR  eLCNCNT  la  not  trNOOLic. 

I.  rue  NOT  AatiONCo  to  cuRReNT  run. 

OLOOAL  OCCLARATIONO 

iNCiUOe  KONXOT.LIST 


N>ai 


«»  n A «» 


OAN  ^ACKAOC  A^NOIX  N 

vruirr  murtNCt 


•froM 

•M 


e LOCAL  OCCLAAATtONt 
C 

c 

INrCOCR  NANTILItl  • AROUNCNf 


Moecoufic 


CALL  TRACC 

e 

CALL  CRMNril.9.  •••OCrOM  NOT  YCT  iHRLCHCNrCO**  ’ I 

c 

e 

too  RCrUAN 
CNO 


0*11  OACKAK  AOOCNOIX  N 
oriiiTT  oeuriNCt 


•croAO 

•01 


•uooouriNC  ocriiAOf  ■ ocr  tCLcerco  OAN/roANtromico  CNAimCLt  roo  linc 

• NOKOUr.  • AROAY  Of  Ntt  OIXCL  OUTriM  IN  RXiOCr  rONNAr 

« NMlOr.  • NUNOCN  Of  HONOt  IN  I tUTrCN 

0 Nourt.  • NUNiCN  or  ourrcoo  in  annav 

0 tOTAr.  0 I/O  OTAruO  coot  (OCC  NCAOII 


1 NOALIN,  0 NOO  AOJtfOrCO  LINC  NUNOCN 
I NOAOLO.  • LON  AOJWOTCO  OANOLC  NUNOCN 
I NOAONII  • HI  ON  AOJUOrCO  OANNLC  NUNOCN 


NIOrONT 


c 

N 

SCNLOSSCN 

LCC 

07/10/70 

c 

A 

NCLNKC 

LCC 

0S/IS/7S 

c 

A 

NCLNKC 

LCC 

10/10/70 

J 

e 

CNISR 

LCNSCO 

Of/ IS/ 00 

J 

c 

CNISR 

LCNSCO 

os/to/oo 

NCTNOO 


NCOUINCNCNTO 
ALOONITHN  OCttON 

aloonithn  cool  no 

DON’T  UOC  NAU  CHANS  HI TN  0 UCIONTS 
INrNAX/NOlNrL/NOOATN  INITIALIS  NNCAH 


NCAO  NAU  HSS  CNANNCLIfl.  fNAANCN  CACN  RAH  CMANNCL  fOR  HHICN 
A SNANRCNINO  riLTCR  IS  OCriNCO.  CONRurC.  If  RCQUCSreO.  TRANS' 
rONNCO  CMANNCL IS*. 


NACNINC'OCRCNOCNT  COOC 


ALIONNCNT  or  SCALCO  INTCOCRS  ASSUNCS  SO-OIT  CONRUTCN  MONO. 


CXTCNNAL  RCrCNCNCCS 


NCAOS  • NCAO  ONC  NAH  CMANNCL  rOR  I SCAN  LINT  CRON  UNIT  S 

•NASAN  A SNARRCN  A RAH  CMANNCL  IN  RXOOCr  rORNATTCO  OurrCR 

OCTICC  S OCT  INTCOCA  CMARACTCR  COUIVALCNT  rROH  CMAR  STRINO 

NUT  ICC  A RUT  INTCOCO  CMAR  COUIVALCNT  INTO  CMARACTCR  STRINO 

OCTOTT  a OCT  NON'NCOATIvC  INTCOCR  RRON  OTTC  STRINO 

RUTOVT  A RUT  N0N*NC0AT|VC  INTCOCR  INTO  NVTC  STRINO 

OCTINT  a OCT  INTCOCN  RRON  INTCOCR  STRINO 

RUTINT  a rut  INTCOCO  INTO  INTCOCO  STOINO 

CXTCONAl  OCTICC.RUTICC. OCTOTT. RUTOVT. OCTINT. RUTINT 


CXeCRTIONS 


I.  OTATUS  cooes  rON  OCTNAO  ARC  OCTCOHTNCO  IN  NCAOS  RON  CACN 
NCOUCSTCO  CMANNCL.  OCTNAO  NCTUNNS  AO  ITS  STATUS  COOC  TNC 
MONOT  CAOC. 


N-IOO 


OAN  PACKAOC  APKNOIX  N 

uruiTv  RouriNCs 


OCTRAO 

00» 


t.  ir  IRRCCOVCRABLC  CRROR  OCCURRCO  OURINO  RCAO.  RCTURN  It 
IHRCOIAre  WITH  NO  VALID  DATA. 

X.  If  eOHRUrCO  VALUC  rOR  TRANtrORNCO  CHANNCLt  It  Lett  THAN  ZCRO  OR 
ORCATCR  THAN  HIOHCtT  INFO  VALUC  (FROH  RRCAHtLC).  ThCN  TNC  VALUC 
HILL  BC  ter  TO  THC  NCARCtT  CXTRCHC. 


OLOBAL  OeCLARATIONt 


INCLUOC  KOHXQT.LItr 
INCLUOe  KONNCR.LlSr 
INCLUOC  KOHKLS.LtST 
INCLUOC  KOHIRT.LIST 
INCLUOC  pxBoer.Litr 
INCLUOC  NAXINT.LISr 

c 

c 

C LOCAL  oeCLARATlONS 
C 

c 

PARAHCrCR  INPHAX>I27 
RARAHCrCR  N0INPL«t80 
PARANCrCR  NOOATH-189 
C 


• COHNON  PROORAH  CXCCUTION  SHlTCHCt.  COUNTCRS 
A CONNON  CRTS  SCCNC  PARANCTCRS 
a CONNON  CLAtSiriCATt JN  INFO 

a CONNON  IRRAOIANCC  TRANSPORNAT I ON  COCFFICtCNrS 
a ocriNC  STRucruRC  op  pixcl  buppcr 

a OCPINC  NAXINUN  INTCOCR 


a NAX  INFO  VALUC  FOR  TRANSFORHCO  CHANNCL 
a NO  INFO  FLAO  FOR  TRANSFORNCO  CHANNCL 
a NO  DATA  THRCSHOLO  FOR  TRANSFORNCO  CHANNCL 


c 


c 


INTCOCR 

LOOICAL 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 


NPXBUFINUIBF.NBUFSi  a AROUNCNT 
SHRPCN  a TRUC  - SHARPCN  CHANNCL 

a PALte  - 00  NOT  SHARPCN 
IBINTY  a BIN  TYPC 

USTaT  a TCNPORART  RCA03  STATUS 

LTOUALIBI  a LINCAR  TRANSFORH  OATA  QUALITY 

LTLSAHiai  a LINCAR  TRANSFORM  LON  SAMPLC 

LTHSANICI  a LINCAR  TRANSFORM  HlOH  SAMPLC 

LTLBINIBI  a LINCAR  TRANSFORM  LOU  BIN 

lthbinisi  a lincar  transform  hioh  bin 

NBFACt  a NUMBCR  OF  BUFFCR  FOR  LINCAR  TRANSFORH 

NBFACa  a NUMBCR  OF  BUFFCR  FOR  LINCAR  TRANSFORM 

IPOLt  a POLAR  transform  CHANNCL  I 

IPOLB  a POLAR  transform  CHANNCL  d 

LRTiaiai  a lincar  transform  channcls  • a««ia 


1 

2 


e 

c 

c 


c 

c 

c 

c 


OCFINC  ITANI2*ILRri2l2l*S««l2l/LRTICI| I S TaN0CNT*2 • • 1 2 

OCFINC  IC0Tt2«(LRTt2lll«2<«l2i/LRTI2(2t  a C0TAN<2<<I2 

RAOlUt*(LRTI 1 1 <<2<LRTI2I< <2)<<.S 

• LRTIti  < LRTI2I  < TANITHCTAI  < .<*l*»2  a APPROX. 

OCFINC  LTANI2«ILRTI2m<ILRTI2l2l<ITANI2l/9BBS)  a LCNQTH  OF  RA0IUS<2<<I2 
OCFINC  LC0Tt2«(LRTI2(2t<(LRTI2(tt<IC0ri2l/9BB9l  a LCNOTH  OF  RA0IUS<2<<I2 


ARCTAN*  IS.0B0B9<MTAN-TAN<<2  t/S.B6B069 

OCFINC  KTANI2*I  (l9.r96<ITANI2«ITANt2<ITANI2l/IS02<»i  a 
ARCC0T«I  .970BO«I3.BBOB9<»<COT*COT<<C  I/3.B6B069 

OCFINC  KCOTt2«(6**3H«ll9B96<tCOTI2-ICOTl2<ICOT12l/IS02<»l  a 


a APPROX. 
ARCTAN<2<<I2 
a APPROX. 
ARCC0T<2<<I2 


N-IOI 


OAN  PACKAOC  AMCNOIX  N 
UVtLtTY  NOUriNCS 


•CTWAO 

OOS 


rite  AIOVC  ARCTAN  and  ARCeorAN  ARRROXiNAriONt  ARC  OCStONCO  rOR  use  Ml  THIN 
ritctR  RCSRCCTivc  NAivcs  or  rHC  riRsr  ouaorant.  me  roLLowmo  rAsie  snous 
TNAT  TNCtR  HAXINUH  CRROR  MNCN  SO  RCSrRICTCO  UtTNIN  TNC  riRST  QUAORANr  IS 
♦-o.et  oeoRCCs.  our  that  thc  crror  rarioly  iNCReAses  mirNout  sounoi  in 
TNC  AOJACCNr  SCCONO  ANO  rOURYN  QUADRANTS. 


TAN  OR 

CORReCT 

CORRCCT 

ARRROX 1 NA 

COT 

ATAN 

ATAN 

ACOT 

ACOT 

♦1.0000 

♦79 

♦7S.00 

♦7S 

♦79.00 

♦0.S39I 

♦70 

♦39.67 

♦SO 

♦SO. IS 

♦O.YOOt 

♦ 3S 

♦37.76 

♦ss 

♦SS.9I 

♦0.S77J 

♦ 30 

♦99.79 

♦60 

♦60.91 

♦0.V6S3 

♦9S 

♦97 . 67 

♦6S 

♦6S.  IS 

♦0.36*»0 

♦90 

♦90.00 

♦70 

♦70.00 

♦0.SS79 

♦ IS 

♦IS. 19 

♦7S 

♦77.66 

♦0. 1763 

♦ 10 

♦10.90 

♦60 

♦79.80 

♦0.0S7S 

»S 

♦S.  16 

♦OS 

♦07 . 69 

0.0000 

0 

0.00 

♦ 90 

♦90.00 

•0.087S 

-9 

-S.79 

♦ 9S 

♦9S.79 

-0.1763 

-10 

-11.17 

♦ 100 

♦101.17 

-0.9679 

-IS 

-17.36 

♦ lOS 

♦107.36 

-0.3670 

-90 

-97.17 

♦ 1 10 

♦117.17 

-0.7663 

-9S 

-31.66 

♦ IIS 

♦191.66 

-0.S773 

-30 

-70.90 

♦ 190 

♦130.90 

-0.7009 

-3S 

-SO. 10 

♦ I9S 

♦170.10 

-0.S39I 

-70 

-61.06 

♦ 130 

♦191.86 

-1.0000 

-79 

-76.97 

♦ I3S 

♦188.97 

RROCCOURC 


ir  (NOOINSAL IN.SOI .CQ.OI  CALL  TRACC  I KHRHINt NSAL I Nl > 


C CNtCK  ir  CHANNCL  AVAILASILITY  NAS  SCCN  OCTCRNINCO 
C 

00  100  Nsr«i.s 

ir  INSrCNRINSri  .NC.9S9I  00  TO  MO 
too  CONTiNUr 

CALL  NOfATLC  ‘CNANNCL  AVAILASILITY  NOT  OCTCRNINCO  SY  CALCNA*! 

00  TO  900 
C 
C 

C RCAO  UNO  SNARRCNI  ORIOINAL  CNANNCLS.  ir  SNARRCNINO  IS  INOICATCO  RCAO 
C INTO  LAST  SurrCR  AS  A HORK  iUCrCR  ANO  TNCN  SNARPCN  INTO  CORRCCT  OCSTI* 
C NATION  SurrCR.  ir  SNARRCNINO  is  not  INOICATCO.  RCAO  oircctly  into 
c ocstination  BurrcR. 
c 

no  iointy«*syt*  0 use  ‘syt*  as  occault  sin  tyrc 

USTAT-*  • 

00  ISO  NCNR«I .NCRCNA 


N*ioe 


nonon  onno 


OAN  ^ACKAOC  AmNOIX  N 

uricirv  KouriNes 


•CTRAO 

•«« 


N«r*l«FCMR(NCHRt 

SNRWN^lIRSrtttNCNR.I  t.NC.O  .OR.  IRSriRtNCNR.R)  .MC.O) 
tr  tRNRRCN  .ANO.  (Ntr.OC.NRUrt)  I 00  ro  190 
ir  < I.HOT.SNRKN)  .ANO.  (Ntr .Ot.NBUrS)  I 00  TO  tOO 
NBrio«NRr 

tr  IBHROCNI  NOriO-NRurt 

CALI  RCA03  IHRXRUrc l.NBriOl.NMIOr.lSrAT. 

• MSALIN.NCNR.nSASLO.HSASNIt 

tr  fitTAT.co.'Cor*  .or.  itrAr.co. *OAor*  .or.  isTAr.CQ.*orL*i 
I 00  ro  000  9 IRRCCOVCRAOLC  ERROR 

ir  tNMtor.eo.ot  oo  ro  boo  o octrao  has  Rcouesreo  ro  rosition  only 
ir  tisrAr.eo. *OAOR*>  oo  ro  iso  • no  data 
I 01 Nr Y*NRxour ( Rxe I N r . Nor ( 0 I 

ir  (SNRRCN)  CALL  SHASANIHRXOUrt t .NOrt .HRXBUri t .NOriO) . 

I IRSriOINCHR. I > . IRSriRINCHR.R) > 

00  ro  too 

t»o  jsrAr-'OAOR* 

tr  t .Nor.  SNRRCN  I 00  ro  iso 

NNlRRCoRxetNS*!  • TRANSrCR  RRCahBLC  TO  CORRCCT  OCSTINATION 

00  ISO  t>I.NUIRRC  9 BurrCR  SINCE  SHASAN  NOT  CALLED 
NRxeur 1 1 . Nor  t -NRxeur 1 1 . Nor i o i 
130  CONriNUE 

190  CONriNUC 
isrAr*jsrAr 


INirtALIZC  LINEAR  TRANSRORMtO  CHANNELS  RARANCTCRS 

ir  t IRTTYP.CO. *RAU* ) 00  TO  BOO  9 NO  TRANSrORNA T I ONS 
00  900  1-1.9 
LrOUALd  1-0 
LTLSAHin-O 
LTHSANI  n-NAXINT 
LTLOlNIIt-O 
LTNOINII l-NAXINT 
900  CONTINUE 


rOR  each  linear  TRANSrORN  CONRUrC  the  RANOC  or  CONHON  SANRLCS 
ANO  BINS  or  the  CHANNELS  THAT  CONRRISC  THE  TRANSrORN 

DO  930  K-1.9 

00  910  NCHR-I .NCRCHA 

ir  ILRTUI9(NCHR.Ki .CQ.O.OI  00  TO  910 
NOr-NOrCHRINCHR) 

LroUAL(KI-HAXO  (LTOUALIKI .HRXBUr (RXOUAL .NBPI t 
LTLSAHIKI-NAXO  ILTLSAHIKI .NRXBUPIRXLSAH.NOri I 
LTNOANIKi-HINO  (irHSANIKI . NRXBur ( RXHSAH . NOP  I i 
ltloiniki-naxo  ILTLBINIKI .HRXBUPIRXLBIN.NOPI ) 
LTHOINIKI-NINO  (LTnOINIIO  .HRXOUPIRXHBIN.NOr) > 

910  continue 

ir  iltnoinik* .eo.haxinti  oo  to  990  a no  transporn 
IP  ttrLOiNiKi.or.LrHoiNiKii  oo  ro  teo 
00  TO  930 

990  LTOUALIKI -9 
LTLSANIKI-O 


N-I03 


nnnn  nnnnn 


OAN  ^ACKAOC  AMCNOtX  N OCTIIAft 

UTlLirv  NOUriNCS  009 


kTNtAN(KI«0 
LTketNlKI-O 
l.rN9INCKI«0 
t30  CONTI NUC 

c 

c 

C tlNCC  TRANSri'NHCO  CHANNCLt  NCNLACC  ONIOINAL  BUrrCNS  I AND  C HMICH 
C NAY  contain  CNANNCLS  NCCOCO  IN  THC  TNANtrONNS.  ThC  TNANSrONHCO 
C CNANNCLS  ANC  CONNUTCO  IN  PANALLCL  SANPLC  OV  SANPLC  AND  NCLO  IN 
C TCNPONANV  locations  until  both  TRANSrONNCO  CNANNCLS  ANC  CONPUTCO. 

c 


ir  ILTQUALd  I .CQ.S  .ANO.  LTQUAL  CO  .CO. SI 
C 

If  ILrQUALMI.CQ.SI  00  TO  OO  A NO  DATA 
IP  ILTQUALCO  .CQ.Si  00  TO  090  A NO  DATA 
LOHOlNaNlNOILTLOlNI I I .LTLSINCO  > 
INIOlN*NAXOCLTHBtNC I I .LTHBINCOI I 
00  TO  060 

ONO  LOUBlN>LTLBIN(OI 
INIBIN*LTHBINIOI 
00  TO  060 

OSO  LOHBlN»LTLBtN< I) 

INIBIN>LTH0IN< I I 
OBO  NBPACI*! 

NBPACO-0 

IP  (LiNCHc n .CO. n oo  ro  oto 
NBFACl>0 
NBPAC0>l 
070  CONTI NUC 


00  TO  900  A NO  data  PON 

A CITHCR  CHANNCL 
PON  TRANSPONHCO  CHANNCL  I 
PON  TRANSPORNCO  CHANNCL  0 


use  INTCRNAL  SUBROUTInC  TO  COHPUTC  PIXCL  VALUES  POR  BINS  OP 
TRANSPORNCO  CHANNELS 

IP  C IBINTV.CO. ‘BYT* I CALL  TRNPORIOCTBYT.PUTBYT) 

IP  ( IBINTY.CQ. ‘CHR* I CALL  TRNPORCOCTICC.PUTtCCi 
IP  IIBINTY.CO. *INT‘I  CALL  TRNPORC OCT  I NT . PUT  I NTI 


NOOIPY  PRCAH8LCS  TO  RCPLCCT  TRANSPORNCO  CHANNELS 

NPXBUPCPXCHAN.NBPACI )•! 

HPXBUP I PXCHAN . N8P ACO I *0 
NPXBUPIPXNOIN.NBPACn  >NOINPL 
NPXBUP I PXNO I N . NBP ACO I >N0 I NPL 
NPXBUP I PXNOOA. NBPACI ••NOOATH 
NPXBUP (PXNOOA. NBP ACO I -NOOATH 
IP  MRRTYP.CQ.  *POL‘t  00  TO  OBO 

NPXBUPCPXQUAL.NBPACn-LTQUALin  A LINEAR 

NPXBUP I PXQUAL . NBP ACO I *L  TOUAL 1 0 1 

NPXBUP I PXBI NT . NBP AC  1 1 • 1 8 1 NT Y 

NPXBUPCPXBINT.NBPACOI*IBINTY 

NPXBUP I PXLB I N . NBP AC  I > «L  TL B I N 1 1 1 

npxbupipxlbin.nbpacoi-ltlbinioi 
npxbupipxlsan.nbpacii-ltlsaniii 
NPXBUP I PXL  SAN. NBP ACO I «L  TL  SAN 1 0 1 


N>ION 


o o o o o 


OAH  ^ACKAOC  AMCNOtX  N 
UriLITY  ROUriNCS 


ocrRA0 

oot 


NMlUr  I RXHt  I N . N8F  AC  t > «L  r NR  I N f n 
NRXIUr ( FXN8 I N . NerACt ) «L TH0 I N t t I 
NRXtUrtRXHSAH.NaPACn-LTHSAHf  tl 
NFX8UF I RXHtAH . NSF AC8 1 *L  THSAN ( 8 1 
00  TO  000 

800  HPXOUP(PXQUAL.NOPACtl»NAXO(LrQUALtll.LTQUALf8l)  0 POLAR 

IP  (NPXeUPtPXQUAL.NOPACn.eQ.OI  00  TO  300  0 POLAR  COOR  VALID  ONLY 

C 0 IP  OOTN  LIN  CNANNCLS 

C 0 NAVe  DATA 

NPXOUP ( PXQUAL . N0PAC8 1 •tWXOUP  C PXQU AL . NOP AC  1 1 
HPXBUP(PXL8IN.NePACn*HAX0ILTLBIN(t  I .LTLOINtOI  I 
NPXOUP  f PXL 0 1 N . NOP ACS I •NPXOUP I PXL  0 1 N . NOP AC  I I 
NPXOUPIPXNSlN.NOPACtt-HlNOtLrHeiNd)  .LTHBINCSI  t 
HPXBUP ( PXNB I N . NBPAC8 1 -HPXBUP  f PXHB I N . NBP AC  t t 
HPXBUF(PXLSAH.NBFACn«NAXOILrLSAH(  t I .LTLSANISI  I 
HPXBUP ( PYLSAN . NBP ACS I -HPABUP  f PXL  SAN . NBP AC  I I 
NPXeUPtPXHSAN.NBPACt l•HINO(LrHSANC I I .LTHSAN(8I ) 

NPXOUP I PXHSAN . NBPAC8 1 -NPXBUP  C PXHSAN . NBP AC  t > 

IP  CHPXBUPCPXLBlN.NBPACn  .or.NPXauPtPXHBIN.NBPACn  I 00  TO  300 
00  TO  BOO 
300  00  310  K-I.8 

HPXBUP ( PXQUAL .Kl -9 
NPXBUP(PXLBIN.K>-0 
NPXBUP ( PXHB IN.K 1*0 
NPXBUP(PXL8AN.K1>0 
HPXBUP(PXHSAH.Ki*0 
310  CONTI NUC 
900  RETURN 
C 
C 

c 

c 

c 

C 

C INTERNAL 

subroutine  trnpor  t a conpute  pixel  values  por  transporneo  channels 

I OETBIN.  a NANE  op  ROUTINE  TO  GET  A BIN  OETBYT/OETICE/OETINT 

I PUTBINI  a NAHE  OP  ROUTINE  TO  PUT  A BIN  PUTBYT/PUTICE/PUTINT 


CONPUTE  LINEAR  TRANSPORNEO  CHANNELS.  THEN  CONPUTE  POLAR  TRANSPORNEO 
CHANNELS  IP  REQUESTEO. 

00  ABO  l•LOWBIN. IHIBIN 

LRTISIII>LRTBI8(|I  a bias  POR  LINEAR. I 

LRTISC8I«LRTBI8(8I  a BIAS  POR  LINEAR. 8 

00  HIO  NCHR«I .NERCHA 
NBP>NBPCHRtNCHRi 
IP  INBP. OT. 91  00  TO  VIO 
CALL  OETBIN  ( IPlX.HPXBUPtPXBINS.NBPI . I I 

LRTISI ll•LRTI^I 1 1 • LRThI8INCHR.II«IPIX  a MEIOHT  POR  LINEAR. I 
LRTI8l8l«LRTI8(8i  * LRTUI8INCHR.8 I • IPI X a HEIGHT  POR  LINEAR. 8 
NIO  continue 

IP  (IRTTYP.CO. *POL*i  00  TO  N80 
C 
C 


N-I09 


eCTRAO 

007 


e trORC  L INCAR  TRANSrORNCO  CHANNCLS 

c 

LRrttm*LRri»m/>«*it 
LRriCt8l«lRriR(«l /«••!> 
c 
c 

C LIHir  CNCCK  AND  STORC  LINCAR  TRANSrORN  CHANNCLS 

c 

LRritf ll«NAX0f0.NtN0( tNFNAX.LRTI»( 1 1 1 ) 

LRTI8(«t*NAX0(0.HlN0( lNrHAX.lRri8(8l I t 
CALL  RUrciN  (HRXaurtPXStNS.NePACII.I.  LRriCCm 

CALL  RurStN  fNPXBUPCPXSINS.NBPACCt .1 . LRriCCBII 

00  TO  HBO 

c 

c 

C POLAR  transforms  FROM  TANOCNT  OF  ANOLC  BCTUCCN  LINEAR  TRANSFORNEO 
C CHANNELS 
C 

HEO  IF  (LRTtEfBI.OT.LRTIEM  > ) 00  TO  HHO 

IF  ILRTlOf I ) .EQ.OI  LRT12(|I>E  a PREVENT  DIVISION  BV  ZERO 
IPOLl  • CLTANI8*NRT0tS( I I *nRT8EH( I n /S««SV  a ORIOHTnESS 
IF  ILRTiaiEt  .LT.OI  OO  TO  >»30 
tP0LE>(KTANlE«NRT0IZC8l  »NRTBE<»(2)  I / 

00  TO  «»70 

*»30  LRTI8(0t«lABSILRTlE(En 

IPOLE*(  -KTANIE*NRT0I2(2>  *NRTBE*MEI  ) 

00  TO  V70 
C 

c 

C POLAR  transforms  FROM  COTANGENT  OF  ANGLE  BETWEEN  LINEAR 
C TRANSFORMED  CHANNELS 
C 

HNO  IFILRTIBIEI .EQ.OI  LRTIE(Bi«E 

IPOLt>ILCOTIE«NRTOIE(  I I »NRTBE<M  I n/a*«EH 
IF  ILRTieilt.LT.OI  00  To  «»S0 
IPOLE«IKCOTtO*NRTOIE(CI*NRTBa<»(En/8*«E<* 

00  TO  N70 

•»S0  LRTICdl-UBSILRTIEd  ) l 

IP0L8«(t67778l6>KC0TIE«NRT0lEI8l»NRTB0N(En a I 6777E  I 0*  I 80  DEO 

* a «C««EH  IN  RADIANS 

C 

c 

C LIMIT  CHECK  AND  STORC  POLAR  CHANNCLS 
C 

•*70  IPOLI«NAXO(O.NINOtlNFNAX.  IPOLil  > 

IPOL8«NA)COtO.NINOC  INPMAX.  IPOLEI  > 

CALL  PUTBIN  (NPXBUFtPxeiNS.NBFACI I . I . I POL  I > 

CALL  PUTBIN  INPXOUFCPXBINS.NBFACEI .1.  IPOLEI 
•»B0  continue 
RETURN 
CNO 
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OAN  PACKAOC  AmNOt 
UrtLlTY  ROUriNCS 


sumouTiNC  ocrsi  • ocr  rchainino  coNTCNrt  or  unit  s ourreii 

0 KNALL.  • RCruilN  A«  CMARACrCR  STRINO  (UNCHANOCO  If  NtSSINOt 

1 KNLCN.  • LCNOTM  IN  CHARACrCRS  (MILL  OC  RAOOCO  UITH  OLANKS  TO  NO  OOVt 

• 

I HtUARNt  • UANNINO  MCSSAOC  If  NtStlNO  I*  NCANt  RCQUIRCOI 


Ml STORY 


C N SCHLOSSCR 
C M SCHLOSSCR 


LCC  OS/OO/YS  ORIOINAL  COOC  IN  RCAOS 

LCC  OS/11/79  Revise  A NAKe  SeRARATe  SUSROUTINe 


neTHoo 


THIS  SUSROUTINe  OeTS  ALL  FRee-rORHAT  DATA  riCLOS  FROM  UNIT  9 ICARO  ReAoeR 
OR  OCHANO  reRHINALI  FOR  THe  0AM  PACKAOe. 


FRee-FORHAT  INPUT  RULeS 


I.  ReCOROS  --  AN  INPUT  RCCORO  CONTAINS  UP  TO  60  COLUMNS  CNOINO  UITH 

COLUMN  80  (CARO  ReAOFRI  OR  TCRMINATtO  SY  A CARRIAOC  RCTuRN  (TeRMINAD. 

S.  SeNTINeLS  --  THe  FOLLOHINO  CHARACTCRS  in  column  I OeSIONATC  SPtCIAL 
ReCOROS: 

• CONTROL  CARO  (lOeNTIFICS  tNO-OF-FILC) 

• ReMARK  CARO  (lONOReO  BUT  LISTeO  ON  OUTPUTI 

3.  OCLIHlTeRS  ••  ALL  OTHeR  RCCOROS  CONTAIN  OATA  FieLOS  ANO/OR  COMMeNT 

rietos.  OROANizeo  into  blocks,  ano  sePARATCo  by  Tne  follouino  oclin- 
ITeRSs 

, eNOS  DATA  FieLO  (NeXT  OATA  FICLO  FOLLOHS) 

..  CMOS  LAST  OATA  FieLO  IN  BLOCK  (COMMeNT  FICLO  FOLLOUSI 
...  CN08  LAST  FieLO  IN  BLOCK  (NeXT  BLOCK  FOLLOUSI 

•*.  BLOCKS  -•  eACH  BLOCK  IS  NORMALLY  TCRMINATCO  BY  A TRIPLe  COMMA  (...I  OR 
ThC  eNO-OF-ReCORO.  UHlCHCveR  comcs  first. 

9.  SPANNeo  BLOCKS  •-  (ACTtVATeo  FOR  CURRCNT  BLOCK  BY  CALL  TO  SPANSI  IF  A 
PHYSICAL  ReCORO  SNOS  UITH  A SINOLC  COMMA.  TneN  THC  NCXT  FICLO  FOR  THC 
CURRCNT  BLOCK  IS  TAKCN  FROM  ThC  NCXT  PHYSICAL  RCCORO. 

S.  riCLOS  ••  CACN  OATA  FICLO  IS  COMPOSCO  OF  A LCAOINO.  OR  SIONIFICANT. 
PART  ANO  A TRAIL INO.  OR  NON’SIONIFICANT.  PART.  FOR  NUMCRIC  FICLOS  ThC 
SIONIFICANT  PART  IS  TCRMINATCO  BY  ThC  FIRST  CNBCOOCO  BLANK.  FOR 
NON'NUHCRie  FICLOS  THC  MAXIMUM  LCNOTH  OF  THC  SIONIFICANT  PART 
IS  SPCCIFICO  IN  THC  CALLINO  AROUNCNT.  FOR  ALPHABCTIC  FICLOS 
(CNTRY  OCTSALI  TnC  CNTIRC  FICLO  MUST  BC  ALPHABCTIC.  FOR  ALL  OTHCR 
FICLOS  ThC  non-sionificant  part  is  IONORCO  CNTIRCLY. 

7.  SCALINO  --  ALL  INPUT  TO  OCTSSX.  OCTSFR.  ANO  0CT9RL  IS  INMCOIATCLY 


OAN  ^ACKAOC  APMNOIX  N 
UTILITY  ROUTINCS 


OCT« 

00» 


NULTtRLICO  BY  RLCOCr  9CrORC  BCtNO  MOCCSSCO  rURTMR. 

•.  01A8MOSTICS  — TNC  HARNINO  MCStAOC  (NtUARRI  It  RRINTCO  BY  OCTB.  OCTtAL. 
OCTSKN.  OCrsSX.  OCTSFR.  OCTtRL.  AND  OCTSIN  UNOCR  THC  FOLLOHlNO 
eONOITIONtt 

A.  I ir  THC  riCLO  It  INVALID.  OR 

B.  I ir  THC  riCLO  It  NittiNO  AND  ALL  HIttINO  FICLOt.  UR  TO  AND 

INCLUOINO  TNC  CURRCNT  FICLO.  ARC  RCQUIRCO  FICLOS.  (A  RCQUIRCO 
riCLO  It  INOICAYCO  BY  A HARNINO  HCtSAOC  UNICH  tTARTt  UITN  AN 
AtTCRItK. I 


CNTRV  ROINT  LCOAL  rORHATt  rUNCTION 


OET5 

RETURN 

RENA  INI  NO 

CONTENTS 

OF  UNIT  5 BUFFER 

OETSAL 

AL 

RETURN 

NEXT 

DATA 

FIELD 

AS 

CHARACTER  strino 

oetskh 

KH 

SX 

FR 

RL 

IN 

RETURN 

NEXT 

DATA 

FIELD 

AS 

CHARACTER  strino 

OETSSX 

SX 

RL 

IN 

RETURN 

NEXT 

DATA 

f;clo 

AS 

REAL  NUMBER 

0ET5FR 

FR 

RL 

IN 

RETURN 

NEXT 

data 

FIELD 

AS 

REAL  number 

OETSRL 

RL 

IN 

RETURN 

NEXT 

data 

FIELD 

AS 

REAL  NUMBER 

OETSIN 

IN 

RETURN 

NEXT 

DATA 

FIELD 

AS 

INTEGER 

UNOETS 

BACK  UP  1 FIELD 

(CALL  ONLY 

ONCE  IN  SUCCESSION) 

rORHAT  TYRCt 


AL  ALRHABCTIC  STRINO  (26  LCTTCRS  PLUS  BLANK  PLUS  CLASS  OF  FIRST  CHAR) 
KH  CHARACTER  STRINO  (EXCLUOtNO  COHHAS) 

SX  OeCIHAL •COOED  SEXAGENARY  NUNBER  (EX.  -lOS: 37i 30.5) 

SCXAOCNARY  PLACES  ARC  SEPARATED  BY  *i*  OR  ’/* 

EVERY  PLACE  BUT  THC  LEFTMOST  MUST  8C  UNSIONEO  » LESS  THAN  60 
ONLY  The  RIONTNOST  place  hay  CONTAIN  A DECIMAL  POINT 
FR  FRACTION  (CX.  >3/81 
RL  REAL  number 
IN  INTCOCR 


hacninC'OEpcnocnt  code 


NONE. 


EXTERNAL  RCFERCNCCt 


NCXTOK  6 OET  ROlNTCRt  TO  NEXT  TOKEN 

OCTOKN  a OCT  CHARACTER  STRINO  DATA  FIELD  FROM  BUFFER 

tRCAOt  a tRANNCO  READ  OF  UNIT  B 

HARNB  a tUtNir  HARNINO  FOR  INVALIO/NIttINO  FIELD  FROM  UNIT  5 

RUrCNR  a RUT  CNARACrCK  INTO  CHARACTER  STRINO 

Novctr  a MOVE  character  strino 

OCOOC  a DECODE  NUHCRIC  CHARACTER  STRINO 

INTEOCR  LCNRED  B LOCATION  OF  CHARACTER  EQUAL  TO  SEARCH  CHARACTER 


N-tOB 


u o o o o o 


OAK  PACKAOC  APKNOIX  N 
UTILITY  ROUriNCt 


•CTU 

OtS 


INTCOCR  LCNRAO  • LCNOTH  IN  CHARACTCRS  INCL  RAO  TO  NORO  tOUNOARV 
LOOICAL  TRUAL  • TRUC  IT  CHARACTCR  tTRINO  IS  ALRMAiCrtC  IA*Z.SRACCl 


CXCCPrtONS 


I.  TNC  rOLLOUINO  OCNCRATC  HARNtNO  OlAONOSTICSi 
INVALIO  rORNAT 

NUNCRte  ncLO  our  or  ranoc 

RCOUIRCO  riCLO  IHSUARN  STARTS  UlTH  *•*!  NISSINO 


OLORAL  OCCLARATIONS 


e 


INCLUOe  KOHLUS.LISr 


s RoiNTCRS/rLAOS/surrcR  roR  unit  s 


LOCAL  OCCLARATIONS 


INTCOCR  KHTCHP(>»t 
INTCOCR  KCYKOO 
INTCOCR  INTCHP 
RCAL  RLTCNP  • 


• riRsr  8H  CHARACTCRS  OP  data  rtCLO 

• RCQUCSTCO  COOC  TYPC<  ‘ RL ‘ / *PR‘ / • SX ’ 
t TCHPORARY  INTCOCR 

TCNPORARY  RCAL 


PROCCOURC 


CALL  TRACCC  *OCTS‘l 

irCLUSLOC.OT.I)  LUSNAX«IABS«LUSHAXI  • lONORC  CNO  BLOCK.  OUT  NOT  CNO  IHAOC 
CALL  NCXTOKCKMTCHP.LUSLLH.  LUSLLH.LUSIHO. *NONC* . *NONC* > • RCST  OP  IHAOC 

IPILUSHAX.OT.OI  00  TO  100 
CALL  UARNSI  NSUARNI 
00  TO  SOO 

100  CALL  .HOVCSTIKHALL.III.aCNPAOCKHLCNn. 

• LUSlNO.ILUSLOCt.(LUSLCN),'  *1 

CALL  NCXTOKIKHTCHP.LUSLLN.  LUSLLH.LUSIHO. ‘NONC* . ’NONC’ > • CNO  OP  IHAOC 

00  TO  SOO 
C 


CNTRV  OCTSALI  • OCT  ALPNAOCTIC  DATA  PICLO  PRON  UNIT  S 

0 KHPLO.  • RCTURN  AS  CNARACTCR  STRINO  lUNCHANOCO  IP  HISSINO  OR  INVALIOI 

( KHLCN.  a LCNOTH  IN  CHARS  lUILL  OC  PAOOCO  WITH  BLANKS  TO  NORO  BOYI 

• 

1 NSMARNl  a HARNINO  NCSSAOC  IP  NISSINO/ INVALIO  (•  NCANS  RCOUIRCO* 

C — - - - 

c 

c 


N-lOB 


MN  MCKAOC  AMVNOtX  N 

ttmirr  nownNCt 


Mcrs 

eo« 


CALL  rilACCf  *OCrSALM 

CACL  «IWAOt  • tPAN  tf  AlLONCO  A NCQUIKCO 
CALL  OCrOKMIKMrcn^.ll » .LU8LLN,  LUSLLH.LUSINOI 

irtiu8HAx.or.oi  oo  ro  oto 

CALL  MAHMSt  HOHAHNI 

00  ro  000 

no  trt.Nor.trouALtxHrcHr.i.in 

0 .oH.trHUALtLusiHo.LuSLoe.LusLCNtn  00  ro  f«0 

CALL  MAHNO ( HOHAHNI 

00  ro  000 

on  IU8LCN*0  0 HHCHAHC  ro  OCr  SAHC  riCLO  AOAIN 

CALL  OCrOKNtKNrLO.tKNLCNI .LUOLLH.  LUOLLH.LUOINOI 
00  TO  000 


0 oer  lor  cnah 


» 


CNrHv  oersKHi  o oer  chahactcr  sthino  data  riCLO  rRon  unit  o 

0 KHrio.  0 HcruRN  AS  CHARAcrcR  strino  (unchanoco  ir  nissiNOi 

1 KHLCN.  0 LtNOTH  IN  CHARS  fUlLL  OC  RAOOCO  HI TH  BLANKS  TO  HORO  BOY* 

« 

I RSHARNI  0 HAHNINO  NCSSAOC  IF  Hi SSI  NO  (•  HCANS  ReOUlRCOI 


CALL  TRACet  ‘OCTSKH'I 

CALL  SHCAOS  • SHAN  IF  ALLOHeO  S RCQUIRCO 
CALL  OCTOKNIKNFLO. IKHLtNl .LUSLLN.  LUSLLH.LUSINOI 
IFILUSNAX.Lt.O)  CALL  HAHNSI  NSHARN) 

00  ro  000 


CNrHY  oersHLi  o oer  oeAL  OArA  FieLo  fhon  uNir  s 
0 HLFLO.  0 HeruHN  AS  ReAL  (UNCNANOeO  IF  NISSINO  OH  INVALIOI 


c 

c 

c 


t HLCOeF. 

I HLNIN.HLNAX. 
I NSHARN I 


0 COeFFICieNT  BY  HNICN  INRUT  FIFLO  IS  TO  Oe  NULTIRLieO 
• NININUN/HAXINUN  VALIO  RSAL 

0 uARNiNO  NessAoe  IF  NissiNonNVALio  (•  NSANS  ReouiReoi 


CALL  TRACei  ‘oersHL'i 
KCYK00*’HL* 

00  ro  800 


N-ltO 


uoo  wuuuuu  ouu  uuuuo 


OAN  M6KA0C  AMCNOIX  N 

uriLirv  xouTiNCt 


•CTI 

•Of 


CNTIIY  OCTSrMf  A OCT  fllACriON  OATA  riCLO  TRON  UNIT  S 
0 RtrVA.  I RCrURN  At  REAL  tUNCHANOCO  If  RIttINO  OR  iNVAUOt 


I RLCOCr. 

I RLHIN.RLHAX. 
I HtMARNi 


A eocrrtciCNT  tv  mhich  inruy  rtcLO  it  ro  tc  miLrmico 

A NINlNUn/RAXtNUR  VAilO  REAL 

A HARNINO  NEAtAOE  IE  Nl ttlNO/ INVAL 10  C*  HEANt  REOUIREOt 


CALL  TRACEC  *0ErtrR*l 
KEVK00«*rR* 

00  TO  too 


ENTRY  0ET9AXI 
0 RLELO. 


A OET  OECINAL'COOEO  AEXAOENARY  DATA  flELO  ERON  UNIT  9 
A RETURN  At  REAL  (UNCHANOCO  IE  N 1 99 1 NO  OR  INVALIO* 


I RLCOEE. 

I RLNIN.RLNAX, 
I H9HARNI 


A COEEEICIENT  IV  UHICH  INEUT  EICLO  IS  TO  AE  HULTIELICO 

A hinihun/naxinun  valio  real 

A HARNINO  HE99A0E  IE  Nl 9SI NO/ I NVAL 1 0 1*  HEANt  REOUlREOi 


CALL  TRACEC  *0ET9tX*l 
KCYK00*‘9X* 


OECOOE/tCALE/CNECK  REAL/ERACTION/tEXAOCNARV 


A REQUIRED 
LU9LLN.LU9IH0I 


900  CALL  9REA09  A SEAN  IE  ALLOHEO 
CALL  OETOKNCKNTCNE.CtHI.LUOLLN. 
IECLU9NAX.Or.OI  00  TO  9C0 
CALL  HARN9C  NtHARNI 
00  TO  900 

9t0  IECKEYKOO.EQ. ‘AX’ I 

A CALL  EUTCNRCKHTEHE. CLCHRCOCKHTENE. I .AN. 
IECKEVKOO.EO. *9X*t 

A CALL  EUTCNRCKHTEHE. CLCHRCOCKHTENE.I .AN. 

CALL  OCOOECINTEHE.  RLTEHE.  KOOTVE. 

• KNrENE.C|I.ILCHREQCKHrENE.I.A<*.*  *1*1 1 1 
RL  TEHE«RL  TENE^RLCOCE 

lECIRLTEHE.LT.RLNlNt  .OR.  CRLTENE.OT.RLNAXM 
IECCKOOTYE.EO.  MN'I.OR. 

A CKOOTYE.EQ. *Rl  *I.OR. 

A CKOOTVE.EQ.KCVKOOM  00  TO  9«0 
CALL  UARN9C  N9HARNI 
00  TO  too 
RLEL0«RLTEHE 
00  TO  too 


/ • n , 


/•II, 


»•! 


KOOTVE«*ERR* 


9N0 


C 

e 


N-lll 


u t>  o u 


MH  MCKAOC  Af»KNOIX  N 

uriLirr  nouriNCt 


•crt 

•M 


e 

e 

e 

e 


e 

e 

e 


mriir  octsini 

0 INTLO. 

» 

1 INHIN.INNAX. 
I N8HAANI 


• ecr  iNrcocR  data  ricLo  niQN  unit  s 

I RCrURN  At  INrCOCM  lUNCNANOffO  If  NittINO  ON  INVALIO* 

• NININUN/NAXtNUN  VALID  INtCeCN 

• HANNINO  NCttAOC  If  NlttlNO/ INVAI 10  I*  NCANO  NCOUINCO' 


CALL  rNACCf  *ocrsiN*i 

CALL  ONCAOt  I tMN  IT  ALIOUCO  A NCQUIRCO 
CALL  OCrOKNtKHrCNN.CtHt.LUSLLN.  LUSLLN.LUtiNOI 

irauSNAX.or.oi  oo  ro  oto 

CALL  MANNOI  XtUANNI 

00  ro  too 

oto  CALL  OCOOCCINrCHA.  rltcnn.  koo?tn. 

• KHrcNN.m.ucHNroiKNrenN.i.to.* 
in  ( INrCHN.tr.  INNINI  .ON.  MNrCHN.Or.  INNAXII  K00rrN**CNN* 
inxoorvN.co.  *iN*i  oo  to  svo 

CALL  MANNtI  HOUANNi 

00  ro  too 

tvo  INrL0«lNrCNN 

00  ro  too 


c 

e 

c 


CNTOV  UNOCrt  • lACK  UN  t riCLO  ON  UNIT  t 


CALL  TNACCI  ’UNOCrt’l 

LUtLCN-0  a NNCNANC  TO  OCT  tANC  NICLO  AOAlN 


OONC 

too  NCruNN 
CNO 


N-tIt 


OM  ^ACKAOC  AmiieiX  N 
UriLIT?  ROUriNCt 


NOVNir 

Ml 


•VMOttTINC  NOUNin  • MllirC  HCAOINO  tlNCtfl  AT  TO*  Of  NCXT  ^AM 

• 

I LAtTNO.  A LAtr  NCAOINO  LINC  TO  NHITC 
I mmiTI  • OUTMT  UNIT 


NltfORT 


c 

N 

tCNLOttCR 

Lce 

0T/t7/TX 

c 

N 

tCNLOttCR 

LCC 

0t/07/t0 

e 

N 

tCNLOtttR 

LCC 

ot/to/to 

oRieiMAL  eooc 

UAORAOC  oecuNCNrAriON 
Mftirc  Aten  vr  ro  rcRniNAL 


nctnoo 


Moe  cjcer.  then  uaitc  hcaoinc  cincs  o thru  lastho  on  nunit. 


NACHINC'OCRCNOCNT  COOC 


roRHAT  sRCCtriCAnoNt  Attune  t cnARAcrcRt  rcr  intcocr. 


cxrcRNAL  RcrcRCNcet 


SARRNt  f MRITC  AtCII  tTRINO  TO  fCAnlNAL 


cxccRnoNt 


NONC. 


OlOtAt  OCCLARArtONt 


ineLuoc  Konxor.utr  • eonnoN  rroorah  cxccution  tuircHCt.  couNfCRt 

IMLUOC  KORALT.Utr  t COHNON  AiTCRNArC  RRINf  fUC  COUNTCRt.  ROiNrCRt 


lOCAl  eCCLARAriONt 


INTCeeR  LtKiR 


• iMUNteR*ii  or  LiNCt  ro  txir  attcr  raoc  cjcer 


RRoerouRC 


N-ltl 


OM  ^ACKAfC  AmHOIX  N 

vriLir?  MtffiNCt 


NOUHir 

•M 


e PAOC  cjccr  «no  miovioc  top  namin 
e 

irttmmiT.CQ.ti.AM.iiMAreN.NC.iit  itKip«o 
IPICNVNir.CQ.tl.ANO. (NtArCN.CO.lt  I LtKIP«l 

IPILfKIP.CO.OI  CALL  CAPRNrd.t.tll  A ASCII  tO  TCRNINAL 
tra.SKip.NC. 01  tmirccNUNir.iost 
IN  roNNArci*i  0 ASCII  rr  ro  ANvrHiNO  clsc 
00  Its  L«t.LSKIP 

Mil  rctmiNtr. list 

IIS  roNNArc  *1 

Its  CONTINUC 

iraASTNO.or.oi  eo  ro  soo 
c 
c 

C PRlNr  SINOLC  UNC  NCAOINO 


irMMUNir.co.si.ANo.  • vNir  s ipoiNrti 
0 (HOATCN.NC.On  a SATCM  RUN  tSPOOVCO  TOR  PRiNrCRt 

A 00  to  Hoo  a 00N*r  print  hcaoino.  sccAuse  smsiONt  hill 

wRirciNUNir.ttsi  jrpiot 
MS  roRNAriioASi 

00  ro  Hoo 


c 

c 

e PRINT  NtllTl'ClNC  NCAOINO 

c 


soo  NPAOC*NPAOr*l 
NLINC«I0 

MRI rc t NUNI r . SOSi  JRPI or .NHNOOM. Nl r .NPAOC 


Sts  rORNATISX.IOAO.tX.Jl. *•*. Jl. *•*. 

URirC(NUNir.S*»S>  IJHOOINI.N*l.lt> 
SOS  rORNATIOX.ItAOi 

iriLASTNO.CQ.ll  00  TO  OOO 

HRirC INUNIT. SOS*  IJNOOINI .N«IS.tOI 


c 

c 

C SKIP  LINCS  AfTCR  NCAOINO 


c 


NRirCtNUNIT.ittSi 
Ots  rORNATIIXi 
OSO  CONTINUC 
RCruRN 
CNO 


N-IIO 


OAH  PACKAOC  APKNOIX  N 
UTILirV  ROUrtNCS 


001 


suooouriNC  io*»3soi 
A NAHtUO. 

A OUHNY. 

A ARO*. 

A AR03. 

A . . . 

A ARONI 


• OCT  H3O0-UO  l-OANK  ARRAY  A CALL  CXTCRNAL  OUOROUTINC 

• NAHC  or  CXTCRNAL  tUOROUTlNC  TO  CALL 

• OUHNY  ARO  tASSO-MO  t -RANK  ARRAY  RAtSCO  AS  1ST  AROI 

• OHO  ARO  ON  CALL  TO  NAHCO  SUOROUTINC  (OPTIONAL  I 

a 3R0  ARO  ON  CALL  TO  NAHCO  SUOROUTINC  I OPTIONAL  I 

a NTH  ARO  ON  CALL  TO  NAHCO  SUOROUTINC  (OPTIONAL! 


(C  H SCHL0SSCR1 

OINCNSION  n^RAY(<»3SQI  a PUTS  ARRAY  IN  I -SANK.  UNLIKC  UNI  VAC  FORTRAN  V 

CALL  NAH80GI ( ARR-S V . AROS . AR03 ARONI 

RCrURN 


this  SUOROUTINC  IS  USCO  HHCN  A LAROC  ARRAY  HU8T  SC  PUT  IN  THC  I -BANK 
IN  OROCR  TO  OALANCC  THC  STRUCTURC  OP  OVERLAY  SCONENTS  IN  A BANK-IHPLIEO 

collection. 


S(on 

AXRS 

IB«>3S0« 

LXI 

XU  .ONE 

LA 

A3, (ARRAY! 

SA 

A3. I. XII 

J 

• 0.«XI  1 

ONE 

<■ 

1 

OAPt 

RES 

1 

ARRAY 

RES 

V3S0 

GAP3 

RES 

1 

. INCRENCNT  AROUNENT  POINTER  BY  I ON  EXIT 
. AOORESS  OP  I ‘BANK  ARRAY 

BECONES  AOORESS  OP  3N0  ARO 
. JUHP  TO  1ST  ARO  a POINT  TO  2ND  ARO 

. NO  NAN’S  LAND 

. ARRAY  IS  IN  I ’BANK  INSTEAD  OP  0-BANK 
. NO  HAN'S  LAND 


SAHPLE  CALL  I NO  SEQUENCE 


external  SUBA 

CALL  IBH«.50(SUBA. OUHNY. X8.X3I 
• • • 

subroutine  SUBA(ARRAY.XB.X3I 
OIHENSION  ARRAY(H350i 
• • • 

CNO 


N-tlS 


OAN  MCKACC  AMCNOtX  N 
UTILITY  IIOUrtNCS 


tOCRT 

001 


tUmOUTINC  lOCRTI  • MINT  SHORT  10  TOR  CRTS  SCCNe 
I lUNITI  • OUTRUr  UNIT 


1C  H tCHLOSSCRt 


CXrCRNAL  SUOROUriNCS/rUNCriONS  CALLCO 


SPLIT 


INCLUDE  KONNCR.LISr  • MUST  HAVE  BEEN  PREVIOUSLY  LOAOEO  BY  CALL  TO  OPENS 


CALL  SPLtTIPlTOEO. ISPITO.INPiro.APITOi 
CALL  SPL I T ( ROLOEO . t SROLO . I NROLO . AROL 0 ) 
HRITEI lUNIT. 1251  NERTS.NCCT. 


I 

e 

3 

•» 

5 

125  FORHATI 

1 

2 
3 
•» 

5 

RETURN 

ENO 


NEROAY . NERHON . NERYR . 
NERSAN. 

NERSEL. 

ISPITO.INPITO.APITO. 
1 8R0L  0 . I NROL  0 . AROL  0 
•.•E-*.II.J»»,*-*.J5.*-*.ll. 
*.I2.A3.U2. 

• . IH. 'SAMPLES* . 

SUNEL**. J2. 

PITCH*. At. It. F3. 2. 

ROLL*. At. It. F3. 21 


woouuuouuuuuouuuuuuuouuuuuuuouuuuouuuuuuououu 


OAN  ^ACKAOC  AMCNOIX  N tOCKTt 

ttTILirv  ROUriNCS  Mt 


SUBROUrtNC  lOCRTSt  • PRINT  eONPLCre  10  POR  CRTS  SCCNC 
t tUNtn  • OUTPUT  UNIT 


HISTORY 


C M SCMLOSSCR 
J C CRISP 
J C CRISP 


LCC  09/17/73 
tec  tO/OH/79 
LCHSCO  01 /I  S/SO 


alooritmh  cool  no 

AOOiriONAL  CRTS  SCCNC  PARAHCTCRS 
LOU/NIOH  OCPINCO  LINCS/SANPLCS 


HCTHOO 


HRirC  INPONNATION  CXTRACTCO  PROH  10.  HCAOCR.  AND  ANNOTATION  IJCCOROS 
PRON  A TAPC. 

CRTS  COWVCNTIONS  POR  ATTITUOC  AND  HCAOINO  ARC  AS  POLLOUS: 

POSITIVC  PITCH  IS  NOSC  OOUN 

POSITIVC  ROLL  IS  CLOCKUtSC  VICHCO  PROH  ABOVC 
POSITIVC  YAH  IS  COUNTCRCLOCKUISC  VICHCO  PROH  ABOVC 
POSITIVC  HCAOINO  IS  CLOCKHISC  VICHCO  PROH  ABOVC 


NACHINC-OCPCNOCNT  COOC 


NONC 


CXTCRNAL  RCPCRCNCCS 


SPLIT 


a SPLIT  RCAL  INTO  SION. 


INTCOCR.  OCCINAL 


CXCCPTtONS 


I.  0PCN3  HUST  HA VC  BCCN  CALLCO  BCPORC  CALLING  THIS  ROUT  INC. 
OLOBAL  OCCLARATIONS 


INCLUOC  KONXQT.LIST 
INCLUOC  KOHNCR.LISr 
INCLUOC  KONIHH.LIST 
INCLUOC  HINOCP.LIST 

c 

c 

C LOCAL  OCCLARATIONS 
C 


a CONHON  PROORAH  CXCCUTION  SHI TCHCS.COUNTCRS 
a CRTS  SCCNC  PARAHCTCRS 
a ocpiNC  input  uinooh  packct 
a OCPINC  ThO'OIHCNSIONAL  hinoou 


N-II7 


OAN  MCKAOe  AMCNOtX 

uriLirv  ROurtNcs 


locurt 

ooc 


INTeOCR  NSALL0.N8ALHI 
INTCOCR  nSASLO.HSASMI 

iNreocii  loftSHo  a 

INTCOCR  NCHAN  I 

INTCOCR  ITCNR  ClOt  i 


a LON  AND 
a LON  AND 
OROIT  NCAOINO 
CHANNCL  NUHOCR 
TCMPORARY  BUrCCR 


HI  ON  OCriNCO  LINCS  IN  rULL  SCCNC 
HI  OH  OCriNCO  SANRLCS  IN  CULL  SCCNC 


OF  CHANNCL  NUN8CRS 


C 

c 

c 

c 

c 


c 

c 

c 


RROCCOURC 


CALL  TRACC 
lOROHO-HNYOeo 

CALL  SPLIT  {PITOeO.ISPirO.lNPiro.APITOI 
CALL  SPLIT  (ROLOeO. ISROLO. INROLO. AROLOl 


COHPUTC  RANOe  OP  LINES  A SAHPLCS  IN  PULL  SCENE 

HSALLO«CTRLlN-O.S«(NERLIN-n*O.S 
HSALHI«CTRLIN»0.5«(NERLIN-I I*0.S 
HSASLO>CrRSAN-O.S*(NERSAH-t I *0 . S 
HSASHI-CiRSAN*O.S*(NERSAN-I I *o.s 


HRITE  (lUNir.aoOi 


0 

I 

e 

3 

3 

% 

H 

s 

aoo  PORNAT  f*0*.3A8/ 


NERSAT .NERSEN. 

NERAON.NERPAT .NERROM. 

NERTS. 

NCcr.Nccror . 

HSA  I HH(  UL  I N . HHI  N>  . NSA  I UNI  ML  t N . HHAX) 
HSALLO.HSALHl .NERLIN. 
HSAIHHfUSAN.HNiN) . NSA I HH( HSAH. HHAX > ; 

nSASLO.NSASHI .NERSAN. 

NEROA Y . NERNON . NERYR 


0 

’OPATH'ROHt 

* .At . IX. 

A3. IX. A3/ 

1 

* SCENE  1 

*.II.Ji». 

•-• .J5/ 

s 

• STRIPi 

*.ex.ii 

.*  OP 

• 

.11/ 

3 

* LINES: 

•.IN.* 

TO  ’.IN.* 

OF  * 

. IN. 

• TO 

•.IN. 

3 

3X 

. ‘CSIZE-* 

IN.  •» 

• / 

H 

* SAMPLES: 

• . IN.  • 

TO  •.IN.* 

OP  • 

.IN. 

• TO 

• . IN. 

N 

3* 

. •fSIZE«*. 

IN.  •> 

• / 

5 

* DATE: 

•.IN. IX 

.A3. IX. JO) 

C 

C 


HRITE  (IUNIT.300I 


0 

I 

C 

3 

N 

8 

0 

7 


CTRLAT .CTRLON. 
CTRLIN.CTRSAH. 
OIRLAT.OIRLON. 

NCRSCL . 

NCRSAZ. 

lORBMO. 

ALTKN. 

ISPITO.INPITO.APITO. 
I SROLO. I NROLO . AROLO 


N-IIB 


OAN  MCKAOC  A#KNOIX  N 
UrUtTY  ROUriNCS 


tOCNYS 

aos 


t 

300  rOMHAT  <• 

0 
t 

t 

3 

t* 

s 

t 

7 

e 
e 

C LOAD  rCHPORARY  BUrrCft  UITH  CHANNCL  NUHOCRS 

c 

00  <*00  NCHAN*1  .NERCHA 

I rCNPf NCHANI «NCHAN 
<»00  CONMNUe 
C 
C 

HRITC  (I UNIT. 900)  NEROCO. 

0 NERRES . 

t NERCOR 


CCNTERtOCOti 

CCNYERCSCANI < 

NAOIRt 

tUN  CLt 

SUN  AZt 

HOO'YAUt 

ALTt 

PtTCHt 

ROLL! 


• .ro.<».ox.P9.*»/ 
*.P6.t.SX.PS.l/ 
'.rS.R.CX.PS.H/ 
••IR/ 

•.IR/ 

*.IR/ 

‘.rs/ 

’.At.it.rs.s/ 

’.AI.it.P3.2) 


c 

c 

c 

c 

c 

c 

c 

c 

e 

c 


WRITE  (lUNtr.SSO)  ( ITEMPtNCHAN) . NCHAN«t, 
WRITE  (lUNiT.OOOi  (NERBANCNCHANI . NCHAN-t 
WRITE  ilUNIT.SSO)  INEROAl (NCHAN) . NCHAN>1 
WRITE  (IUNIT.700I  (NERTNOINCMANI . NCHAN>I 


900  PORNAT 

( • 

OEONETRY: 

*.A3/ 

0 

• 

RESAMPUNOi 

•.A3/ 

I 

« 

CORRECTION! 

•.A3I 

990  PORNAT 

1 • 

CHANNEL i 

*.I0(I3>> 

600  PORNAT 

( • 

BANOt 

*.IO(A3lt 

BSO  PORNAT 

1 • 

OAlNt 

'.IOIA3n 

700  PORNAT 

1 • 

nOOEi 

‘.10IA3U 

C 

c 

c 
c 

c 
c 

c 
c 

c 

c 

e NORHAL  RETURN 
C 

RETURN 


NERCHA) 
.NERCHAI 
. NERCHA » 
.NERCHAI 


N*tlB 


OAN  MCKAOC  AI»PCNOIX  N 
(fTIUTY  MOUTINCS 


lOCRTt 

00*1 


OOOOOOOoooooooooooooooooooooooooooooo  UUOUOUUOUOUUUUU 


DAN  ^ACKAOC  AmNOIX  N 
UTILITY  MOUTINCS 


lOLUS 

001 


SUOROUTINC  lOLUSt  A OOINT  SMOOT  10  FOR  LOOICAL  UNIT  3 
I lUNITI  • OUTRUT  UNIT 


HISTORY 


e 

N 

SCHLOSSER 

LEC 

I0/BB/7S 

REQUIREMENTS 

c 

A 

HELNKE 

LEC 

io/es/79 

ALGORITHM 

OESION 

e 

A 

HELHKE 

LEC 

I0/B9/7B 

algorithm 

cool  NO 

nCTHOO 


use  rne  charactcr  ourreR  RourtNts  ro  pornat  an  output  display 

FOR  LOOICAL  UNIT  3 INFORMATION. 


NACHlNe-OCPeNOENT  CODE 


rwe  INTERNAL  FILE  NAME  FOR  AN  ALTERNATE  PRINT  FILE  REQUIRES  \S 
CHARACTERS  WHICH  IS  ^ HOROS  ON  THE  UNI  VAC  I 1 00 . 


EXTERNAL  REFERENCCS 


ERPRNT  • PRINT  STRING  OF  FIELOATA  CHARACTERS 

ERPRTA  a WRITE  STRINO  OF  FIELOATA  CHARACTERS  TO  ALT  PRT  FILE 

C8S>»IN  a ENCODE  INTEOER  TO  A VARI  ABLE -LENOTN  STRINO 

CSTNIN  a CHARACTER  STRINO  FOR  INTEGER 

CBINIT  a initialize  CHARACTER  BUFFER 

CBHCST  a APPEND  CHARACTERS  TO  CHAR  BUFFER  FROM  CHAR  STRING 

CB>»iN  a encode  integer  a append  to  character  buffer 
NOFATL  a print/loo/tally  ‘Fatal  error*  hessaoe 

DOUBLE  PRECISION  CBS>»IN 


EXCEPTIONS 


1.  IF  IN  OATA/CHECKOUT  NODE  AND  OUTPUT  UNIT  IS  NOT  EQUAL  6.  RETURN  IS 
IHHEOIATE  WITH  NO  OUTPUT  SINCE  ALTERNATE  PRINT  FILES  ARE  NOT 
AVAILABLE  IN  OAT A/CHECKOUT  NOOC. 

t.  ALTERNATE  PRINT  FILE  OUT  OF  RANOE  INDICATES  A PROORAMMER  FATAL  ERR. 


OLOBAL  declarations 


N'lBI 


oooo  o r>  o o 


OAN  MCKAOC  AWCNOIX  N 

uriLtry  Rourtucs 


lOiUl 

oot 


iNCLuoc  KOHxor.utr 
INCLUOC  KOHLUS.LISr 
INCLUOC  tciun.Lisr 


tNCLuoc  rioer.Lisr 
c 
c 
e 

e LOCAL  OeCLARATIONS 
C - - 

c 


INTCOCR  lALrUNfOl 
C 
C 
C 
C 

C ANOCeOURC 
C 

c 


CALL  TRACE 


A COHHON  RROORAN  CXCCUTION  5UITCHCS.  COUNTCRS 

• I/O  ANO  UNRACKINO  OATA  fOR  NS8/R0V  OATA 

• RTANOARO  CNARACTCR  SurrCR  FOR  CHARACTER 

A RurrcR  routines 

A HNCNONICS  FOR  ROINTCRS  TO  LOCATIONS  IN 
A tOFILC  BUFFER 


A CNCOOEO  IR  CHAR  INTERNAL  FILE  NAME  FOR  ALT 
A RRINT  FILE 


IF  HRITINO  to  alternate  RRINT  FILE  THEN  CHECK  FILE  A ENCOOE  UNIT  NUN8ER 


IF  (lUNiT.EQ.BI  00  TO  RRO 

IF  INOATAC.NE.Oi  00  TO  900  A OATA/CHECKOUT  NOOE-NO  ALT  RRT  FILES 
IF  (lUNiT.OE.IO  .AND.  lUNI T.LE. I 10*NALTH-I I ) 00  TO  ROD 
CALL  HOFATLC 

« *I0LU3  CALLED  WITH  INVALID  PRINT  FILE  UNIT 

A C8S>»IN(  lUNITI  I 

OD  TO  900 

too  CALL  CSTHIN  f I AL TUN. I . It . I UNI T. 1 1 

tto  continue 


encode  output  line 


CALL  CBINlTdCBUFtt 

IFILU3FIDIFI0EQTI .EO. ’ TARE ‘ . OR. LUSFI 0< F IDEQT ) . EQ. 'DISK*! 
CALL  COHCSTI IC8UFI . *N0  EQUIPNENT* . < II . Iti 
00  TO  too 

t<»0  CALL  Ce<»CSTr|C8UFl.LU3FI0(FI0EQTI.(|l.HI 
CALL  C8<»CSTI  ICBUFI . ' ’.Ill.tl 
CALL  CB<*CST(  IC8UFI  .LU3FI0(F10EaCI  . 1 1 I .HI 
CALL  CBHCSTI ICBUFI . ' *.111.81 

IF  ILU3FI0IFI0EQTI .NE. 'TAPE* I 00  TO  860 

CALL  CBHCSTI ICBUFI .LUSFIOIFIOTRKI . 1 1 1 . 1 1 
CALL  CBHCSTI  ICBUFI  . *TRK  ‘.HI. SI 
CALL  CBHCSTIICBUFI.LUSFIOIFIOFRII .III .HI 
CALL  CBHCSTI ICBUFI . *FRI  REEL  ‘.Ill.tOI 
00  CSS  IVOL  • I.LU3VHI 

IFMVOL.NE.il  CALL  CBHCST I ICBUFI . * / ’ . 1 1 1 . 1 1 
CALL  CBHCST 1 1 CBUF I . LU3REL 1 1 VOL  1 . 1 1 1 . 6 1 
IFMV0L.EQ.LU3V0LI  CALL  CBHCSTI  ICBUFI . * « * . 1 1 1 . 1 1 

continue 

CALL  CBHCST I ICBUFI.*  *. 


00  TO  8H0 


CSS 


111. II 


O AOO 


urutrv  RouriNCt 


I 


tOiUS 

eoi 


tso  CALL  CR«ctr(ieiurt.i.u3rioiriosrNt.(ii.si 
CALL  ct*»ctr(iciuft.*  §ur  rHf.nt.tt 


MINT  line 

tto  tr  (iuNir.cQ.6i  CALL  CNRRNrn.to.icsurn 

ir  (IUNir.NC.6i  CALL  CRPRrAdALruN.I  .20.  IC6Urti 

c 

c 


600  NCruNN 
CNO 


OAN  »*CKAOC  AAPCNOtX  N 

umirr  AouriNCt 


lOUA 

001 


INTCOCA  rUNCriON 

0 0 INTCOCA  OUALICATC  IlNOIACCT  ACfCACNCC  TO  OATIONAL  AAOUHCMT) 
• lOUAI 

1 INTOCAt  A INTCOCA 


NttrOAV 


C H OCHLOtOCA  LCC 


OO/tT/70  OAIOINAL  COOC 


NCTHOO 


LOAD  AAOUnCHT  INTO  ACOIOTCA  AO. 


NACMINC'OCACNOCNT  COOC 


UAITTCN  IN  AttCHOLCA  TOR  THC  UNI  VAC  MOO  SCRICS  COHRUTCRS. 

TNC  AROUNCNTS  ARC  OCSIONCO  TO  SC  NACHI NC- I NOCPCNOCNT . 

OUT  THC  NCTHOO  OC  PASSINO  AROUNCNTS  IS  THAT  USC3  BY  UNI  VAC  PORTRAN  V. 

IHPLCNCNTINO  COOC  NUST  OC  RCWRITTCN  POR  OIPPCRCNT 

CONPILCRS  ICO..  UNI  VAC  ASCII  PORTRANI . ANO  OIPPCRCNT  HACHINCS. 


CXTCRNAL  RCPCRCNCCS 


NONC 


CXCCPTIONS 


NONC 


OLOOAL  OCCLARATIONS 


NONC. 


AXRS  . SANKS  RCVCRSCO  TO  CUHINATC  INOIRCCT  LOAO  TAOLC  CNTRICS 

SlOOi  . I*0ANK 

lOUP*  lA  AO. *0. XI I 

J t.XII 

CNO 


N-ICN 


OAH  MCKAOC  AmmiX  N 

umtTr  RouriNCt 


tUMOUriNC  INVOAII  • AOO  OfflOIN  TO  CNVCLOPC  I INrCOCM  ONLYI 
U NMUMM  • MINOOU  MCKCT  (INTCOCAI 

C - - 

e 

e (C  N tCHLOttCAl 

e 

e 

OINCNtlON  NMUPKrtt.lt 
iNCLuoc  uiNOcr.Litr 
e 
c 

NHNAKr 1 1 . HN t N t -NMUAKr 1 1 . MH I N) *NHHPKT  t I . WON 1 0 • 

NHMAKT ( I . MNAX I «NMMPK Tit. HHAX I *NHUAKr ( t . WOA I 0 > 

NUMAKT 1 1 . HN I N I •NUUAK  T I A . HN I N I *NHHNK  Tig. HON I 0 1 
NUHAKrie.UNAXi  •NHHNXriC.HNAXI  ♦NHHNKTK.HOAIOI 
RCrUAN 
CNO 


mvom 

•01 


o o o o 


OAN  MCKAOC  A^NOU  N 

iirii.trv  AovriNCt 


tUtROUriNC  tNYMINt  I CONPUTC  CNVCIORC  fOR  IRTCOCR  MINOON 
U NHMRKn  • MINOOM  R.'CKCT  (INfCOCRI 


tC  N tCNLOttCRI 


CxrCRNAL  CURROUriNCt/rUNCriONt  callco 


NOfATL 


OtNCNttON  NHUPKTO.n 

iNCLuoc  uiNocr.Lisr 


iNirtALIZC  CNVCLOAC 
NUURKTI I 

NHHPKT I t .MNAXI*«IA«*Stl 
NHURKrft.HNINI«»ft««S>l 
NUMPKr(t.MNAXt*-IA««lCt 


ocr  RoiNTCNS  ro  riRtr  ano  last  vcrmcc« 

|«INVCR*MVKR«I 

HAXVCR«NUUPKT(MUtCO.HHCAOI 
tPINAXVCR.OT.NiNVCRl  00  TO  *00 

tPIHAXVCN.NC.NlNVCRI  CALL  HOPaTLI'RAO  CNTAT  NOOC  POINrCR'l 
HAXVCR>NtNVrR»l 

NHHPXrit.HAXVCRI>0  • THC  OTHCR  VCRTCX  IS  THC  ORIOIN 
NHHPX r ( t . NAX VCR 1 «0 


PINO  tnc  cnvclorc 

too  00  100  NVCR«nlNVCR.NAXVCR 

NMURKTI I .MNINI*HINOINMMPKri I .HNINI ,NUWPXT< I .NVCRt I 
HHHPKTf I .HNAXI«HAXOINWUPKrM .HNAKI .NUWPKT ( I .NVCRI I 
NMURKrit.WN|NI«NINO(NUURKrit.HNlNt . NUWPX T 1 0 . NVCRI I 
NUURKT  1 1 . WNAX  i •NAXO  * NNURKf  < t . MNAX I . NWWPX  TH.  NVCRI  I 
100  eONMNUC 
RCrURN 
CNO 


iNimiN 

•01 


R'lCO 


OAN  PACKAOC  A^NOIX  N 

ttritirr  RouriNCt 


lAKOLII 

Ml 


sumouriNC  ukolri  • tNrcecii-eoiOR*CQuimcNr  ro<i  colon 

0 INC.  I INTCOCN-eOLON-COUlVALCNr 

1 KOLONI  • COLON  Ilf  CNANACTCNt) 


NltrONV 


ff  N OCNLOOtCN  LCC 


OO/tO/70  NOHro/OCtlON/COOC 


nctnoo 


AttlON  TmC  lNTCOCR«eOLON-CQUl  VALCNTt  0.  •».  0 TO  THC  ClClIOltl 
rNItriNULUO  MlHANT  AOOITIVC  COLONS  OLUS.  ONCCN.  NCO.  NCSNCCT I VCLT. 
AStlON  INTCNnCOIATC  I NrCOeNoeOLON<COUl  VALCNTS  TO  iNTCNMOIATr  COLONS. 
INOTC  that  slack  INO  INfONtlAT I ONI  AND  HNITC  <NO  OATAI  ANC  NOT  tNCLUOCO. I 
INNLCNCNTCO  SY  CXMAUSTIVC  SCANCH  ON  StONlMCANT  CNANaCTCNS  Of  KOLONt 
riNsr  CHANAcrcN 

OASN  <•!.  ir  NNCSCNT 

CNANACTCN  rOLLOUINO  OASN.  ir  NNCSCNT 


NACNINC'OCPCNOCNT  COOC 


NONC. 


CxrCNNAL  NCrCNCNCCS 


C NOVCSr  • HOVC  CNANACTCN  STNINO 

INTCOCN  LCHNCO  • LOCATION  IN  STNINO  Of  CNANACTCN  COUAL 

INTCeCN  LCNNAO  S LCNOTn  IN  CHANS.  NAOOCO  TO  NCXT  MONO  OOUNOANY 

c 

c 

C CXCCNTIONS 


I.  txc  IS  WNCHANOCO  tr  KOLON  IS  NOT  fOUNO. 


Clanati 


NONC. 


LOCAL  OCCLANATIONS 


INTCOCN  XL  $ COLON  IflONiriCANT  CNANACTCNfl 


N-ICT 


) 


oah  fackaoc  Amneu  n- 

ttriLITT  MVflNCt  Mt 


mrcocn  LOAm  i tocArioN  or  rioor  oaon  i-i  in  aolon 


MOeCOVNC 


c PUT  tieNiriCANr  CNANAcrcot  mon  koion  into  kl 

c 

CALL  KIVCtrrKL.m.CLCl^AOttM. 

• KMON.iii.m.’  *1  A ocr  tor  s cnaao 

LOAtM«LCMICQ(ROLOO.f  • LOCATION  Of  OAtN 

irtlOAtN.NC.OI  CALL  NOVCOriKL.Itt.tLCNPAOlSt >11. 

• KOLON.tLOASHl.tfl.*  *1  « iNSfNT  OA$H  A NCXT  CNN 

c 

e 

e AttlON  CQNNCSrONOlNO  l*K*C 

e 

irina.co.’O  *t.oo. 

A (KL.CQ.'iL  't.ON. 

A IKL.CO. ’OLU*t I IKC«0  A ALUC  • PNINANT  AOOtTlvC  COLON 

IPIIKL.CQ. *C*0’tl  lKC*t  A CYAN'iLUC 

irtlKL.CQ.’C  M.ON. 

A (KL.CQ.'Cr  ’(.ON. 

A (KL.CQ.*CYA*lt  lKC«f  A CYAN 

IPKKL.CO.'A  'I.ON. 

A CKL.ro.’ AO  ‘I.ON. 

A (KL.ro. ’AOU’ll  lKr*S  A AQUA 

IPICKL.ro. ‘0  ’I.ON. 

A (KL.ro. ’ON  ’I.ON. 

A (KL.ro. ’ONr’ 1 1 iKr«<*  a ONrrN  i nnihany  Aooiriyr  colon 

IP((KL.rO.’Y>0’ll  ur>s  a YCLLOHoONCCN 

IP((KL.rO.’Y  ’I.ON. 

A IKL.CO. ’Yr  ’I.ON. 

A IKL.CO. ’'.CL ’ll  IKC«A  A YCLLOH 

IPKKL.re.’O  ’I.ON. 

A IKL.CO. ‘ON  ‘I.ON. 

A (KL.CO.’ONA’II  IKC*7  A ONANOC 

IPMKL.rO.’N  ‘I.ON. 

A IKL.CO. ‘NT  ‘I.ON. 

A IKL.rO.’NCO’ll  IKC«A  A NCO  A NNIHANY  AOOiriVC  COLON 

IPIIKL.CQ. ‘N-N’II  IKC«A  ANCO'NAOCNTA 

irilKL.CQ.’N  ‘I.ON. 

A IKL.CO. ‘HA  ‘I.ON. 

A IKL.CO. ’NAO’ll  IKC«I0  A HAOCNTA 

c 

c 

C CONHON  NCruNN 

c 

000  NCr UNN 
CNO 


N-ltO 


OAN  PACKAOC  APKNOIX 

uriLiry  moutincs 


001 


c 

c 

c 


tumouriNC  jachxi  o jacooi  treoArtoN  ro  riNO  ciocnvalucs  a eiocNvecrofts 

U OYNCVL.  a It  SYNNCrRIC  MATRIX  Ot  CIOCNVALS  ON  OIAOONAL 

0 ciovce.  a ciocnvcctors 

1 NRCOIN.  a NUHRCR8  Or  ROUS  A COLUMNS  OINCNSIONCO 
I NRCUSC.  a NUMOCR  Of  ROUS  A COLUMNS  USED 

I CONVRO.  a CONVCROCNCe  rOLCRANCe 

U NITER.  all  MAXIMUM  ITERATIONS  Ot  ACTUAL  NUNOER  OF  ITERATIONS 
I S.  a RETURN  TRANSFER  LABEL  IF  NO  CONVERGENCE 

1 KFLAOl  a I > FIRST  CALL.  8 • SUBSEQUENT  CALL 


UNIVAC  1100  HATHPACK  ROUTINE 
SOURCE  CODE  IS  NOT  AVAILABLE 


WOOOOOOOUOOOOOOOOOOOOOOOOXiUOOOOOOOOOOOOOOUOOOU 


OAN  ^ACKAOC  APKNOIX  N 

umtrv  MouriNCs 


JOINtN 

001 


c 

e 


OUOOOUriNC  JOINONf  A JOIN  AOJACCNT  OCTCCTION  MeCOOOS  IN  SANC  LINE 
0 Moxour.  A oerecTioN  ourreo  in  poxocr  rooNAr 
0 JOTAT,  A status  CODES 

• * NORNAL  CONRLETION 
*ERR*  ERROR  CONPLETION 


C 


I NRXLPT. 
I HRXRNTI 


A LEFT  PORTION  OP  DETECTION  SUPPER  C IDENTICAL  TO  HPXSUP) 
IN  POXOEP  PORNAT 

A RIONT  PORTION  OP  DETECTION  SUPPER  IN  POXOEP  PORNAT 


HISTORY 


NARY 

TONPKINS 

LEC 

IB/08/79 

REQUIRE NENTS 

NARY 

TONPKINS 

LEC 

IB/19/79 

ALGORI THN 

DESIGN 

NARY 

TONPKINS 

LEC 

IB/ 19/79 

aloorithn 

CODING 

NETHOO 

IP  NPXLPTIPXBINTIONPXRHT 

(PX8INT) 

ISSUE  NOPATL 

ANO  RETURN. 

IP  NPXBUPOHPXBUP  ISSUE  NOPATL  ANO  RETURN. 

KLSTYP  • *OEN* 

ACCOROINO  TO  (PXLJOl).  fPXHJOU  IN  PREAMBLES  OP  NPXLPT  ANO 
HPXRHT  PREPORN  SEAHINO  OF  THE  TuO  BUPPERS.  SET 
NPXBUPCPXHJOI  ) ■ NPXRHTCPXHJOn  . 

FOR  ALL  KLSTYP 

ADJUST  NPXBUPCPXHSANI  ANO  HPXBUP C PXHB t N I TO  REFLECT  THE 
NIOHEST  8ANPLE  AVAILABLE  ANO  BIN  CONTAINING  THE  HIGHEST 
AVAILABLE  SAMPLE.  SET  fPXQUALI  - NAXOtPXQUALt  OP  THE  INPUT 
BUPPERS.  SHIFT  STARTING  AT  HPXRHT(PXBINS)  NUMBIN  OP  OATA 
TO  NPXBUP  BUFFER  BEOININO  AT  NPXBUPt PXH8I N> * I POSITION. 


nachinE'OEpenoent  code 


NONE. 


EXTERNAL  REFERENCES 


OETOYT  A OET  NON>NEO  INTEGER  FROM  BYTE  IN  BYTE  STRING 

OETICE  A GET  INT  CHAR  EQUIVALENT  FROM  CHAR  STRING 

OETINT  a get  integer  FROM  INTEGER  STRING 

PUTSYT  A PUT  NON'NEG  INTEGER  INTO  BYTE 

PUTICE  A PUT  INT  CHAR  EQUIVALENT  INTO  CHAR  STRING 

PUTINT  a put  integer  into  INTEGER  STRING 

NOVBST  A HOVE  BYTE  STRING 

NOVCST  -A  MOVE  CHARACTER  STRING 

HOVIST  A HOVE  INTEGER  STRING 


N-ISO 


nnnn*>nnnnnnnn 


OAN  MCKAOC  AmNOIX  N 

uriUTY  nouriNCs 


JOINCN 

oot 


cxccprioNS 


TNC  rOLLOUINO  CONOtTIONS  OCNCRATe  TNC  OIAONOSTIC  SNOHNt 
CONOiriON  OIAONOSTIC 

NRXLrrCRXBINTiONRXRMriPXSINn  NOFATL 

HPXaUFOHPXLPT  NOFATL 


OLOBAL  OeCLARATIONS 


INCLUOC  KONXOr.LISr 
iNCLuoe  PXBoer.Lisr 
INCLUOC  KONKLS.LlSr 

c 

c 

C LOCAL  OeCLARATIONS 

C - 

C 

INTCOCR  NPXBUF(t) 
INTCOCR  HPXLFTr I ) 
INTCOCR  NPXRHTf I ) 
INTCOCR  NUMB IN 
INTCOCR  JLOSAN 
INTCOCR  JHISAH 
INTCOCR  NxraiN 
INTCOCR  IZCRO/0/ 


A COMMON  PROGRAM  CXCCUTION  SUI TCHCS.COUNTCRS 

a ourrcR  structurc  ocfinition 

A COMMON  CLASSIFICATION  INFO 


a AROUMCNT 
a AROUMCNT 
a AROUMCNT 

a NUMBCR  OF  BINS  TO  SHIFT 
a JOIN  LOU  JOIN  TO  LEFT  SAMPLE 
a JOIN  HI  JOIN  TO  RIGHT  SAMPLE 
a NEXT  BIN  AFTER  MPXLFT 
a BINARY  ZERO 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROCEDURE 


SET  status  code  TO  DEFAULT  VALUE  AND  CHECK  FOR 
EQUALITY  BCTUCCN  BUFFERS 


JSTAT  • ’CRR* 


C 


IFILOCCHPXLFTI .NC.LOCiMPXBUFt I CALL  MDFATLI  > v 

• ‘HPXLFTOMPXBUF  --  JOINSN't  ( . 

IF(LOC(HPXLFTl .NC.LOCIMPXBUPl I 00  TO  900 

C 

iriNPXLFTIPXBiNTI .NC.MPXRHTIPXBINTI I CALL  MDFATLI  V. 

• *DirFCRCNCC  IN  BIN  TYPES  --  J0INZN*»  'A'' 

IFIHPXLFTIPXBlNTl .NC.MPXRHTIPXBINTI I 00  TO  900 

C 

c 

C RESET  status.  TEST  KLSTVP 
C 


JSTAT  • • • 

iriKLSTYP.NC. *OCN*l  00  TO  300 

c 

c 


N-ISt 


OAH  MCKAOC  AMCNOIX  N 
UriLITY  MOUTtNCS 


JOINtN 

003 


C ORCPORH  tCAHtNO  OP  OUPPCRS 

e 

IPCNPXLPrfPXBINri.CO.*OYr*l  call  eCrOYTtJLOSAN.  * 

• HPXLPTtPXOtNSI .HPXLPTIPXHOINn 

c 

IPtHPXLPrtPXOtNYI .CO. *CHR*)  CALL  OCT ICCIJLOSAN. 

• NPXLPTtPXOINSt .nPXLPTCPXHOINil 

c 

IPCHPXLPrcPXOINn.CQ.  MNYM  CALL  OCT  INY  f JLOSAH.  * 

■ NPXLPrcPXOINSi .MPXLPTIPXHOtNn 

c 

JLOSAH  • JLOSAH  * HPXRHT (PXL JOM 
C 

IPfHPXLPTCPXeiNTI .CQ. ‘BYT')  CALL  PUYBYTl 

• HPXLPTCPXBINSi .HPXLPriPXHBINI . JLOSAH! 

C 

tPCHPXLrrcpxBiNn  .eo.  *CHR' I call  puncei 

• nPXLPTCPXBlNSi .HPXLPTIPXHBIN) . JLOSAH! 

c 

IPIHPXLPTfPXBlNT! .CO. * INT * t CALL  PUTtNTI 

> HPXLPT IPXBINS! .HPXLPTfPXHBIN! . JLOSAH! 

C 

irCHPXRHTfPXBINT! .EQ. *BYr* I CALL  OCTBY T ( JHt SAH. 

• HPXRHTIPXBINSI.HPXRHriPXLBIN!! 

C i ] 

IFCHPXRHTtPXBINr! .EQ. *CHR* ! CALL  OET ICC  I JHI SAH.  ' 

• HPXRHTCPXBINSI .HPXRHT (PXL0IN! I 
C 

triHPXRHT (PXBINT! .CO. * INT’ ) CALL  OCT  I NT ( JHI SAH . 

■ HPXRHT (PXBINSI .HPXRHTIPXLSINn 

c 

JHI3AH  > JHISAH  *■  HPXLPTIPXHJOI  ! 

c 

IPCHPXRHTCPXBINT! .EQ. *BYT*!  CALL  PUTBYTI 

• HPXRHTIPXBINS! .HPXRHTfPXLSlN! . JHISAH! 

C 

tPIHPXRHTIPXBlNT! .CO. *CHR* I CALL  PUTICCf 

> HPXRHTIPXBINS! .HPXRHTCPXLBIN! . JHISAH! 

C 

tPIHPXRHTIPXBlNT! .CO. * INT* I CALL  PUTINTI 

• HPXRHTIPXBINS! .HPXRHTIPXLBIN! . JHISAH! 

C 

C 

C ADJUST  HPXBUP  PRCAHBLC 
C 

HPXBUPIPXHJOl ! * HPXRHT IPXHJOl! 

300  HPXBUPIPXHSAH!  • HPXRHTIPXHSAH! 

HPXBUP I PXQUAL!  • HAXOIHPXLPTIPXQUAL! .HPXRHTIPXQUAL! ! 

NXTBIN  • HPXLPTIPXHBIN!  » I 

HPXBUPIPXHBIN!  • HPXBUPIPXHSAH! •HPXBUPIPXLSAH! ♦HPXBUPIPXLBIN! 

C 

c 

C CONCATENATE  OUPPCRS 
C 

NUNBIN  • NPXRNTIPXH8INI  • HPXRHTIPXLBIN!  * I 
C 


N't  30 


OAN  l>ACKAOC  AMCNOIX  N 

UrtLlTT  ROUriNCt 


JOIMN 

•«R 


irfHRXRUrtRXRlNTt.CQ.'RYTM  CALL  NOVRSTI 
A NRXturiRXatNSt.NXTBIN.NUnatN. 

• HRXRNTIRXaiNS* .HRXRHrtPXLaiNI .NUNaiN. IZCROI 

e 

iPiHPxaupcpxatNn .CQ. *CHR*i  call  novcsti 
A NRxauP(PxaiNt) .NxraiN.NunaiN. 

• NPXRMTtPXalNS) .NPXRMTtPXLaiNl .NUnatN. * *1 

c 

iptNPxauptPxaiNri .CQ. *tNT*i  call  Novisrt 
A NPxaupiPxaiNSi .NxraiN.NUNatN. 

« NPXRHTCfxaiNSI .HPXRHT IPXLBINt .NUMSIN. tZCRO) 

c 

900  RCTURN 
CNO 
C 


N'tss 
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OAN  MCKAOC  APKNOIX  N 
UrUtTY  ROUriNCS 


K0LR4I 

001 


OUOOOUriNC  K0L0I»I(  • COLOR  rOR  iNTeOCR-COLORoCQUlVALCNT 

0 KOLOR.  • COLOR  HO  CNARACTCRSt 

1 IKCI  • tNYCOCR-COLOR-eQUlVALCNr 


NisroRY 


e H SCHLOSSCR  LCC 


00/20/70  Ronrs/oesiON/cooe 


HCTHOO 


ASSIGN  THC  CIC(  19311  TRISMNULUS  PRIMARY  AOOITIve  COLORS  BLUE.  GREEN. 
REO  TO  the  INTEOER-COLOR'EQUI VALENTS  0.  H.  8.  RESPECTIVELY. 

ASSIGN  INTERMEDIATE  COLORS  TO  INTERMEDIATE  I NTEGER-COLOR-EQU I VALENTS . 
INOTE  that  black  (NO  INFORMATION!  AND  WHITE  (NO  DATA)  ARE  NOT  INCLUDED. 
IMPLEMENTED  BY  TABLE  LOOKUP. 


NACHINE-DCPENOENT  CODE 


DIMENSION  SPECIFICATION  ASSUMES  6 CHARACTERS  PER  INTEGER 


EXTERNAL  REFERENCES 


HovcsT  • move  character  string 

INTEGER  LENPAO  I LENOTh  IN  CHARS.  PADDED  TO  NEXT  HORD  BOUNDARY 


EXCEPTIONS 


I.  HuLOR  is  unchanged  if  ike  is  less  than  0 OR  GREATER  THAN  10. 


GLOBAL  DECLARATIONS 


NONE. 


LOCAL  DECLARATIONS 


0 

2 

(» 

0 


INTEGER  K0LTBL(22)/ 
'BLUE 

•CYAN  • 

•BREEN 

•YELLON  •.  * 


• COLOR  table  in  ORDER  OF  I*K-E*S 
CYAN'BLUE 
AQUA 

YELLOH-OREEN*. 

ORANOE 


DAN  MCKAOC  APKNOIX  N 
UmiTY  ROUriNCS 


ROLRRI 

oac 


• 'RCO  *RCO-NAOCNTA  *. 

0 'NAOCNTA  •/ 

RROCCOURC 


irc t IKC.Oe.Ol .AND. C IKC.LC. lot  I 
0 CALL  NOVCSriKOLOR.Ill.tLCNPAOMRtl. 

• KOLrtL.(IKe«tC«tl.(tSI.*  ‘t 

RCTURN 
CNO 


N'ISS 


OAN  MCKAOC  AMCNOIX  N 

wmtrv  RouriNCs 


KtRlirO 

set 


•UtROUrtNC  KSMCOt 
U IRIX. 

e 
e 

I NCOL. 

I NROM. 

C 

I KtRRCO. 

I KSMIINKI 

C — 

C 

C (C  M SCNLOSSCftt 
C 
C 
C 

OtHCNStON  IPIXINCOL.NROUi  I LAST  2 ROMS  ARC  SCRATCH  SPACE  ••  NOT  PICTURE 
INCLUDE  ASHOCr.LlSr 


• SPREAD  COUNT  PLAOS  INTO  INTERIOR  UNOEPINCO  PIXELS 
t 1 PIXEL/NOROt 

HI  • NEAN  VALUE  CSIONEO) 

Nt  • COUNT  OP  ELENENT8  OEPININO  NEAN  (UNSIONEOi 

• NUNSER  OP  C0LUNN8  IN  OlOITAL  PICTURE 
S NUNSER  OP  RONS  IN  OlOITAL  PICTURE 

IIILAST  t ROMS  ARE  SCRATCH  SPACE  POR  ROUTINEIII 

• DISTANCE  TO  SPREAD  COUNT  PLAOS  PROH  OCPINEO  PIXELS 

• distance  to  spread  COUNT  PLAOS  PROH  REMOTE  PIXELS 


C 

OEPINE  KPXt I . J)-ASNH2I IPIXI I . J> I 
C 

OEPINE  H»XPUT( I .JI-ASNHI ( IPIXt I . JM 
OEPINE  NPXOETt I . JI>IPIxr I , J) /2«« 18 
CALL  trace 


• COUNT  OP  ELCNENTS  OEPININO  NEAN 

a ASSION  MEAN  VALUE  (SION  EXTENOEOI 
a RETRIEVE  mean  VALUE  (SION  EXTENOEOI 


e 

c 

c 

c 

c 

c phase  I ••  PLAO  ALL  UNOEPINCO  PIXELS  AS  RCnOTE 

C 

C 


IPIKSPRCO.LE.OI  00  TO  900 

NRNAX«NR0W-2  a LAST  g ROMS  ARC  SCRATCH  SPACE  --  NOT  PICTURClIi 

00  I VO  NR*I.NRHAX 
00  120  NC«t.NCOL 

KPX(NC.NRI-NINO(KPX(NC.NRI .2«*17-l I a HUST  PORCE  8IT  17  ZERO 

IPIKPXINC.NR) .CQ.OI  XPX(NC.NR) ■2**I8-t  a TCHP  REMOTE  PLAO 
ICO  CONTINUE 
I VO  continue 
c 
c 
c 
c 
c 

C PHASE  2 SPREAD  PLAOS  PROH  NON>RCHOTE  PIXELS  TO  REMOTE  PIXELS 

C 

C 

C SPREAD  PLAOS  8Y  KSPRCO 


KPXPL0*2**I7*I 
KPXPNI«KPXPL0*KSPRE0*I 
00  SSO  KPXPLO«KPXPLO.KPXPNI 
C 
C 

e SCAN  PICTURE 

C 


N't  38 


OAN  ^ACKAOC  AMCNOI 
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mpRCo 

Q«t 


00  100  NR-I.NRnAX 
00  170  NC«I.NC0l. 

iriKRXINC.NRI.NC.t««IO-ll  00  TO  S70  0 RIXCL  It  OCriNCO 

e 

c 

e INtURC  THAT  NCIONOORt  ARC  INtlOC  RICTURC 

e 

NRLO*HAXO(NR-t.n 
NRHI«nlNOINR»l .NRNAXI 
NCLO*nAXO(NC>t.lt 
NeNt«HINO(NC*I.NCOLi 

e 

c 

C tCARCH  NCIONOORt  fOR  NON-RCNOTC  RIXCLS 
C 

00  S*»0  NRX«NRLO.NRHl 
00  3S0  NCX>NCLO.NCHI 
irtKRXINCX.NRXI .OC.KRxriOi  00  TO  330 
KNX(NC.NR)>KI*XrLO 
00  TO  370 
330  eoNTiNue 
3<»0  CONTINUC 

e 

c 

C KCCR  SCANNINO 
C 

370  CONTINUC 
300  CONTINUC 
C 
C 

C KCCR  8RRCA0IN0 
C 

300  CONTINUC 
C 
C 
C 
C 
C 

C RNAtC  3 --  SRRCAO  TLAOt  CRON  RCHOTC  RIXCLt  TO  CXROSCO  NON'MCHOTC  RIXCLS 

C 

C 

C tRRCAO  riAOS  OY  KtHRNK 
C 

iriKONRNK.CQ.O*  00  TO  700 
KRXriO-KRXrNI •KtHRNK»l 

00  too  KRXrLO*KRXrNl .KRxrLO.-l 
c 
c 

e tCAN  RICTURC 

e 

00  too  NR-I.NRNAX 
00  070  NC-I.NCOL 

iriKRXtNC.NRt .LT.KRXriOl  00  TO  870  « RIXCL  10  NOT  YCT  CXROtCO 

iriKRX(NC.NRI.0T.C<«l7*l<0l  00  TO  870  • RlXCk  It  RCHOTC 
c 
c 


N-IS7 
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UriLtTY  ROUTlNCt  OOS 


e CNCCK  tr  pixcL  it  on  cooc  or  rierunc 
e 

triNN.co.n  00  ro  too 

triNN.CQ.NNNAXI  00  TO  S60 
irfNC.CQ.n  00  ro  too 
trfNC.CQ.NCOLI  00  TO  tOO 

c 

e 

e tCARCN  NCIOHRORt  rON  NCHOTC  NIXCLt 

c 

00  t*»0  NNO**t.*l 
00  030  NC0«-t.*t 

iriKrx(NC*NCO.NR*NRoi .or.KrxrLOvioii  oo  ro  too 

030  continuc 
OHO  continuc 
00  TO  070 


riAO  expooco  unocpinco  pixcl 

060  KPXINC.NRt>KPXFI.0*t80 


KCCP  OCANNtNO 

070  continuc 
000  continuc 


KCCP  OPPCAOINO 
000  CONTINUC 


c 


PNAOC  •»  --  FLAO  ALL  NCHAININO  NCHOTC  PIXCLO  AO  UNOCFINCO 


OCAN  PICruNC 

700  00  700  NN-I.NNHAX 
00  770  NC-I.NCOL 

IFIKPXCNC.NNI .0T.f«*|7»l80l  KPX<NC.NNI«0 
770  CONTINUC 
700  continuc 


IUTINC 


too  NCTURN 
CNO 


N-tSO 
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LMX%t 

ott 


tumouriNC  lioxak  a linc  or  tox  oioir  roo  iNrcocN 
0 LtOXO.  • tf-CNARACrCII  LINC  Or  IC>LtNC  OOX  0101 T 


I loioir.  a i-oioir  intcocr 
I KNRroR.  a roNCOROUNO  CNARAcrcR  roR  OOX  oloir 
I KNROAK.  a OACKOROUNO  CNARACTCR  fOR  tOX  0101 T 
I LINCI  a LINC  NUNOCR  fl  THRU  ICI 


NItrORY 


C N SCHLOffCR  LCe 

C H SCHLOSSCR  ICC 


ai/0S/7<»  CMARACrCR  STRiNOt  IN  aOX*NUH 

lC/C7/7a  CHANOC  ro  oitstrinos  in  LOOXHI 


NCTHOO 


CXRANO  OITSTRINO  TOR  LINC  Or  OIOIT  INTO  CNARACTCR  STRINO.  UtINO 
SRCCirieO  rORCOROUNO  ANO  OACKOROUNO  CHARACrCRS. 


NACNINC'OCRCNOCNT  COOC 


URirrCN  IN  AStCHOLCR  TOR  TMC  UNI  VAC  1100  SCRICS  CONRUTCRS  USINO  0*017 
riCLOATA  CNARACTCRO.  TNC  AROUHCNTS  ARC  OCSIONCO  TO  OC  NACN I NC - I NOCPCMOCNT . 
aur  TNC  NCTNoo  OP  RAtaiNO  arouhcnti  is  tnat  utco  av  univac  portran  v. 
INRLCNCNTINO  COOC  NUfT  PC  RCNRITTCN  POR  OIPPCRCNT  CNARACTCR  COOCS. 
OIPPCRCNT  COHRILCRf  ICO..  UNI  VAC  ASCII  PORTRANI.  ANO  OIPPCRCNT  NACNINCS. 


CXrCRNAL  RCPCRCNCCS 


NONC. 


CXeCRTIONS 


I.  TNC  POLIOUINO  CONOITI.ONS  OCNCRATC  TNC  RCSULT  SHOUNt 


CONOtriON 


VALUC  OP  LROXO 


lOIOIT  < 0 

loioir  > 0 
LINC  < I 
LINC  > It 


UNOCPINCO 

UNCNANOCO 

UNCNANOCO 

UNCNANOCO 


OLOOAL  OCCLARATIONS 


N-ISO 


OAN  PACKAOC  AmnOIX  N 

uriLirv  ROuriNCt 

AXM  . tTANOARO  UNI  VAC  1100  RCOIOrCR  NNCNONICt 

! LOCAL  OCCLARAriONO 


tIOOl 

. o-nank 

fcNN 

RCt 

• 

•r 

roRH 

ZCRO 

•r 

•r 

■r 

•r 

• 

ONC 

•r 

■r 

•r 

■r 

THO 

•r 

or 

•r 

■r 

itmti 

■r 

I 

I.I.I.l.t.t.I.I.l.t.I.i 

0.0.0. 0.1 .1 .1 .1 .0.0.0. 0. 
O.O.I.I.I.t.t.l.l.l.0.0. 
0.1  .1 . t .O.O.O.O. I . t .1.0 

1.1.1.0. 0.0.0.0.0.1.1.1. 

1. 1 .O.O.O.O.O.O.O.O.l.t. 

1. 1.0.  0.0. 0.0. 0.0. 0.1. 1 

1 .1 .0. 0.0.0.0.0.0.0.  I . t . 

1.1. 0. 0.0.0.0.0.0.0.1.t. 

1.1  . 1 .0.0.0. 0.0. 0.1  .1  .t 
0.1  .1 .1  .O.O.O.O. 1 .1 .1.0. 
0. 0.1 .1 .1 .1 .1 .1 . I .1 .0.0. 
O.O.O.O.I.l.t. 1.0. 0.0.0 

Q. 0.0. 0.0. 0.1. I. 0.0. 0.0. 
0. 0.0. 0.0. 1 . t . I .O.O.O.O. 
0.0. 0.0. I.l. I.l. 0.0. 0.0 
0.0. 0.0. 0.0. I.l. 0.0. 0.0. 
0. 0.0. 0.O.O.t .1 .O.O.O.O. 
0.0. 0.0. 0.0. I .1.0. 0.0.0 
0.0. 0.0. 0.0. I.l. 0.0. 0.0. 
O.O.O.O.O.O.I . I .O.O.O.O. 
0.0. 0.0. 0.0. I.l. 0.0. 0.0 
O.O.O.O.O.O.I . I .O.O.O.O. 
0.0. 0.0. I.l. I.l. I.l. 0.0. 
O.O.O.O.l.t.l.t.I.I.O.O 

O.O.O.l.t.t.I.l.t. 0.0.0. 
O.I.1 .1 .1 .1  .1 .1 .1 .1 .1 .0. 

1.1.1.0. 0.0.0.0.0.1.1.1 

1.1. 0. 0. 0.0. 0.0. 1.1. 1.0. 
0.0. 0.0. 0.0. 0.1. I.l. 0.0. 
0.0. 0.0. 0.1. I.l. 0.0. 0.0 
0.0. 0.1. I.l. 0.0. 0.0. 0.0. 
0.1. I.l. 0.0. 0.0. 0.0. 0.0. 

1 .1 .1 .0. 0. 0.0. 0.0.0.0. 0 

1.1. 1. 0. 0. 0.0. 0.0. 0.0.0. 
I.l. I.l. I.l. I.l. I.l. I.l. 

1.1. 1.1. 1.1. 1.1. 1.1. 1.1 

0.0. 0.1. I.l. I.l. 1.0. 0.0. 

0. 1. 1.1. 1.1. 1.1. 1.1. 1.0. 

1. t.I.'O.O.O.O.O.O.t.I.I 


. •irsTRI 


itWNI 

•M 
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LM«*I 

MS 


rouR 


rtvc 


SIX 


tCVCN 


■r  i.t.t.s.o.s.t.t.o.o.i.i. 

•.•.t.s.t.o.o.s.o.t.i.i. 
l.t.O.O.O.O.O.l.t. 1.0.0 

■r  o.o.o.o.o.o.o.i.i. 1.0.0. 

o.o.o.o.o.o.o.o.o.i.i.t. 

t. 1.0. 0.0. 0.0. 0.0. 0.1. I 

or  t.i.i.o.o.o.o.o.o.t.i.i. 

O.I.l.t.I.I.l.t.I.I.I.O. 

0.0. 0.1. I. 1.1.1. 1.0. 0.0 

or  0.0. 0.0. 0.1. 1.0. 0.1. 1.0. 

0.0. 0.0. 0.1. 1.0. 0.1. 1.0. 
O.O.O.O.l.t.O.O.O.t.t.O 

or  o.o.o.i.i.o.o.o.o.i.t.o. 

O.O.I.I.O.O.O.O.O.l.t.O. 
O.l.l.t.l.t.l.l.l.l.l.l 
or  1.1 .1. I. i.i.t .1. I . I . I . I. 

0.0. 0.0. 0.0. 0.0. 0.1. 1.0. 

0.0. 0.0. 0.0. 0.0.0. I. 1.0 

or  0. 0.0. 0.0. 0.0. 0.0.1. I .0. 

O.O.O.O.O.O.O.O.O.t.I.O. 

o.o.o.o.o.o.o.o.o.t.t.o 
or  1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . t . I . t . I . 

t.i.i.i.i.i.i.i.i.i.i.i. 
t.l .0.0. 0.0. 0.0. 0.0. 0.0 

or  1 .1 .0.0. 0.0.0. 0.0. 0.0.0. 

1 .1 .o.o.o.o.o.o.o.o.o.o. 

C.l. t.l. 1*1.1. t.l. 1.0.0 

or  1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 0 . I 

0.0. 0.0. 0.0. 0.0. 0.0. 1.1.  I 

o.o.o.o.o.o.o.o.o.o. 1 . I 
or  t.l. 0.0. 0.0. 0.0. 0.0. t.l.  < 

O.t.t.l.l.t.t.l.t.l.l  .0.  I 

0.0.1. 1.1. t.l. 1.1. 1.0.0 

or  0.0. 0.1. t.l. 1.1. 1.0. 0.0.  t 

0. 1. 1.1. 1.1. 1.1. 1.1. 1.0.  I 

t.l. 1.0. 0.0. 0.0. 0.0.1 .1 

or  t.l. 0.0. 0.0. 0.0. 0.0. 0.0.  i 

t.l. 0.0. 0.0. 0.0. 0.0. 0.0.  t 

t.l. 0.1. t.l. t.l. t.l. 0.0 
or  1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 0 . t 

t.l. 0.0. 0.0. 0.0. 0.0. t.l.  I 

1. t. 0.0. 0.0. 0.0. 0.0.1 .1 

or  1. 1.0. O.O.O.O.O.O.O.I.I.  t 

O.t.t.I.I.I.I.I.I.l.t.O.  I 

O.O.O.I.I. t.l. 1.1. 0.0.0 

or  i.i.i.i.i.i.i.i.i.i.i.i.  t 

i.i. 1.1. 1.1. 1.1. t.l. t.l.  I 

o.o.o.o.o.o.o.o.o.i.i.t 
or  0.0. 0.0. 0.0. 0.0. t.l. 1.0.  t 

0.0. 0.0. 0.0. 0.1. I.I. 0.0.  I 

0.0. 0.0. 0.0. t.l. 1.0. 0.0 

•r  0.0. 0.0. 0.1. 1.1. 0.0. 0.0.  i 
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•.0.0.O.l.l.t. 0.0. 0.0.0. 
0. 0.0. f. I. 1.0. 0.0. 0.0.0 


or 

0,1.1. 1.0. 0.0. 0.0. 0.0,0.  1 

1. I. 1.0. 0.0. 0.0. 0.0. 0.0 

CIOHT 

or 

O.O.O.I.t.l.t.t.l.0.0.0.  t 
O.O.I.I.I.I.l.t.l.i.0.0.  1 
0,1. 1.0. 0.0. 0.0, 0.1. 1.0 

or 

O.t.t.O.O.O.O.O.O.t.I.O.  1 
0.0.1. 1.0. 0.0. 0.1. 1.0. a.  t 
O.O.O.I.I.I.I.l.t. 0.0.0 

or 

e.i.l.t.i.l.t.l.t.i.i.o.  1 

1.1.1.0. 0.0.0.0.0.1.t.t.  t 

1.1.0. 0.0.0.0.0.0.0.1.1 

or 

l.t.I.O.O.O.O.O.O.I.I.I.  t 

O.t.i.I.I.l.l.t.t.t.t.O.  > 

e.o.t.i.t.t.i.t.i.i.0.0 

NINC 

or 

O.O.O.I.t.l.t.l.l.O.0.0.  t 

t .1 .0.0. 0.0.0. 0*0.0. 1 . t 

or 

l.l.O.O.O.O.O.O.O.O.I.I.  i 
l.l.O.O.O.O.O.O.O.O.I.I.  1 
O.I.I.I.I.I.l.t.I.I.I.I 

or 

O.O.I.I.I.I.I.I.I.O.I.I.  t 
O.O.O.O.O.O.O.O.O.0. 1 . 1 . t 
0.0. 0.0. 0.0. 0.0. 0.0. 1 . 1 

or 

l.l.O.O.O.O.O.O.O.O.I.I.  1 

O.I.I.I.I.I.I.l.t.t.I.O.  t 

* 

o.o.e.i.i.l.t.i.i.o.o.o 
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• 
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jn 
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UrtLlTY 

routines 

008 

01. u 

AS.  3 

• 

AB  i«  (LINE>ll/3 

• 

• 

A3  I*  N00(rLINE-ll.3l 

AA 

At. At 

• 

AB  STAPTINO  MORO*  OP  BIT8TRIN0 

nsi.u 

A3.  IB 

A3  <•  STARTINO  BIT#  OP  BITSTRINO 

L0A0B8 

LA 

AB.ZERO.AB 

• 

AB  >•  BITSTRINO 

LS8L 

AB.0.A3 

• 

ALION  BITSTRINO  IN  AB 

• 

LA.U 

A3.  It 

• 

IB  REPETITIONS  (POR  IB  CHARS* 

• 

CNRHBir 

SA 

AO.TEHP 

• 

OET  WORD  PROH  CHRSTRINO 

JP 

AB.BtTOPF 

• 

UUHP  IP  BIT  IN  BITSTRINO  IS  OPP 

81  ton 

SA.St 

A4.TEHP 

• 

BIT  IS  ON  --  INSERT  POREOROUNO  CHAR 

J 

rotate 

BiTorr 

SA.Sl 

AS.TENP 

BIT  IS  OPP  --  INSERT  BACKOROUNO  CHAR 

rotatc 

LA 

AO.TEHP 

REPLACE  UORO  IN  CHRSTRINO 

LSSC 

AB.  t 

SHIFT  BITSTRINO  TO  LEFT  BY  I BIT 

Lose 

AO. 6 

SHIFT  CHRSTRINO  TO  LEFT  BY  I CHAR 

JOO 

A3.CHRi»BIT 

REPEAT  IB  TINES 

OS 

A0.*0.X11 

LBOXO  !>  AltAB 

RETURN 

J 

O.Xt  1 

END 
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LORCOR 

001 


SUOROUriNC  LORCOO  0 LOAD  RCOISrRAriON  RARANCrCRO  rRON  UNIT  0 ONLY 


NltrORY 


C N CCNL0S8CR  ICC  It/00/73  ORIOINAL  COOC 

C N OCHLOSSCR  LCC  lt/tO/79  SUPPORY  NCROCO 


HCTHOO 


rCNPORARILY  SAVe  COHNON  VALUCS  OP  CRITICAL  RCOISTRaTION  PARAHCTCRS. 

IP  UNIT  0 exists.  LOAD  ALL  RCOISTRATtON  PARANCTCRS  INTO  CONRON  PRON 
UNIT  0 ANO  CONPARC  THE  SAVED  VALUES  OP  CRITICAL  REOISTRATION  PARAMETERS 

hith  their  neuly-loaoeo  conhon  values. 

otherwise  load  nohinal  reoistration  parameters  l mooipy  them  based  on 
estimated  scene  center  previously  loaded  into  common  by  open  routines. 


machine-dependent  code 


NAMELIST  I/O 


EXTERNAL  REPERENCES 


ERCSP  • SUBMIT  ExEC-8  CONTROL  STATEMENT 

OCONST  a LOAD  oeometric  constants 

NONOTE  a PRINT/COUNT/LOO  ’NOTE'  OIAONOSTIC  NESSAOC 

hoharn  a print/count/loo  ‘harnino*  oiaonostic  nessaoc 

MOPATL  a PRINT/COUNT/LOO  ’PATAL  ERROR’  OIAONOSTIC  MESSAGE 

UNO  a UTH  (OR  STNi  COORDINATES  POR  OEOORAPHIC  COORDINATES 


EXCEPTIONS 


I.  IP  the  call  to  this  routine  is  to  L0RE08  (RATHER  THAN  LDREONI . THEN 
ANY  MISMATCH  BETWEEN  THE  VALUE  IN  COMMON  AND  THE  VALUE  PROM  UNIT  B OP. 
A CRITICAL  reoistration  PARAMETER  RESULT  IN  A PATAL  ERROR. 


olobal  declarations 


INCLUDE  KONXQT.LIST  a COMMON  PROORAM  EXECUTION  SWITCHES.  COUNTERS 

INCLUDE  KOMNER.LISr  a COMMON  ERTS  SCENE  PARAMETERS 

INCLUDE  kompit.list  a COMMON  aojustment/reoistrat ION  parameters 

INCLUDE  TRPORN.LIST  S DEPINE  COORDINATE  TRANSPORNAT I ON  PUNCTIONS 

INCLUDE  LSTLUB.LIST  a namelist  I/O  SPECIPICATIONS 

INCLUDC  FACDIT.LIST  a MNEMONICS  POR  PACILITY  REQUEST  STATUS  BITS 
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c 

e LOCAL  OCCLARATIONS 

C — 

c 

INrCOCR  N 
LOOICAL  ATTOer 
tNTCOCR  KSATOC(S) 

e 
c 

C RROCCOUNC 

C 

C 

CALL  rRACCf'LORCOe*) 

N>8  • RCOtSTRATtCN  PARAHCTCRS  RUST  BE  ON  UNIT  8 

00  TO  too 
C 

c 

c 

c 

c 

entry  loreon  a load  reoistration  paraheters  proh  best  available  source 

C - - 

c 

c 

CALL  TRACEI 'LOREON* ) 

N*0  a IP  PROPER  REO  PARAMETERS  NOT  ON  UNIT  8.  THEN  USE  NOMINAL  ONES 

c 

c 

C SAVE  CRITICAL  REOISTRATION  PARAMETERS 
C 

100  NERTI>NERTS(  I I 
NERTB>NERTS>SI 
NERT3*NERTS(3i 
NERLI-NERLIN 
NERSA*NERSAM 
CTRLI>CTRLIN 
CTRSA-CTRSAM 
CTRLA-CTRLAT 
CTRL0*CTRL0N 
PITOE>PITOEO 
ROLOE-ROLOEO 
NEROE-NEROEO 

c 

c 

C CHECK  IP  UNIT  8 IS  ASSIONEO 
C 

CALL  ERCSPCNAO. 'OASO.T  8.  . 'I 

IPIALREOVINAOI .EQ. n 00  TO  BOO 
CALL  ERCSPINAO. *aPREE  8.  . '> 

tPIN.EO.8)  CALL  MOPATLCNO  REOISTRATION  PARAHETERS  PROM  CONTROL*  I 
00  TO  SOO 

c 

c 

C LOAD  SCENE  NUMBER  PROM  UNIT  80  0 NITN  SCENE  NUMBER  PROM  MSS 
C 

BOO  RCA0<8.LSTNER.CN0«B80i 


L0RCB8 

BOB 


8 UNERE  TO  OCT  REOISTRATION  PARAMETERS  PROM 
a TRUE  IP  ATTITUOE  (PITCH  0 ROLLI  OEPINEO.  ELSE  PALSC 
8 SATELLITE  0 OEOHCTRV  (CHARACTER  STRINOI 
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003 


trtNCort.cQ.oi  oo  to  oho  • no  nss  data 

irtNCRTStOI .CQ.O)  NCRTSiat-NCRra  «.•>•••  rCHR  PATCH  A«A>A*a 

tPCNCRTStSI .eo.oi  NeRTS(3)«NCRT3  A«A»0>A  TCHP  PATCH  A*A*A»A 

trtCNCRTl.Ne.NCRTSI I) I .OR. 

A fNCRTC.NC.NeRTSfSn  .OR. 

A (NeRT3.NC.NCRTS(3l n 00  TO  «00 

c 

c 

C LOAD  RCHAININO  CXACT  RCOISTRATION  PARAHCTCRS  FROH  UNIT  0 
C 

C*»0  RCAOCO.LSTORe.CNO-aOOl 
RCAOCO.LSTSCN.eNO^aeOI 
RCAOtO.LSTrir .eNO>300l 
00  TO  300 
000  CALL  NOFATLC 

• *BAO  RCOISTRATION  PARAHCTCRS  FRON  CONTROL** 

00  TO  **00  a LOAD  NOHINAL  PARAHCTCRS 

c 

c 

C VCRIFY  CXACT  RCOISTRATION  PARAHCTCRS 
C 

300  irtNCRLI.NC.NCRLiNI  CALL  HOFATLC 

• 'LINCS/SCCNC  DOCS  NOT  HATCH  CONTROL  NCTuORK'l 
IPINCRSA.NC.NCRSAHI  CALL  HOFATL* 

• ’SAHPLCS/SCCNC  OOCS  NOT  HATCH  CONTROL  NCTUORK*) 
IF(CTRLI.NC.CTRLIN)  call  HOFATLt 

• ‘CCNTCR  LINC  OOCS  NOT  HATCH  CONTROL  NCTUORK*! 
if(CTrsa.nc.ctrsah)  call  H0FATL( 

• *CCNTCR  SAHPLE  OOCS  NOT  HATCH  CONTROL  NCTUORK*) 

IFI ABS(CTRLAT-CTRLA) . OT. 0.51  CALL  HOFATLt 

• *SCCNC  LATITUOC  OOCS  NOT  hatch  CONTROL  NCTUORK*) 
IF(ABSICTRLON-CTRLO) .OT.0.5)  CALL  HOFATLt 

• *SCCnC  LONOITUOC  OOCS  NOT  hatch  control  NCTUORK') 

ATTOCF«f tABSCPITOO .LC.SS. > .ANO. t ABS t ROLOO . LC . 99) ) 

IFt (ATTOCF) . ANO. t ABSIPITOCO'PI TOC) .OT. 0.30) I CALL  HOFATLt 
> *PITCH  OOCS  NOT  hatch  CONTROL  NCTUORK*) 

IFt I ATTOCF) . ANO. t ABStROLOCO-ROLOO .OT. 0.30) ) CALL  HOFATLt 

• *ROLL  OOCS  NOT  HATCH  CONTROL  NCTUORK*) 

IFINCROC.NC.NCROCO!  CALL  HOFATLt 

• *OCOHCTRY  OOCS  NOT  HATCH  CONTROL  NCTUORK*) 


CHCCK  CXACT  RCOISTRATION  PARAHCTCRS  TO  SCC  IF  CONTROL  NCTUORK  AQJUSTHCNT  IS  OK 

IFINCTLPT.LT. 6)  CALL  HOFATL t * FCUCR  THAN  6 CONTROL  POINTS*) 

IFIPCTCTL.LT. to. > CALL  HOFATL t * I NAOCQUATC  CONTROL  COVCRAOC** 
1FIRHSHCT.0T.S00I  CALL  HOFATLt *RHS  AOJUSTHCNT  CRROR  TOO  LAROC*) 
IF(NOTOTL.CO.O)  call  HONOTCf 
> *CXACr  RCOISTRATION  BASCO  ON  CONTROL  NCTUORK*! 

00  TO  BOO 

c 

e 

e RcsroRC  sccnc  nuhbcr 
c 

t»00  IFIN.CQ.BI  CALL  NOFATLI 

- ‘SCCNC  NUHBCR  OOCS  NOT  HATCH  CONTROL  NCTUORK*! 


N’lNB 


OAN  PACKAOC  AMCNOIX  N 
UriLlTY  ROUriNCS 


LORCOa 

00« 


NCRTSM  >«NCRM 
NCRrSIRI«NCRrt 
NCRrStSt-NCRTS 

e 

c 

e LOAD  NOMINAL  RCO I STRAY I ON  PARAHCTCRS  VIA  8YSIN  RUNSTRCAN 

e 

800  IFCNeRSATM I .CQ.OI  CALL  0C0N8T 

CALL  HOvcsrtKSAroe.m.tei.  NCRSAT.in.tsi.*  *t 

CALL  PUTCNRCKSATOC. (71 . *•*> 

CALL  HOVCSriKSATOe.lSl.iSI.  NCROCO. ( 1 I . ( 31 . * ') 

CALL  SYSAOOaOCriL.  ‘OAN*  . ‘RCO-NOH*  .KSATOCI 
iriLOCPIL.OT.OI  00  TO  880 

CALL  HOFATLC ‘PROORAH  CRROR  ••  NO  NOMINAL  RCO I STRAY  I ON  PARANCTtRS‘1 
00  TO  900 

880  ReA0(8.LSTSCN.eN0-890l 
RCA0(8.L8TPtT.CN0-880> 

CALL  STSOeT( INSTAT. lOUNNr.LCNOTH)  9 OCT  CNO-OF-AOO 

IF( INSTAT.CQ. ‘COA* I 00  TO  700 

880  CALL  NOFATLI 

• ‘PROORAN  ERROR  -•  NOMINAL  RCOISTRATION  PARAMETERS  8A0*> 

C 

C 

C MODIFY  NOMINAL  COEFFICIENTS  BASED  ON  ESTIMATED  SCENE  CENTER  FROM  TAPE  HEADER 
C 

700  IFCAeSISTMCMD-CTRLONI  .OT.if.  I STMCMO-CTRLON 
CALL  U<*0(STHE.STMN.  CTRL  A T . C TRLON.  STMCMD  I 

CORL  IN>C0RL'«AICTRLIN.CTRSAN) 

C0RSAM>C0RSHA(CTRLIN.CTRSAMI 
DSTME-STME'STMEHCCCORL IN.CORSAMI 
0STNN«STNN*STHN<»C(C0RL  IN.CORSAMI 
C0RSTMI3I«C0RSTM(3I *DSTMN 
C0RSTM(8I-C0RSTMI8I «dsthe 
CALL  REVERT(CORSTM.STNCOR) 

CALL  MDHARN( 

• ‘NOMINAL  REOISTRATION  8ASE0  ON  ESTINATEO  SCENE  CENTER* 1 

c 

c 

C RETURN 
C 

900  RETURN 
ENO 


N-IN7 


OAH  ^ACKAOC  APPCNOIX  N 

uriLiry  Rourmcs 


Loeotr 

oot 


INTCOCR  PUNCriON  • LOCATE  DISK  STN80LIC  PILE  OR  ELEHENT 


0 

B 

LOCATION  UITHIN  PILEt 

<0 

NOT  POUND 

• 

LOCOSPI 

• 

0 

PILE 

1 

NAHPIL. 

• 

NAME  OP  PILE 

>0 

ELEHENT  LOCATION 

1 

NANELT. 

a 

NAME  OP  SYMBOL  1C  CLEHENT 

t 

NANVERI 

a 

NAME  OP  VERSION 

HISTORY 


E H SCHLOSSER  LEC  01/17/79  ORIOINAL  COOC 


HETHOO 


CHECK  IP  PILE  EXISTS  ON  DISK.  THEN  SEARCH  FILE  TABLE  OF  CONTENTS 
FOR  CLEMENT.  ELEMENT  LOCATION.  RCOAROLCSS  OF  COMPUTER  OR  OPCRATINO 
SYSTEM.  IS  ALWAYS  RETURNED  IN  HOROS. 


MACHINE'OEPENOENT  CODE 


UNIVAC  EXEC  8 PROORAM  FILE  NAMINO  CONVENTIONS  ANO  EXECUTIVE  REQUESTS. 
UNtVAC  FASTRANO  SECTOR  SIZE  « 88  HOROS. 


EXTERNAL  REFERENCES 


ERPACL  • OET  FACILITIES  INFORMATION  ON  FILE 

ERPPS  • search  EXEC-8  PROORAM  PILE  TABLE  OP  CONTENTS 

EXCEPTIONS 

I.  PILE  OR  ELEMENT  DOES  NOT  EXIST. 
e.  PILE  OR  ELEMENT  IS  NOT  SYMBOLIC. 

S.  PILE  not  ASSIONEO  TO  CURRENT  RUN. 

OLOBAL  DECLARATIONS 


INCLUDE  NULCST.LIST  • OEPINE  NULL  CHARACTER  STRINO 


LOCAL  declarations 


N-IR8 


noon 


uriLirr  ftouriNCS 


I 


Loeotr 

oot 


INrcOCR  NAnriLOt  .NAHCLrrei  .NAHVCII(»t  • AROuncNrs 

iNreocR  iprPKrciei  « proorak  filc  packet 

INCLUDE  ASNOEP.LIST 

c 

c 

C PROCEDURE 
C 

c 

c 

CALL  TRACE 
C 

c 

c initialize  file  name 
c 

IPFPKTI I I aNANFIL I I ) 

IPFPKT(EI-NAMFIL(?I 

IFdPFPKTtZI  .CQ.NULCSn  IPFPKrcei** 


SEE  IF  FILE  EXISTS  ON  DISK 

L0C0SF--3  • INO  PROORAN  FILEI 

CALL  ERFACL ( IPFPKT) 

IFIASMSI ( IPFPKTCT) > .LT. ISt  00  TO  900  8 NO  FILE  ON  OISK 

C 
C 

C CHECK  IF  ELCNENT  8 VERSION  NAHES  ARE  NULL 
C 

LOCOSF-0  a (FILE.  NOT  ELEHENTI 

IF( (NAHELT ( I ) .EQ. ' * I . ANO.  ( NAHVERI I > .EQ . * *11  00  TO  900  8 FILE 

C 
C 

C initialize  ELENENT  8 VERSION  NAMES 
C 

tPFPKT(3l«NANCLT(II 

IPFPKTCHIaNANCLTfZ) 

IF( IPFPKTrm .EQ.NULCST)  IPFPKT(HI«* 

IPFPKT (7I>NANVER( I » 

IPFPKT(8I*NAHVER(EI 

IF( IPFPKTIDI .EQ.NULCSn  IPFPKr(8>>* 

c 

c 

c FIND  LOCATION  MITHIN  OISK  FILE 
C 

ASNSSdPFPKTCSn.l  a SYN80LIC  ELEMENT 

IPFPKTdll>*t  8 (NO  FINOI 

CALL  ERPFS( IPFPKT. ISTaT) 

L0C0SF«*Ia8S(ISTaTI 

IFdSTAT.EQ.Oi  LOCOSF>IPFPKTd  I l«E8  8 UNIVAC  1100:  88  NOS  / OISK  SECTOR 
C 
C 

C DONE 

c 

SOO  RETURN 
ENO 


NolNS 


LOO* 

001 


OAH  ^ACKAOC  AAACNOt 
urtLirv  ROurtNCS 


iNrcocR  ruNcrioN 

0 A LOOARITMN.  OASe  0 (TRUNCATCOi  OP  INTCOCR 
• LOOOC 

1 INTROS  I a Rosirive  non«zcro  intcocr 


Nl STORY 


C H 8CHL0SSCR  LCC 

C N SCHLOSSCR  LCC 


00/03/79  RCOUIReNCNTS 

00/06/79  OesiON/COOC/TCSr 


HCTHOO 


LOO.  OASe  6 


CNUH8CR  OF  StONIFlCANr  BITSI  -I. 


HACHINC-OEReNOENr  CODE 


URITTEN  IN  ASSENOLER  FOR  THE  UNtVAC  ttOO  SERIES  COHRUTERS  USINO  8-SIT 
pieloata  characters,  the  arouments  are  OESIONEO  to  be  HACHINE-INOEPENOENT. 
BUT  THE  HETHOO  OF  PASSINO  AROUHENTS  IS  THAT  USED  BY  UNIVAC  FORTRAN  V. 
INPLENENTINO  code  must  be  rewritten  FOR  DIFFERENT  CHARACTER  COOES. 
DIFFERENT  COMPILERS  (EO..  UNIVAC  ASCII  FORTRANI . ANO  DIFFERENT  MACHINES. 


EXTERNAL  REFERENCES 


NONE. 


EXCEPTIONS 


I.  RESULTS  ARE  UNDEFINED  IF  INTPOS  IS  ZERO  OR  NEGATIVE. 

8.  TO  maintain  machine  independence.  INTPOS  SHOULD  BE  LESS  THAN  8««3t. 


GLOBAL  declarations 


NONE. 


AXRS  . BANKS  REVERSED  TO  ELIMINATE  INDIRECT  LOAD  TABLE  ENTRIES 


0(001  . 

I -SANK 

L00f< 

LSC 

AI.«O.XI 1 

LA.U 

AO.SN 

ANA 

AO.Af 

. A8  I*  « OF  LEFT  SHIFTS  TIL  INTROS 

starts  in  bit  SH 

. AO  t«  («-ii  of  sionif  bits  in  intros 


N'tSO 


OAN  PACKAOC  APKNOIX  N 

uriLirv  KouriNCt 


tOM 

oot 


J t*xtt 

CNO 


N«I9I 


OAN  PACKAOC  APMNOIX  N 
UriLITV  ROUriNCt 


NARMOO 

001 


OUMOUriNC  HARNOOt  • HfUrC  MAR  HCAOINO  ON  NUNIT 
I NUNIT I • LOOICAL  UNIT  TO  HRITC  NAR  NCAOINO  ON 


t 

t NioroRv 

N 

» ————— 

c 

N 

tCHLOfSCR 

LCC 

07/10/79 

ORIOINAL  COOC 

c 

N 

OCHLOOtCR 

LCC 

00/09/70 

IDCNTIFT  COUNT  PCR  PIXCL 

c 

H 

OCNLOOICR 

LCC 

01/19/70 

lOCNTIPT  RAO/OCN/CLA  RANOC 

c 

N 

OCNLOOSCR 

LCNOCO 

OC/07/00 

UPORAOC  OOeUHCNTATION 

c 

N 

SCHLOSSCR 

LCHseo 

09/00/00 

HRITC  OCrCCrtON  CNANNCL  NUHOCR 

c hcthoo 


RRINT  INrOONATION. 


NACNINr-OCRCNOCNT  COOC 


rOANAT  SRCCirtCATtONS  ASSUHC  6 CHANACTCR8  PCR  INTCOCR. 


CXrCRNAL  RCPCRCNCCf 


NONC. 

CXCCRTIONO 


NONC. 


OLOOAL  OCCLARATIONt 


INCLUOC  KONOUU.LlSr 
INCLUOC  HiNOCr.LIST 
INCLUOC  KONPir.Llsr 
INCLUOC  KONKLS.LISr 

C LOCAL  OCCLARATIONS 


a CONNON  OUTPUT  HINOOU  •tCKCTS 
a OCPINC  STRUCTURC  OP  n:\30M  PACKCTS 
a COHHON  AOJUSTNCNT/RCarSTRATION  paranctcrs 
a COHHON  CLASSiriCATION  INFO 


INTCOCR  ITCNPfO)  a TCHPORAI 
RCAL  RLTCNRtCI  0 TCNPORARY 

e 

c 

C RROCCOURC 


N»I9C 


noon 


OAN  PACRAOC  A^NOIX  N 

unurv  AouriNCt 


e — — — 
e 

CAU  TAACZ 

e 

e 

c MKirc  ocrcerioN  cnanncl  nuhicn  a NAOUNCC/ocNSirv/CLASt  aanoc 
e 

MRirCtNUNir.llSt  LINCNI 

tis  roANArtix./ 

A Ax.’OcrccnoN  cnanncai  '.iti 
ircKLtrrA.ra.’RAO’t  MAirccNUNir.icsi  lcvloi.lcvmm 
Its  rOANATf 

A tX.'RAOlANCC  AANOC t ro  * . JSi 

irCKLtrvA.CQ. *OCN‘ I UAirC(NUNir.l39l  LCVIOI .LCVNI t 
I3S  roANAri 

A ax.'OCNSiry  aanoci  ro  ’.ji> 

irtKLSrrA.CQ. ’CLA’ ) HAirCINUNir.  t<»SI  LCVLOI  .(.CVHI  I 
IAS  roAHArt 

A ox. 'CLASS  AANOCi  ro  ‘.J3i 

c 

c 

C UAirC  COUNT  NCR  PIXCL 
C 

179  rOANAM 

A ex. 'COUNT  RCA  RlXCLt  '.131 


OCrCAHiNC  COOROINATC  SrSTCH  USCO  fOA  ORIOtN 
iriKSrOHMfHOAIOI .CO. 'SCA* I 00  TO  300 

ircKsrOHHiuoAioi .CQ. *oco' I oo  ro  aoo 

iriKSVOUMtMORIOi .CO. 'NIN'l  00  TO  AOO  • VALID  fOA  SUO-MINOOH 
00  TO  600 
C 

e 

C SCANNCA  OAIOIN 

c 

300  MAirC(NUNIT.3l9l  HSAOHUf UL I N. UOAI 0> . NSAOHUI USAN.UOAI  01 
319  rOANATf 'O' .9X. 'OAIOINj  '.IN.'  SCANLINC.  '.U.'  SAHRLC'i 
00  TO  000 

e 

c 

C OCOOAAAHIC  OAIOIN 
C 

NOO  CALL  ALCISXIOCOOMUIULAT.UOAIOI *.00001  .ITCNAI 1 1 .3.ALTCHA( M I 
CALL  ALCIOXfOCOOUUfWLON.UOAIOI *. 0000 1 . 1 TCNRCA I . 3. AL TCNRlCi I 
WAITClNUNir.NISi 
A (irCHAINI.N*!  .3>  .ALTCHAdl  . 

A I irCNAINt .N«N.e> .ALTCNRIOt 
NI9  rOANATl 'O' .9X. 'OAlOlNi  '. 

A tN.'i'.JO.'C.JC.rO.I.*  LAT.  '. 

A IN.** '. JO. 'I'.JC. ft. !.•  LON'i 
00  TO  000 

e 

c 

C UTA  OAIOIN 


NAANOO 

000 


N-193 


n n o o 


OAN  MCKAOC  APPCNOIX  N 

uruirv  iiouriNCt 


e 

■00  tMirCINUNir.OIOI  urnOMMtHCA.HOMIOI .UrnOMHiNNO.NOOIOI 
■If  roNNAM ’o'.sx.'ONiotNi  *.<xo.ro.i.*  xn  c.  '.ro.i.*  kh  n*i 
00  ro  000 
e 
c 

e MNirc  tCALC 
e 

000  irnoro.Lr. toooooi  MOirciNUMir.oisi  toro 

ots  rooNATnx./ 

I OX.’HAO  tCALCi  '.*l/*.IOI 

irtioro.oc. loooeo)  MOtreiNUNir.oosi  loro 
ots  rooHArnx./ 

1 OX.'NAt  tCALCi  *.*!/*. 101 


uotrc  AeoisroATioN  iNroonATioN 

HO tree  NUN IT. 0391  STNCNO 
0X8  rOONATdX./ 

N ox. ‘ooojcerioNi  toansvcosc  hcocatoo*/ 

0 ox  ’SONCOOIOi  CLAOKC  1060*/ 

0 OX.*CCNTOAL  NCOtOIANi  ’.fO.N.*  OCOOCCS'I 
HOirc(NUNir.o<»s>  nctlot .ocrcrL.ONfMcr 
0N8  rOONATMX./ 

7 OX.'CONTOOLI  ’.II.*  OOINTS  COVCOINO  *.n». 

7 * OCOCCNT  OP  CRTS  SCCnC*/ 

0 ox. ’ROOT  nCAN  SQUAOC  CROOOt  *.PS.*  tlCTCOS*//) 
OCTUON 
CNO 


i 


NAOMOO 

001 


c 

0*M  MCKAOC  AMCNOtK  N 

vriiirT  MouriNCt 


•uMOuriNC  NArpiin  • ^niiir  nAmix 

■ 

t LUNir.  • LOOICAL  UNIT  NtfMtCN 

I MLNAT.  • XCAA  tlNOtC  MCCItlOM  NArttlX 

I NANNOH.  I NANC  Of  MONt  <t*CMANACrCM  tTMlNOt 

I NmiW.NCUtC.  • NUNtCM  or  XOMO  a COlUNNt  WUO 
I NXOlN.lWOlNt  • NUNOCM  Of  XOUt  A COLUNNf  OlKCNtlONCO 


NItrOttY 


H L MOWN  ire  01/09/70  OXIOtNAL  COOC 


NCTNOO 


rxiNT  hitn  no. 9 roxNAr.  onc  xoh  rex  linc. 


NACHlNC'OCrCNOCNT  COOC 


NONC. 


cxrcxNAL  xcrcxcNCCA 


NONC. 


exeerrioNt 


I.  ANY  XOW  UirN  NOXC  THAN  A COLUMNS  It  XXlNrcO  ON  NOXC  THAN  I LiNC. 


OLOOAL  OrCLAKATIONA 


NONC. 


LOCAL  OCCLAXAflONt 


XCAL  XLNAriNXOlH.NCOINI  • AXOUNCNT 
tNYCOeX  I NON  I XOH  NUNiCX  TO  rxiNY 

INYCOCH  NX  0 CUXXCNT  NON  NUNOCX 

INTCOCX  NC  A CUNXCNY  COLUMN  NUHtCX 

e 

e 

c rxoccouNC 


NArmr 

••I 


N-IS9 


0AM  MACKAOC  AMMCMOU  N 

oriLirr  nouriNCt 


c 

e 

c 

e ir  ONir  i mom  it  to  ac  mintco  i mithout  nanc.  tuoiictt  oom  numocm 

c 

IOON*0 

irifimutc.CQ.it.ANO.iNAniiow.CQ. * *n  tiiou»tttt 
e 
e 

e ANINT  NATNU 

e 

00  I to  NM^I.MIUtC 
INOH«IAOH»I 

MAITCaUNir.  Iff  NANAOM.  lAOM,  (AinATCNA.NCI  .NC«I  .NCUtC* 
ift  roANATiix.At.if.  I rto.tno.  Si  i 
ISO  cohtimuc 
c 

MAircikUNtr.ttsi 
lit  rOANATUXI 

c 

AC TUAN 
CNO 


NATAOr 

tot 


N*ttO 


woooooooouoooouooooooooooooooooooooooouooooooooooooow 


DAN  PACKAOr  AfKNOIX  N 

urikirv  RourtNcs 


MOL  00 
001 


suoROuriNC  noLooi  a cmtcii  oiaonostic  nessAOCtsi  in  loo  riLC 

m 

t NS0t.NS00.nS03.N00'».N8OS.NSOe.V0t07.VOI08l  A 0 TO  0 HCSSAOCISI 


HISTORY 

E N 

SCHLOSSER 

LEC 

03/E6/73 

MULTIPLE  ENTRY 

POINT  CODE  IN  MOLOO 

E H 

SCHLOSSER 

LEC 

OI/03/7S 

REV  a SEPARATE 

routines 

E H 

SCHLOSSER 

LEC 

OS/BB/79 

COMBINE.  ADO  QUEUED  A MULTIPLE  MSGS 

E H 

SCHLOSSER 

LEC 

lB/08/79 

00N*r  queue  if 

trace  is  on 

NCTHOO 


THIS  HULTIPLC  CNTRY  POINT  TRANSFORM  PROCESSES  ALL  OlAONOSTICS  FOR 

the  oah  package. 

DETERMINE  HOU  MANY  OF  OPTIONAL  MESSAGES  ARE  PRESENT.  PUT  PREFIX  A 
MESSAOEISI  INTO  LOO  BUFFER.  IF  BUFFER  IS  NOT  EMPTY.  THEN  SAVE  IT  IN  QUEUE 
FILE  IF  MSOI  STARTS  WITH  *<’.  ELSE  PRINT  IT  IMMEDIATELY. 

AS  APPROPRIATE  TO  EACH  CNTRY  POINT.  HRITC  BUFFER  INTO  PROPER 
SECTOR  OF  LOO  FILE.  ADJUST  LOO  FILE  SECTOR  POINTERS.  ANO  UPDATE 
OIAONOSTIC  COUNTERS. 


OPERATIONS  NORMALLY  PERFORMED  BY  THE  CNTRY  POINTS  IN  THIS  ROUTINE 
ARC  SUMMARIZED  BELOW: 


CNTRY 

PRT/QUC 

NSO(S) 

LOO 

MSOISI 

CHANGE 

NOUARN 

CHANCE 

NOFATL 

CHANOC 

NOCLRH 

CHANOC 

NOCLRF 

MOLOO 

NO 

YES 

NO 

NO 

NO 

NO 

HONOTC 

YES 

YES 

NO 

NO 

NO 

NO 

NOHARN 

YES 

YES 

*1 

NO 

NO 

NO 

NOFATL 

YES 

YES 

NO 

♦ I 

NO 

NO 

NOCLRH 

YES 

NO 

0 

NO 

*NOHARN 

NO 

NOCL  RF 

YES 

YES 

710 

0 

NO 

4>N0FATL 

NOTCt  NDTOTL  equals  NOUARN  * NOFATL  * MCHCCK 


AN\  QUEUED  OlAONOSTICS  HILL  BE  AUTOMATICALLY  OE*nuCUCO  ANO 
PRINTED  ON  THE  NEXT  CALL  TO  READS. 


NACHINE'OCPCNOCNT  CODE 


UNI VAC  FORTRAN  V RETURN  K 
UNI VAC  EXEC'S  I/O  PACKETS 


N-187 


oooooooooooooootiooooooooooooooo 


OAH  PACKAOC  APKNOIX  N 
UriLirv  ROUTINCS 


not  00 
oot 


C CXrCRNAL  oerCRCNCCS 

C ARORCT  a OCrCRHlNC  NUHOCR  OF  ACTUAL  AROUHCNTS  A RCTURN  K VCCTOR 

C CtINIT  a INITULIZC  CHARACTCR  BurrCR 

e CBHCST  a CHARAcreR  eurrcR  for  charactcr  strino 

C CRIOH  a tNiriATC  I/O  ANO  WAIT  FOR  COHPLCTION 

INTCOCR  LCNCSr  a LCNOTH  OF  CHARACTCR  STRINO 

INTCOCR  ICC  a intcocr-charactcr-cquivalcnt 


eXCCFTIONS 


I.  PSTART  must  BC  CALLCO  BCFORC  THC  FIRST  CALL  TO  THIS  ROUTINC. 

C.  HSOI.  ..  .NS08.  IP  PRCSCNT.  MUST  BC  VARI ABLC-LCNOTh  CHARACTCR  STRINGS 

(HOLLCRITH  LITCRALS.  or  arrays  of  PACKCO  CHARACTCRS  TCRHINATCO  WITH 
NULCHR  OR  NULCST). 

3.  IF  HORC  THAN  S ACTUAL  NCSSAOC  AROUHCNTS  ARC  PROVIOCO.  THC  RCSULTS  ARC 
UNOCFINCO.  ANO  PROORAH  ABORT  TCRHINATION  NAY  OCCUR. 

<».  IF  THC  COHBINCO  LCNOTH  OF  ALL  HSOISI  PRCSCNT  CKCCCOS  IBO  CHARACTCRS. 
TRUNCATION  WILL  OCCUR. 

5.  IF  HSOI  IS  ABSCNT  OR  NULL.  NO  HCSSAOC  IS  QUCUCO.  PRINTCO.  OR  LOOOCO. 

6.  T‘.^C  OIAONOSTIC  COUNTCRS  NOHARN.  NOFATL  AND  NOTOTL  IN  LABCLLCO  COHHON 
fPROC  KOHXOTI  hay  BC  CHCCKCO  BY  OTHCR  ROUTINCS  but  HUST  not  BC  CHANOCD 
BY  THCH. 

7.  KOHXQT  ANO  KOHLOO  HUST  BC  INCLUOCO  IN  THC  MAIN  PROGRAM  (ROOT  OVCRLAY 
SCOHCNTI  OR  CLSC  THIS  ROUTINC  HILL  NOT  HORN  PROPCRLY. 


0L08AL  OCCLARATtONS 


INCLUOC  KOHXQT. LI  ST 
INCLUOC  KOHLOO. LIST 
INCLUOC  KOHIO.LIST 
INCLUOC  NULCST. LI  ST 
C 
C 

C LOCAL  OCCLARATIONS 

c 

c 


a COMMON  PROORAH  CXCCUTION  SHITChCS.  COUNTCRS 
a COHHON  LOO  FILC  BUFFCR.  I/O  PKT.  POINTCRS 
a COHHON  I/O  FUNCTIONS 
a OCFINC  NULL  CHARACTCR  STRINO 


INTCOCR  NNSOS  a NUHBCR  OF  ACTUAL  HCSSAOCS 

INTCOCR  KRCTN  a RCTURN  K VCCTOR 

e 

c 

C PROCCOURC 
e 


K’tSO 


OAN  PACKAOC  AWNOIX  N 

uriLirr  nouriNCs 


NOLOa 

oox 


c 

c 

C PUT  NUL  PNCPIX  A NCSSAOCfSI  INTO  eUFPCR  A OON*T  PRINT  OR  QUCUC  IT 
C 

CALL  TRACCC*NOLOO*t 
CALL  ARORCTINNSOS.KReTNI 
CALL  NOUPPQINULCST.NNSOSi 
IPCLCNCSTfLBUFR.IOt.LT.ai  00  TO  900 
C 
ft 

UR:TC  BUFFCR  to  TCRNINATION  sector  of  LOO  FILE 

lOSECTILOOPKTIaLOTERN 
lOFUNCfLOOPKTI >’SC’  A WRITE 

CALL  ERIOHfLOOPKTl 
00  TO  900 
C 

c 

c 

c 

ENTRY  NONOTEt  8 QUEUE/PRINT  A LOO  ’NOTE'  OIAONOSTIC  NESSAOE(S) 

I HSOt.NS02.HS03.NS0>*.nS05.NSO6.VOI07.V0t08l  8 0 TO  0 NESSAOE(S> 

C (QUEUE  IF  HSOI  STARTS  WITH  *(*  ELSE  PRINTI 

C 

c 

c 

C PUT  PREFIX  A HESSAOE(S)  INTO  BUFFER  A PRINT  OR  QUCUC  IT 
C 

CALL  TRACE! 'NONOTE* I 
CALL  ARORCT(NNSOS.KRETN) 

CALL  NBUFPQC  •««N0TE:  ' .NNSOSI 
IFCLENCSTCLBUFR. 121 .LT.2I  00  TO  900 
C 

c 

C WRITE  BUFFER  TO  NOTE  SECTOR  OF  LOO  FILE 
C 

IFILONOTE.LT.HI  00  TO  900 
IOSECTCLOOPKTI-LONOTE 
IOFUNC(LOOPKn«’8C  8 WRITE 

CALL  ERIOW(LOOPKT) 

00  TO  900 
C 
c 
c 
c 

entry  NOWARNC  8 QUEUE/PRINT  A LOO  A TALLY  ‘WARNING'  OIAONOSTIC  NESSAOECSl 

I HSOI.NS(>2.N803.NSO<*.NSOS.NS08.VOI07.VOIOB1  8 0 TO  0 NESSaOEISI 
C (QUEUE  IF  HSOI  STARTS  ulTH  *('  ELSE  PRINTI 

C — 

c 

C 

C INCRENENT  WARN I NO  COUNTER 
C 

CALL  rRACC('NOWARN*i 


No|99 


onoo  noon  noon  noon 


NOt 


MOL  00 
00*» 


omirY  RouriNCs 


nohann«noharn«i 

e 

c 

c orrcR  HCLR  ro  ochano  user  in  trouble 
c 

irdNOUARN.EQ.SI  .AND.  • STH  UARNINO 

A (HBATCN.EO.Ot I 0 OENANO  TERR INAL  RUN 

A CALL  ERRRNT (!.•».*  FOR  HELP  ENTER < EXPLAIN'! 


PUT  PREPtX  A NESSAOEISI  INTO  OUPPER  A PRINT  OR  QUEUE  IT  WITH  BELLS 

CALL  ARORET(NHSOS.KRETN) 

CALL  H8UPPQI '«««*HARNINO: * .NNSOSI 
IP(LENCST(LBUPR. IE! .LT.8)  00  TO  900 


URITE  OUPPER  TO  MARNINO  SECTOR  OP  LOO  PILE 

IPILOHARN.lt. •»!  00  TO  900 
IOSECT(LOOPKT) *L0UARN 
IOPUNC(LOOPKT)>‘AC*  A HRITC 

CALL  ERtOU(LOOPKT) 


SUPRESS  LOOOINO  OP  NOTES 

LONOTE>0 
00  TO  900 


ENTRY  HOPATLt  A QUEUE/PRINT  A LOO  A TALLY  ‘PATAL  ERROR*  NESSAOEISI 

• 

I nSOI .HSOE.HS03.NS04.NS09.NS08.V0107.VOI09I  A 0 TO  6 NESSAOEISI 

C (QUEUE  IP  NSOI  starts  HITH  '(*  ELSE  PRINT) 

C — - - - - — 

c 

c 

C INCRENENT  PATAL  ERROR  COUNTER 
C 

CALL  TRACEI 'NOPATL' I 
NOPATL»NOPATL*t 
C 
C 

C PUT  PREPIX  A NESSAOEISI  INTO  SUPPER  A PRINT  OR  QUEUE  IT  UlTH  SELLS 
C 

CALL  ARORETINNSOS.KRETNI 

CALL  PATAL  ERROR:  ' .NNSOSI 

IPILENCSTILBUPR.ISI .LT.S)  00  TO  900 

c 

c 

C HRITE  SUPPER  TO  PATAL -ERROR  SECTOR  OP  LOO  PILE 
C 

IPfLOPATL.LT.m  00  TO  SOO 
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I otcc r ( L ooPK r I *L or A r L 
loruNCCLOOPKTta'ac*  a Mmre 

CALL  CRIOHCLOOPKn 

e 

e 

e PUT  rtpsr  patal  cpror  ncssaoccs)  on  tail  SNcer 
c 

SOO  IPCNOPATL.NC. 1 1 00  TO  600 

Lourpi I i«*aLoo 

LSUPP(08I>* 

CALL  CRCSriNOrorL.LBUPRI 


SUPRCSS  LOOOINO  OF  NOTCS  A UARNINOS 

600  LONOTC-0 
LOHARN>0 

L0FATL>L0rCRM  a LOO  SUBSCQUeNr  ERRORS  IN  TCRNINArtON  SECTOR 
00  TO  900 


ENTRY  HOCLRUf  a OUEUE/PRINT  NESSAOE(S>  t CLEAR  MARNINO(S) 

i nsoi .NS08.NS03.NSO<».HS09.NS06. V0I07. VOIOO)  a 0 TO  6 HESSAOE(S> 

(QUEUE  IP  nSOI  starts  UITH  *(’  ELSE  PRINT) 


UPDATE  HARNINO  COUNTERS 

CALL  TRACE! ‘NOCLRM* I 
NOCLRU-NOCLRU»NOUARN 
NOHARN*0 
C 

c 

C PUT  PREFIX  a HESSAOEIS)  INTO  BUFFER  A PRINT  OR  QUEUE  IT 
C 

CALL  ARORETCNNSOS.KRETNI 

CALL  HBUFPQI’  ••««WARNlN0S  CLEAREOi ' .NNSOSI 
00  TO  900 
C 

c 

c 

c 

ENTRY  NOCLRFC  a QUEUE/PRINT  NESSAOECSI  A CLEAR  FATAL  ERRORCSI 

M 

I HSOt.H908.HS03.HSO<».N$09.NS06.V0l07.V0l06l  a 0 TO  6 NESSAOEfSI 

C (QUEUE  IF  NSOI  STARTS  UITH  *(>  ELSE  PRINT! 

C 

c 

c 

C UPDATE  fatal  error  COUNTERS 
C 

CALL  TRACei'NOCLRFM 


NOLOO 

008 


N-iei 


DAN  PACKAOC  APKNOtX  N 
UriLITY  ROUriNCS 


NOCLIir  •NOCL  Kf  *NOr  A r L 
N0PATL«0 

c 

c 

e PUT  racptx  A NCssAOCfSi  INTO  aurpcR  a pxiNr  or  Queue  ir 
c 

CALL  ARORerrNHSOS.KRerNI 

CALL  NRUrPQt*  ««*«fArAL  eRRORS  CLeAReOi * .NHSOS> 

tr(LeNCsr(L8urR.te) .Lr.21  oo  ro  900 
e 
c 

c HRire  euPPCR  ro  reRniNAriON  secroR  or  loo  pilc 
c 

ipaoreRH.LT .•»>  00  to  900 
lOSeCrcLOOPKT) -LOrCRM 
ioruNC(LO0PKn«’ac*  a uRire 

CALL  eRIOH(LOOPKT) 

c 

c 

C LOO  ricxr  CRROR  IN  OlAONOSnc  SCCTOR 

c 

LorArL-LOPcr*e 

c 

c 

c uPOAre  total  oiao  countcr  a rcturn  ro  next  instruction  or  calling  RouriNe 
c 

900  NOrorL>NOHARN«NOrATL*HCHeCK  8 PRCVCNTS  PROCCSSINO  MlNOOU  IP  NCHeCK  NOT  0 
RCTURN  KRCTN 
C 

c 

c 

c 

c 

e INTCRNAL 

subroutinc  nbuppqi  a join  prcfix  a nessAoeisi  in  lbupr.  print  or  Queue  ir 

m 

I NOPRCf.  a oiAONOsnc  pRerixi 
c ir  NULL.  DON'T  PRINT  OR  QUeue  BUPPeR 

c IP  1ST  CHAR  IS  RINO  BCLLSI I i 

I NHSOSi  a NUNBCR  OP  NeSSAOCS  PASSCO  TO  HO CNTRY 

. C 
C 

INTCOeP  LCNI  a LCNOTH  OP  HSOI 

C 
C 

C ARC  TnCRC  ant  NON'NULL  NCSSAOCST 

c 

CALL  CBINirtLBUPRI 
LCNI-0 

IPINHSO8.OT.0l  LCNI-LCNCSTIHSOI . I > 

IPILCNt .CQ.O)  00  TO  900  a NOTNINOII 
C 
<« 

C JOIN  OIAONOSTIC  PRCPIX  ANO  HCSfAOClSl  INTO  SINOLC  OlAONOSTIC  IN  LBUPR 
C 

CALL  CBACSri LBUPR.  HOPRCPI 


N'tBB 


o o r>  o o n o o 
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NOLOO 

007 
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UTILITY  ROUTINCS 


iriNHtos.or. n 
ircNHSOs.or.ei 
irtNNtot.or.st 
ir(NHSOS.or.m 
irtNHSOs.or.st 
irtNHSOS.or.si 
c 
c 

C Queue  ASYNCHRONOUS 

c 


CALL  CRNCSriLRUrR. 
CALL  CRilCtriLRUrR. 
CALL  CR<»CST(LBUFR. 
CALL  CRHCSrtLBUrR. 
CALL  CBHCSrtLBurR. 
CALL  CB*»CST(LBUrR. 
CALL  CBHCSTCLBUFR. 
CALL  CBHCSrtLBUrR. 


• M 

NSOII 

NSOO 

HSOSI 

NSO*»l 

HSOSI 

HSOSI 

*««NHS0S>6*«  IABORTIM 


oiAONOsric  or  s or  reueR  nessAoes  on  unit  o 


ircLeNCsr fHOPRer. 1 1 .eo.oi  oo  ro  soo  s no  prcpix  --  oon*t  print  or  Queue 
in icecHSOi I .Ne. tcec * ( M > oo  ro  soo  a not  asynchronous  ->  oon‘t  Queue 
IPIHTRACe.Ne.OI  00  TO  300  i TRACe  IS  on  --  OON*T  QUCUC 
iPiNHSos.or.si  00  TO  300  a we*Re  ooino  to  abort  oon*t  oueueni 

lOStZeiLUOPKT t 

losecTauoPKTi-tosecTiLuoPKn  »i 
toruNCiLuoPKTi-'ac'  a hritc 

CALL  CRIOHILUOPKn 
00  to  900 


PRINT  SYNCHRONOUS  OlAONOSTIC 

300  iniceiHOPRen  .CO.  icec ‘«*n  call  caponti 

a 0.8. ‘saBaaBaaaaaa* : a ascii : nul  bcl  nul  bcl  nul  bcl  nul  bcl 

CALL  eRPRNT 1 1 .82.LBUFR) 


ooNe 

900  ReruRN 
eNO 
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IX  N 


NtKPtX 

001 


ouinouriNC  nok^ixi  • naok  aixcls  cxtcrior  ro  non-trivial  uinoom 

0 NXMOO.  a Rxoocr  ourrcR  uitn  rixcls  naskco 

• 

1 RXMon  a Rxoocr  ourrcR  ro  oc  naokco 


HISTORY 

E 

N 

fCNLOSSER 

LEC 

07/0a/73 

E 

H 

BCHL08SER 

LEC 

01/18/77 

E 

H 

SCHL0S8ER 

LEC 

03/tf/78 

0 

A 

BECK 

LEC 

tO/BS/7S 

E 

N 

SCHLOSSER 

LEHSCO 

OB/BB/BO 

RCrHOO 


OCT  INTCRCePT  PAIRfSi  TOR 

ro  ALL  PIXELS  eerHEEN  then. 


NASK  OENSirr  PIXELS  IN  HAPRNT 

HAKE  separate  hskoen  routine 

NASK  DETECTION  PIXELS  (NSKOET) 
PXBOEF  PORHAT  PIXEL  BUPPS  INSKPIX) 
SUPPORT  'NUL*  BIN  TYPE 


HINOOH  EXTERIOR  ANO  ASSIGN  NOOATA  THRESHOLD 


NACHINE-OEPENOENT  CODE 


UriLIZIES  UNIVAC  FORTRAN  V FUNCTION  *L0C*. 


EXTERNAL  REFERENCES 


NOFATL  a PRINT/COUNT/LOO  'FATAL  ERROR'  OlAONOSTIC  NESSAOE 

NlNEXr  a confute  intercept  PAiRCSi  FOR  HINOOH  EXTERIOR 

PuricE  a PUT  inteoer-character-equi'/alent  into  character  strino 

PUTBYT  a PUT  NON-NEOATI'E  integer  into  byte  of  byte  string 

DOUBLE  PRECISION  C0S*»CS  a VARIABLE  LENOTh  CST  FOR  FIXED  LENOTH  CST 


EXCEPTIONS 


CONDITION  OlAONOSTIC  ACTION 

I.  DIFFERENT  ACTUAL  AROUHENrs  USED  FATAL  RETURN 

FOR  NXHOO  ANO  NXHOI 

e.  INTERCEPT  Table  overfloh  fatal  return 

S.  DIN  type  IS  *NUL*  RETURN 

4.  DIN  type  <>  *NUL*  OR  *iYT*  OR  *CHR*  FATAL  RETURN 


N'loa 


OAn  PACKAOC  AWNOtX  N 
UTILITY  NOUTINCS 


NtKPU 

OOt 


e OLOIAL  OCCLANATION* 

c — 

e 

INCLUDC  KOnXQT.LItr  • CONHON  PHOORAN  CXCCUTION  tUITCNCS.  COUNTCRS 

INCLUOC  RXaOCr.LIST  • ROINTCM  OCriNINO  lUrrCR  STRUerURC 

c 

e 

e LOCAL  OCCLARATIONt 

c — 

c 

INTCOCR  NXMOIi  n .NXUOOM  I • AROUHCNTS 

INTCOCR  INCCRTMOI 
INTCOCR  NCCP 
INTCOCR  NCCPHI 
INTCOCR  NOOATA 
INTCOCR  NBINLO 
INTCOCR  NBINHI 
INTCOCR  NBIN80 
C 

e 

C PROCCOURC 
C 

c 
c 

C CHCCK  that  BANC  ACTUAL  ARO  MAS  USCO  FOR  NXHOO  A NXUOl 
C 

irCLOCINXHOOl .NC.LOCCNXUOI I I CALL  NOrATLt 
•>  'NXHOO  A NXUOl  NOT  SAHC  IN  HSKPIX') 

C 
C 

C OCT/CHCCK  INTCRCCPT  PAIRS 
C 

CALL  HiNCXr I INCCPT. NCCPHI . 

• NXUOl (PXLINOI .NXUOl (PXLSAHI . NXUOl ( PXHSAHi 1 
IPtNCCPHI .OT. IBI  CALL  HOFATLI 

• 'INTCRCCPT  TAOLC  OVCRFLOH  IN  HSKPtX't 
C 
C 

C CHCCK  IF  HASKINO  IS  TO  BC  OONC 
C 

IF(NCCPHt.CO.O>  00  TO  900 
IF(NOFATL.NC.O>  00  TO  900 

c 
c 

C INITIALIZC  BIN  OFFSCT  A NOOATA  THRCSHOLO 
C 

NBINSO»NXUOI (PXLBINI 'NXUOl < PXL SANi 
NOOATA>NXUOI IPXNOOAI 

c 
c 

C IF  BIN  TVPC  IS  'NUL'  OON'T  MASK 
C 

iriNXUOKPXBINTI.CO. 'NUL'I  00  TO  900 

c 
c 

C CLSC  IF  BIN  TYPC  IS  'BYT*  MASK  BYTC'SIZCO  PIXCLS 


a INTCRCCPT  TABLC 

a INTCRCCPT  « OF  BNO  INTCRCCPT  IN  CURRCNT  PAIR 
a • OF  INTCRCCPTS  (ALHAYS  CVCN  ..  B • • PAIRS! 
a NO  OATA  THRCSHOLO 
a LOU  BIN  NUHBCR  IN  BUFFCR  TO  MASK 
a HlOH  BIN  NUHBCR  IN  BUFFCR  TO  MASK 
a BIN  NUHBCR  CORRCSPONOI NO  TO  SAHPLC  0 


N-tSS 


'iilOINAL  PAGE  IS 
P<>UR  QUALITV 


ooou  uuou  uuuu 


NtK^IX 

OOS 
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iriNXMOItmiNTI  .NC. 'lYr’l  00  TO  soo 
00  eoo  NCC^-t.NCCPHI.O 

NO I NLO*  t Nceor i ncco* 1 1 *no i noo 
NOtNNI*INCCOr(NCeOt  »NIINtO 
00  too  N00IN«NilNL0.NilNNI 

CALL  NUrOYT(NXUOO(NXilNSI . INOtINI . NOOAYAI 
too  CONYINUe 

too  conyinuc 

00  TO  000 


CLtC  ir  tIN  TYNC  IS  'CHR'  HASK  CHARACTCR'SIZCO  PIXELS 

300  IPINXHOllPXBINrt .NC. ’CHR‘1  00  TO  600 
00  SOO  NCCP«t.NCEPHt .t 

NBlNLO-INCCPT(NCCP-n  *NOlNSO 
NBINNI*lNCEPr(NCCP>  *NBINSO 
00  *»00  NOBtN*NOlNLO.NBINHI 

CALL  PUriCerNXUOCIPXBINSi . CNOBINI . NOOATAi 
•»00  CONTINUE 

SOO  continue 
00  TO  800 


ELSE  COHPLAIN  ABOUT  BIN  TYPEll 

600  CALL  NCrATLt  C6SHCS  ( NXHOI  ( PXB 1 NT ) , I . •»  I . 

A ' BIN  TYPE  NOT  SUPPORTED  IN  NSKPIX*) 


RETURN  TO  CALLING  ROUTINE 

000  RETURN 
CNO 
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NVeONT 

001 


ouooourtNC  NveoNTf  a novc  coNrcNtt  octuccn  toccirico  locations 
a LocrN.  a 'fron'  location 
a LOCToi  a *To*  location 


Nl STORY 


C N SCHLOSSCR  LZC  03/IY/7S  OCSION/COOC/TCST 


HCTHOO 


THIS  ASSCNOLCR  SUOROUTINC  ALLOWS  ThC  FORTRAN  PROORAHHCR  TO  RCFCRCNCC 
A HACHINC  WORO  ST  ITS  LOCATION.  RAThCR  THAN  BT  ITS  NAHC . THC  FOLLOWINO 

illustrates  its  use  in  circuhvcntino  thc  fortran  rule  that  array 
SUSSCRIRTS  HUST  ALWAYS  OE  POSITIVE: 

OINCNSION  ARRAY! I I 

rltchp«arrav(oi  a not  valid  ...  instead  use  ... 

CALL  NVCONTCLOCI ARRAY! • I .LOCI RLTENP) I 

this  SUOROUTINC  SHOULD  BE  USED  ONLY  WHEN  ABSOLUTELY  NECESSARY.  ANO 
THEN  with  CXTRCHE  CAUTIONI 


NACHINC'OCPCNOCNT  CODE 


WRITTEN  IN  ASSCNOLCR  FOR  ThC  UNI  VAC  1100  SCRIES  COHPUTCRS. 
INPLCHENTINO  CODE  NUST  BE  REWRITTEN  FOR  DIFFERENT  COHPILCRS 
(CO..  UNIVAC  ASCII  FORTRAN!,  ANO  DIFFERENT  NACHINCS. 


external  references 


NONE 


EXCEPTIONS 


e I.  USE  AT  your  own  RISK! 


OLOBAL  declarations 


AXRS  . standard  UNIVAC  1100  RCOISTCR  NNCNONICS 


LOCAL  declarations 


N-I07 


OAN  MCKAOC  AmNOIX  N 

uriLtrv  ROurtNCs 


ItVCONT 

oot 


NONC. 

MOeCOURC 


t(O0t  . 
NVCONr« 


t•■ANK  . lANKS  NCVCIISCO  ro  CLIHINATC  INOIRCCr  LOAD  tAtLC  CNTUr 


LA 

AI.*0,XM 

’fROn*  LOCATION 

LA 

At.«I.Xtl 

*ro*  LOCATION 

LA 

AO.O.AI 

. OCT  *rROH‘  CONTCNTS 

tA 

AO.O.At 

. OTORC  IN  *TO*  LOCAT; 

J 

3.X11 

. RCTUNN 

CNO 

) 


N'lft 
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MNtr/NArNItACR 

0«l 


e 

c 

c 


tVtUOUriNC  NXHLrc  A HATRIX  IIUi7m.Yi  (CNAri  • (•XAri  (AHATI 
t ANAY.  • NUtriMICANO  NAYXIX 

I •NAY.  • miLYimCX  NAYXIX 

0 CNAY.  • XXOOUCY  NAYXIX 

1 NXUAC,  • NUNUX  or  XOUf  UtCO  IN  ANAY  A CNAY 

I NCXUAI.  A NUNWX  Of  COLUNNO  UtCO  IN  ANAY.  XOMt  USCO  IN  ONAY 

I NCUiC.  A NUNXCX  Of  eOLUNNt  UtCO  IN  ONAY  A CNAY 

I NXOAC.  A NUNOCX  Of  XOMt  OiNCNtlOMCO  IN  ANAY  A CNAY 

I NXOOl  A NUNOCX  or  XOMt  OiNCNtlONCO  IN  ONAY 


«•••••  UNIVAC  noo  NATMfACK  XOUYINC  •••••« 
•••••«  touxcr  COOC  !t  NOT  AVAILAOLC  «••••« 


N-lOO 


OMI  #ACKAM  APPCNOU  N 

wriurr  AouriNCt 


NCtPte 

Ml 


tuMOuriNC  NCOf»ief  • eoNvcnr  oioital  pictunc  rwo««  potinvc  ro  NCOAnvc 
U I^IK.  • t ^im/HOAOi 

e Ni  • nCAN  muff  ttiouffoi 

C Nff  • COUNf  or  ffLffnffNTff  OffriNlNO  NffAN  fUNtlONffOt 

I NCOL.  a NUNMN  Of  COLUNNS  IN  oioirAL  otcruaff 

I NNONi  a NUNaca  ar  nomo  in  oioital  rieruac 

c iiiLAtr  a aoNt  Aaff  scaArcN  arACff  roa  aouriNffiii 


e 

e Iff  N acNDstffai 

e 

e 

e 

OINCNflON  iriXCNCOL.NaOHI 

iNCLuoc  Asnocr.Liar 

offriNff  Koxi 1 •AtNHti irixt I . ji I • COUNT  or  CLCnCNra  oeriNiNO  ncan 

OffriNff  Nrxrutf  I .ut«ASNNi I irixM . jn  a assion  ncan  valuc  ision  cxtcnocoi 
offriNC  Nrxocrii.ji*irtxf i.uwa««ia  • acraicve  ncan  valuc  (SIOn  cxtcnocoi 
CALL  rOACC 

c 

c 

C INirULIZC 

c 

NINOLO<*t**ta>l  a NAXINUN  UNSIONffO  NALr-NOAO  INTCOCA 

HINNffN«*a««  tO>t 

NaMAx«NaoN*a  a last  t aoHS  anc  scaatcm  saacc  --  not  ricruaciiii 
c 
e 

c acriccr  hcans 
c 

00  aao  NC«t.NCOL 

00  fOO  Na*i.NAHAX 
NINOLO-NINOINlNOLO.NrxnCrCNC.NNI  I 
NINNCH-NINOININNCU. •NrxOCTiNC.NNI I 
NN xrur  C NC . NN I • «Nr XOC r f NC . NN I 
aoo  CONTI NUC 

aao  CONTI NUC 


CONNUTC  NCOUiaCO  01  AS 

NNaiAa-NINOLO'NINNffU 


Arrtv  oiAf  (TO  rrcscRvff  onioinal  nanoc* 

00  «ao  NC-i.NcoL 

00  Ccoo  NN-I.NANAX 

*00  Ni'vrur  I NC . NO  ( -noxoc  r c nc  . no  i -nno  i ai 

*00  roKTiNuc  ORIO^AL  PAGE  IE 

OF  POOR  QUAUTV 

acruoN 

CNO 


N-170 


OAH  PACKAOC  APfCNOIX  N 
umtTY  muriNCt 


oot 


NTABS/OAH  • I/O 

UNIT 

NUHBER  TABLE 

HISTORY 

E N 

SCHLOSSER 

LEC 

II/08/Y3 

ORIGINAL  CODE 

S N 

SCHLOSSER 

LEC 

0B/1S/7S 

RECALL  FILE 

E N 

SCHLOSSER 

LEC 

lt/IB/7B 

NACRO  COHHANO  EDIT  FILES 

E H 

SCHLOSSER 

LEC 

0t/t7/7B 

•OAHPLT'S 

E H 

SCHLOSSER 

LEC 

0B/07/7S 

DIAGNOSTIC  QUEUE  PILE 

hcthoo 


THIS  NOOULC.  UHCN  ASSCNSLEO.  OCNCRAteS  A UNIT  NUNBCR  TA8LE  UTILIZEO  SY 
THE  UNIVAC  FORTRAN  V I/O  ROUTINES.  THE  UNIT  NUHSER  ASSIONNENTS  OIVEN 
HERE  APPLY  TO  ALL  PILES  IN  THE  OAH  PACKAGE.  REOAROLESS  OP  WHETHER 
FORTRAN  V I/O  IS  PERPORNEO  ON  THEN  OR  NOT.  THIS  NODULE  MUST  BE  IN-EO  IN 
the  hap  SYNBOLIC  ELEHENT  used  to  collect  each  OAH  PACKAGE  PROORANs 
THIS  HILL  CAUSE  IT  TO  BE  USED  INSTEAD  OP  THE  INSTALLATION  DEFAULT 
NTABS. 


HACHINE-OEPENOENT  CODE 


WRITTEN  IN  ASSEHSLER  FOR  THE  UNIVAC  1 1 00  SERIES  COHPUTERS.  IHPLENENTINO 
CODE  HUST  BE  REWRITTEN  FOR  DIFFERENT  COHPILERS  lEO. . UNIVAC  ASCII  FORTRAN) 
AND  DIFFERENT  NACHINES. 


EXTERNAL  REFERENCES 


NONE. 


EXCEPTIONS 


NONE. 


OLOBAL  DECLARATIONS 


NONE. 
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N*t7l 


OAN  MCKAOC  APKNOIX  N 
vmtry  ROUTiNCt 


NT  AM/ OAN 
00* 


0 oiAONotric  Queue  me 

1 LOO  rue 

t TARC  ourrur 

1 TAK  INPUT 

)»  reNPORARY  RecALL  rue  roR  CARo-ReAoeR/reRNiNAL  input 

0 CARO-RCAOeR/TeRHINAL  INPUT 

0 LINe-PRINTeR/TeRNINAL  OUTPUT 

t TeNPORARV  PASTRANO  rue  rOR  ReOISTRATION  PARANeTeRt  rRON  CONTROL 
0 ALTeRNATe  PRINT  PUe  «0ANPLT-9 

10-10  ALTeRNATe  PRINT  PUeS  «OAHPRT-0  THRU  «0AHPRT-0 
•0  TeNPORARY  PASTRANO  SCRATCH  PUC 

ti-M  oerecTioN  rues  •oanoct-i  thru  •OANoeT-<» 

ts-ts  ReseRveo  por  puturc  oerecrioN  rues 

so  RCseAO 

St  CARO  punch 

H0-«9  TCNPORARY  NACRO  COHHANO  POIT  PILCS 


NSTA8  SO.t.t.t.I.II 

6 

SI 

S 

so 

S.IO.tl.tS.tS.IH.IS.tS.lT.tS.tS 
CNO  . 


t PRINT  UNIT 
I CARO  PUNCH  UNIT 
t CARO  RCAOCR  UNIT 
t RCRCAO  UNIT 
. ALTCRNAre  PRINT  UNITS 


N-I7C 


OAN  MCKAOC  AMCNOU  N 

vritirt  RourtNcs 


NUitUt 

Otl 


tumouriNC  Nucsue  • oo  AtsoLurcLY  notninoii 

A 

. (C  N tCHLOttCm 
• 

•(Oil  AXRt 

NULSUa*  J t.Xlt  . RCTURN 

CNO 


N»I73 


I ) 


OAN  ^ACKAOC  AAKNOIX  N 

uruirv  RouriNCt 


NVIATO 

001 


tUMOMTINC  Nvuroc  A SACCirY  OUmOUTINC  NANCS  fOA  LATCH  CALLINO  IT  VlATO 


% 

I MANVU.  • NAHC  or  'VIA*  OUMOUTINC  (NUST  OL  OCCLARCO  CXTCRNALI 
I NANTOI  • NANC  OF  'TO*  OURROUTINC  (NUOT  OC  OCCLARCO  CXTCRNALI 


HISTORY 

_______  ? 


C H SCNLOSSCR  LCC 


OCSION/COOC/TCST 


HCTNOO 


OCT  aoorcsscs  or  *v:a'  and  *ro*  suoroutincs. 

INTO  'CALL'  STATCNCNTS  INSIOC  VlATO  CNTRY. 

cncck  contcnts  or  ooth  aoorcsscs  roR  valio  op 


STORC  thcsc  aoorcsscs 

coocs. 


NACNINC'OCPCNOCNT  COOC 


URITTCN  IN  ASSCHOLCR  rOR  ThC  UNI  VAC  1100  SCRICS  CONPUTCRS.  THC 
AROUNCNTS  ARC  DCSIONCO  TO  8C  NACMI NC • I NOCPCNOCNT . OUT  THC  HCTHOO 
or  PASSINO  AROUNCNTS  IS  THAT  USCO  8V  UNIVAC  FORTRAN  V. 
INPLCNCNTINO  COOC  NUST  SC  RCHRITTCN  POR  OIFFCRCNT  CONPILCRS 
ICO..  UNIVAC  ASCII  rORTRANi.  ANO  OirPCRCNT  NACHINCS. 


CXTCRNAL  RCrCRCNCCS 


NONC 


CXCCPTIONS 


I.  rAILURC  TO  OCCLARC  NANVIA  ANO/OR  NANTO  AS  CXTCRNAL  WITHIN  THC  INVOKINO 
ROUTINC  hill  typically  OCNCRATC  a OIAONOSTIC  ANO  INITIATC  CRROR 
MALKOACK.  UNLCSS  THC  NAIN  PROORAN  HAS  OCCN  COLLCCTCO  WITH  SNAP.O. 


OLOOAL  OCCLARATIONS 


AXRS  . STANOARO  UNIVAC  1100  RCOISTCR  NNCNONICS 


LOCAL  OCCLARATIONS 


0(001  . O-OANK 

rr  roRN  it.o.io 


N*I7N 


OAH  PACKAOC  AmNOIX  N 

UrtLITV  ROUrtNCt 


MMKT 

cmviA 

cimro 


« *NVtATO*  . tUmOUTINC  NANC 

» 0 . tAvc  koCArioN  roil  mtuiin 

*NVUrO  - OAO  NANVtA 
*NVtAro  - OAO  NANTO* 


. moecouRC 


tioil  . t-OANK 


Nvuro* 

LA.U 

AO.«O.XII 

Itr  AAO  • NANVIA 

LA.U 

At.«I.XII 

ONO  AAO  • NANTO 

LA.tl 

At.O.AO 

PIAtT  INSTAUCTION  OF  NANVU 

LA.tt 

AS.O.AI 

MAST  INSTAUCTION  Or  NANTO 

* 

SA.NC 

AO. VIA 

'VIA*  AOOACSS 

A 

OA.HC 

Al.TO 

*TO'  AOOACSS 

J2 

AA. OAOVIA 

ILLCOAL  OP  COOiC  (00> 

JZ 

AZ.OAOTO 

ILLCOAL  OP  COOC  (OQI 

ANA.U 

AA.077 

ANA.U 

AS. 077 

JZ 

AC. OAOVIA 

ILLCOAL  OP  COOC  (OCTAL  771 

JZ 

AS.OAOTO 

ILLCOAL  OP  COOC  (OCTAL  77) 

ACruAN 

J 

3. XII 

NOANAL  AC  TUAN 

OAOVIA 

AtAINT 

(Pr  I.H.CAAVlAi 

J 

MALKOACK 

OAoro 

AtAINT 

IPr  I.S.CAATOI 

• 

MALKOACK 

LA 

AS.HOPKT 

NANC  or  this  SUOAOUTINC 

SLJ 

NCAAO 

INITIATC  POATAAN  V MALKOACK 

♦ 

e 

NUNOCA  or  AAOUNCNTS 

CNTAY  VUro  • CALL  VIA  SUOAOUTINC  NANVIA  TO  SUOAOUriNC  NANro 


. NOrCi  NAHVIA  A NANTO  NUST  OC  SACCiriCO  OV  A CALL  TO  NVlATO.  OCrOAC 


• 

CALLINO  VIATO.  TNIS  CALL  TO 

NVIATO  NAY  SC  ACCUAStVC  (PAON  A 

• 

SUOAOUTINC 

cuaacntlt  callco 

OY 

VIATO) . 

• 

VIATO* 

tX.Nt 

XII .MtPKT*l 

• 

SAVC  ACTUAN  AOOACSS 

VIA 

LNJ 

XII. 0 

• 

CALL  NANVIA 

TO 

• 

0 

• 

ONC  AAOUNCNTi  AOOACSS  OP  NANTO 

♦ 

INiPKT) 

« 

MALKOACK  MONO 

LX.NC 

XII.MOPKT*! 

• 

ACSrOAC  ACTUAN  AOOACSS 

J 

I.Xtl 

• 

ACTUAN 

NVIATO 

OOt 


N«I70 


MN  MCKAOff  AmMOU  N 

uriLiTr  RourtNCt 


NVIATO 

OOS 


TNC  rOLLOMim  lUUtTRArCt  TYPICAL  CNPLOYHCNT  OP  NVl ATO/VI ATOt 

PNOONAN  MAIN 
CXrCRNAL  A.AI 
CALL  NVtATOt  A.AI I 
too  CALL  VtATO 
00  TO  too 
CNO 

OUOPOUriNC  AINAHTOI 

CALL  NANTOKAPOUNCNT  LIST>i 

RCruPN 

CNO 

tUOROUriNC  AIKAROUHCNT  LIST>I 

<UtCR  COOO 

CALL  NVIATOt  S.OD 

RCruRN 

CNO 

tUOROUriNC  ASKAROUNCNT  LI8T>I 
<UtCR  COOO 
CALL  ex  IT 
CNO 

SUOROUTINC  OCNANTOI 

CALL  NAHTOKAROUNCNT  LIST>i 

RCTURN 

CNO 

SUOROUTINC  eiKAROUHCNT  LIST>) 

<U8CR  COOO 

CALL  NVIATOI  A. Ad 

RCTURN 

CNO 


NOTC  that  calls  OCThCCN  SUOROUTINCS  CALLCO  RY  a AND  SUOROUTINCS  CALLCO 
•Y  i ARC  POSSIOLC.  CVCN  THOUON  THC  SUOROUTINCS  INVOLVCO  ARC  IN  OIPPCRCNT 
SCONCNTS  UNICH  OVCRLAY  THC  SAHC  ARCA  IN  CORC.  THC  OROCR  IN  HHICH 
THC  *T0*  SUOROUTINCS  ARC  CALLCO  IN  THC  AOOvC  CXANPLC  IS  AS  POLL  OHS i 
Al 
01 
At 

CNO 


N'tTO 


OAN  MCKAQC  APMNOtX  N 
UnUTY  ROUrtNtt 


ORCNIHI 

001 


ouROOuriNC  OOCNOO  • OPCN  ALrcRNAYc  oRtNT  rucioi 


NtorORY 


C N tCNLOOSCR 
NARY  rOHRKINO 


LCe  00/01/70  ORIOINAL  COOC 

LCNOCO  OI/tS/00  UOC  NCM  CHARACTCR  ROUMNCt 


NCTHOO 


ir  NO  ALrCRNATC  PRINT  PILC8  SPCRiriCO  OR  IN  OAT A/CHCCKOUT 
NOOC  RCTURN. 

IF  ALTCRNATC  print  PILE  EXIST  ON  TAPE  ACKNOHLEOOE  HITH  NOTE 
ELSE  ASSIGN  ALTERNATE  PRINT  FIL'E.  PRINT  0.  PAGE  HEADERS. 


NACH I NE •DEPENDENT  CODE 


NONE 


EXTERNAL  REFERENCES 


ERFACL 

NOLOO 

ERCSF 

PRTINC 

PRTNRO 

PRTCNR 

PRONUN 

CSTHIN 

OETICE 


a RETRIEVE  facilities  assionnent  infonation 
a loo  diagnostic  nessaoes 

a SUOHIT  EXEC-0  CONTROL  STATENENT  FUNCTION 
a SET  PRINT  LINES  PER  INCH 

a SET  PRINT  NAROINS  AND  LINES/PAOE  ON  SPECIFIED  UNIT 

a PRINT  oox  characters  on  specified  unit 

a PRINT  OOX  NUHBERS  ON  SPECIFIED  UNIT 

a character  string  for  integer 

a OCT  INTCOCR-CHARACTCR-CQUI VALENT  FRON  CHARACTER  STRINO 


EXCEPTIONS 


NONE. 


OLOOAL  declarations 


INCLUDE  KONXQT.LIST 
INCLUDE  KDNALT.LIST 


a CONNON  PRDORAN  EXECUTION  SNITCHES.  COUNTERS 

a alternate  print  file  info 


LOCAL  declarations 
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u u u o u u u u u uuuu 


OAN  PACKAOC  APMNOIX  N 
UTILITY  ROUTINCt 


OWNM 

OOt 


e 

INTCOCR  t0riLC(9l  • RKT  UtCO  TO  OOTAIN  flLC  STATUt 
data  (tOriLCINI.N«l.tl/’tO*.'  */ 

INTCOCII  NOOCCKCtW*  • NO  OCCK  «*/ 

e 

INTCOCR 


e CNAR  OOOOOOOOOmUlim>tCCttttttl333S333S3*»«'»«**»>»«*Hi» 

e tt3'»9OT990l*3*»S67i90t>3'»9e7ig0tt3«S67M0l>3'*S67O9 


0 JA90CII9WaA90.CR  •OANRRT'NI  «t  I . .f/ 1 /R09/ 39  . */  • 39  R091TI0N9 

9 JU9Ctl9i  /‘AUSC  IN.*OAHf»RT-N(»|t.  . */ 


RROeCOURC 


CALL  TRACC 


OCT  rACiLtries  assionhcnt  into 

iriHALTH.LC.OI  00  TO  900  • NO  .VLTCRNATC  ARINT  MLCS 

iriHOATAC.NC.Ot  00  TO  900  • OaTA/CHCCKOUT  NOOC 

CALL  CRTACLC  loruet 
CALL  OCTlCedEQUlP.  10riLei7l.l> 


IF  TAPE  IS  ALREADY  A89I0NE0  TO  UNIT  10.  THEN  U9E  IT  FOR  ALTERNATE  PRINT  FILE 

IF( IEOUIP.lt. 1 1 00  TO  900  0 NOT  ASSIONEO 

IFIIEOUIP.OT.ISI  00  TO  900  • NOT  TAPE 

NCOPY«0 
HALTN*I 
N«0 

CALL  HONOTEI 

• *0I9PLAY/NAP  print  file  HRITTCN  on  tape  unit  10. *t 

CALL  FILHOO 
RETURN 

C 

e 

C A9SI0N  NEH  ALTERNATE  PRINT  FILEISI  ON  DISK 

c 

900  IFIH9ATCM.EQ.0l  00  TO  990 
NOOECKdi** 

N00CCK(9)«* 

990  continue 
NHIN*0 
NNAX«NALTN*I 
NIT8Nt«99«HALTH>l 
00  900  N«NNIN.NNAX 

CALL  C9THINIJA90CI.17.I.  N.ll 
CALL  CRC9FINA0.JA90Ctl 
CALL  C9Ti»INtUU9Et.7.l.  N.ll 
CALL  C9TNINIJU9EI .17.1.  N.ll 
CALL  CRC9F(NA0.JU9Etl 
CALL  FILNOO 
(<00  CONTINUE 
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lAM  PACKAOC  AMCNOIX  N 

iriurv  RouriNCS 


•00  RCruRN 


INTCRNAL 

tumourtNC  ruNOO  • mint  ncaocm  ron  AtreiiNAre  rrint  ruco 

PARANCreil  OLANK-OO  • iOX  NUNOCR  POlNrS  AS  OLANK 


Hllirc  OTN  PAOC  OP  PILC  HCAOtNO 


NUNir«10»N 

HfUTClNUNIT.  I tS)  JRPIOT .N.NOOCCK 
no  PORHATI  IOX.  I0A6.6X.  *PILC  •OAHPRr-'.n.OX.OAOt 
HRirCtNUNir. tost  (JHOO(l.ti.l*I.IOI 
Its  PORHATC 
A ••/ 

A • ••*/ 

A 

A 

A • ••«••••/ 

A • •••/ 

A • 

C 

C 

C SPCCIAL  PRINT  LINC  INCRCNCNT  A HAROIN  SUPRCSSION 
C 


CALL  PRTINC(NUNI r.L INCH.KONPRTI 
CALL  PRTHROCNUNlT.LPAOC.O.Ot 
C 
e 

e uRirc  1ST  PAoe  loox  paoo  op  pilc  hcaoino 

c 

HRITCtNUNIT.ISOI 
ISO  PORNATI • I ’/ *0*  t 

CALL  PRTCHRINUNI T.NINOf 10. f KPAOC*l > /7I . JRUNI 
HRITCINUNIT.IISI 
ISS  PORNATI *0*1 


INO 

I 

t 

ISO 

1 

I 


CALL  PRTCHRINUNIT.NI NO  MS.  IKPAOC«l  > /7I  . JPROOi 
HRITCINUNIT. I3S> 

CALL  PRTCHRINUNI  T.NINOI  IS.  IKPA0C*n/7l  .UNOVNNI 
HRITCINUNIT.ISSI 
1PCKPA0C.lt. ISO!  00  TO  100 
HRITCINUNir.lAOl 
PORNATI 

•X.*PIRST  •.ACX.’OISPLAT/NAP  OUTPUT* .NtX. * 

•X.*  *.*»tX.lil*>*ll 

PORNATI 

•X.*  •.AtX.*  •••  THIS  •••  •/ 

•X.*  PILC  *.ACX.*  *.«tX.* 


LAST*/ 


riLC’i 


OPCRPR 

•OS 


N*IT« 


u u u u 


OM  MCKAOC  AMCNOIX  N 
UTILITY  MUTINCt 


IS«  rORNATf*  */ 

I fX,*  ‘.YUX.*  •••  riLC  •••  •» 

CALL  MUNUNfNUNir.tU.tt. 

A NHlN.tLANK.ILANK.ILANK.ILANK.ILANK.NnAXI 

HRircrNUNir.iuoi 
IM  eONTlNUC 

iriKRAOC.LT.IOI  00  TO  ItO 

CALL  f*mNUN(NUNir.ie.ie. 

0 ■LANK.OLANK.ILANK.N.OLANK.tLANK.ILANKI 

Mmrc(NUNir.isB> 
too  eONTINUC 


MRirc  ONO  RAoe  or  rue  hcaoino 

uRirciNUNir. i30>  orAoe  cjcct 

MRirCtNUNiT.tlSt  JRriOT.N.NOOeCK 
URirCfNUNIT. ttoi  c JHOO( I . It . I-I . 10) 
ircHr*NCorr 

irilTCHr.CQ.OI  tTCHr>>9B9999  9 NCORY  UNKNOWN 

MRireiNUNir. lost  irenr.HALTn 
tos  roRNAri‘o*/*o‘/<o*/ 

I IOX.OC*?»»??»*t/*0*/ 

9 lOX.'OO  YOU  HAVCI*/*  •/ 

s itx.*  I coAY  or  OASic  PAINT  ruc  rOA  tnis  aunt??*/ 

A lOX.  IS.*  copies  or  ALL  '.10. 

S * 0I9PLAY/NAP  PAINT  PUeS  rOA  THIS  PAOOAAH  exeCUT  I 0N7  7?  * / * 0 * / 
0 l0X.0l*777777*l/*0*/*0*t 
AC TUAN 
CNO 


OAN  MCKAOC  A^MNOIX  N 

aratTT  Kourinct 


0»CIII 

Ml 


tUMOUriNC  OK 


I 


lONCl 


I 


NttrORY 


u e CNisp 

Lce 

00/1  s/70 

NCOUINCNCNTO 

j e CNiop 

Lce 

00/10/70 

aloonitnn  ocoion 

u e CNIOP 

Lce 

00/00/70 

aloonitnn  cool  no 

4 C CNIOP 

LCNOe 

0 00/00/70 

IP  Nce  PNT  10  'PXO' 

DON'T  CALL  PI  TOOL 


NCTNOO 


INirULiZC  PLAOt  IN  KOm.US  AND  KONNCP  TO  UOPST  CAtC  (ZCPO  ON  NULLI. 
CNCCK.  OATA/CHCCKOUr  NOOC  • IP  tCT  CALL  OCONOT  ANO  PITNOL.  SCT  PILC 
NANC  ANO  CALL  PLINPO.  CNCCK  LUSPIOtPIOtPNI  ANO  LUSPlOf PIOCOT I . 
IP’TAPC*  on  ‘OltK*  CALL  OPXXXX  CONNCSPONOI NO  TO  CQUIPNCNT  TrPC. 

IP  CQUIPNCNT  TYPC  > 'CNN*.  'OTNCN*.  ON  *NUL’  itSUC  APPNOPNIATC 
PATAL  HCSOAOC.  call  OCONOT  ANO  PITNOL. 


NACNINC  OCPCNOCNT  COOC 


NONC 

CXTCNNAL  NCPCNCNCCO 


PLINPO  • OCT  PACILITICO  AttlONNCNT  INPOPHATION 
NOPATL  • PNINT/LOO/eOUNT  'PATAL  CNNON'  NCStAOCt 
OPXTAP  a OCTCNIHC  IP  TAPC  li  tip  ON  NOP  TAPC 

OPSOOA  a NCAO  NCAOCN  ANO  ANNOTATION  NCCONOt  PNOH  OltK 

OCONOT  a OCPINC  oconctny  op  input  data 

PITNOL  a COTINATC  PITCH  ANO  NOLL 


CXCCPTIONO 


I.  THC  POLLOUINO  eONOITIONO  OCNCNATC  PATAL  CNNONOt 

LUIPIOlPIOCQTI  • 'CNN'  ON  'OTNCN' 
LUSPIOtPIOOPNl  <>  I'tOT'  ON  '00' I 


OkOOAl  OCCLANATIONO 


INCLIIOC  KONPQT.LIOT 
INCLUOC  PIOCi*  .HOT 
INCLUOC  KONLUl.LIOT 
INCUfOC  KONTOL.IIOT 


a eONNON  PNOONAN  CXCCUTION  ONI TCNCO.COUI 
0 OCPINCO  OTNUCTUNC  OP  lUXPIO  ANNAY 
a PACKCT  POINTCNO  PON  UNITI 
0 eONNON  OLOCKO  ANO  OCPINC  PNOCCOUNCO 


N-IOl 


OAN  ^ACKAOC  AP^CNOtK  N 
UTIL  I TV  MOUriNCt 


•M 


meLuec  Komtcnattr  t curt  tcCNC  PANANcrcnt 

LOCAL  eCCLARAriONS 


CALL  rOACC 


INiriALIZe  TO  HOMT  CAtC 

NCROATin  • ' * 
NCOCArttt  • * * 
NCRtCN  • * ’ 

00  100  I • t.3 
100  NCNTOMI  • 0 

NCRLIN  • 0 
NCROAH  • 0 
NCROAY  • 0 
NCRHON  • * * 

NCRVR  • 0 
NCRtCL  a 0 
NCMAZ  • 0 
NCRCNA  • 0 
AL  TKH  • 0 
ALTOAN  • 0 
erOLIN  • 0 
erooAN  • 0 
eriiLAr  • o 
croLON  • 0 
OIRLAT  • 0 

01  TOCO  • 0 
ROLOCO  • 0 
VAMOCO  • 0 
MRVOCO  • 0 
Nccr  • 0 
Nceror  • o 
NCROCO  • *iAO* 

NCRRCt  • * ‘ 

NCRCOR  • * * 

00  ISO  I • I.IO 
NCROANMl  • * ' 
NTROAIIII  • • • 
NCRTROni  • * * 

ISO  eoNnwic 

NCRAON  • * * 

NtRRAT  • • * 

NCRROM  • * * 

LUSL^  • i 
LUSIIL  • • 


N-IOC 


nn 


OMI  MCRAOC  AAMNOtX  N 
vriiitT  mttrtNCt 


OfCMt 


••• 


LUtNIR  • 0 
iusem  • 0 

LUSHM  • • 

Lunii  • 0 

iUMfN  • **IUk* 

LUltCOnt  • *NUi* 
iUltCOftI  • *0* 

LUMCrm  • *NUL* 

Lumrcti  • *0* 

DO  IM  I • t.VSNAS 
AUIMLIII  • * * 

Aumom  • 0 
LUSRNIfll  • a 
too  CONTINUC 
Lwxvoi  • a 
kuivMi  • a 
LUMor  • a 
e 
e 

C CNCCK  '.f  'H  data  CHCCKOUr  NOOC 
c 

triNOArAC.NC.atNCArtt t t • t 

iriNCArsiii.CQ.il  00  ro  too 
c 
e 

c scr  rue  nanc  and  ocr  rACUirico  AtsiONUCNr  iNroonArioN 
c 

LUXAKrill  • *s* 

LUSAKrifl  • * * 
c 

CALI.  rLiNroauxrio.  lusakt.  •to*i 
e 
e 

e CNCCK  CQUIANCA.  tVAC  ANO  CALL  ArAAOAAlArC  AOUtlNC 
C 

too  Lusorn  • LUirioirioorNi 

triLusriotriocQn.cQ. *rAAC*i  call  orsrAr 
triLusrioiriocori.co. *oiSK‘i  call  oasosk 
iriLosriotrtocQr I .NC. ’Taac* .ANO.Luiriotriocon .NC. *oiSK* i 
A CALL  HOrATLi  *lNAur  TAAC/OISK  NOr  AOStCNCO  TO  UNIT  SM 
C 

c 

e ocr  ocohctav  ano  aitcn  ano  aoll  coNorANrs 
e 

000  CALL  acoNor 

triLUSACrMi.M.*AXO*i  CALL  At  TOOL  ( 

A CrALAr.CrOLON.OIALAr.OIALON.HHVOCO.ALrKN. 

A AiroCO.AOLOCOi 


ACruAN 

e 

CKO 


A-tOS 


OOOOOOOOOOOOOOOOOOOOOOUOOOOOUUOOUOOOOOOOOUOOOOOOOOttOOUO 


OAN  ^ACKAOC  AMCNOlX  N 

umiry  rout  lues 


ORNItM 

001 


tUMOUriNC  ORNtON  0 OKM  INPUT  OCrCCrtON  riLCt 


HI STONY 


C N SCNLOSSCN 
CMANLCS  HCtHKC 
J C CRISP 


LC  ;«/t0/73 
LCC  10/13/78 
LCNSCO  08/16/80 


ORIOINAL  COOe 

LAROCR  NOR.  VARIAOLC  BINTYPC  A RCC  SZ 
PUT  NANCS  IN  I/O  PKTS.  NCRCHAaNOUTCH 


nOTHOO 


IP  notac.nc.o  load  rcoistration  parahctcrs  and  initialize  noninal 

INPUT  HINOOU  PKT.  ELSE.  ATTENPr  TO  OPEN  ALL  POSSIBLE  OETECTION 
PILES.  READ  HEADER  SECTOR  PROH  EACH  PRESENT  DETECTION  PILE  INTO 
LOCAL  BUPPER.  POR  EACH  PILE: 

IP  PIRST  PRESENT  PILE  INERTSM * «0I . THEN  LOAD  KOHNER.KOHKLS. 
KONPIT.KOHOET  PRON  BUPPER. 

IP  NOT  PIRST  PRESENT  PILE  ( NERTSf I I Ob ! . THEN  COMPARE  KOMNER. 
KONKLS.KOHPIT.  WITH  BUPPER  CONTENTS . PL AO . N I SNATCHES . 

ANO  LOAD  KOHOET  VARIABLES  HITH  CORRESPONDING  NON-ZERO. 
NON-BLANK  LOCATIONS  IN  BUPPER. 

CHECK  continuity  OP  LINES  ANO  SAMPLES  BETWEEN  DETECTION  PILES 
COMPUTE  CLASSIPICATION  ENVELOPE  PLAG/MARK  DETECTION  PILES 
DEFECTIVE  OR  NOT  PRESENT. 


machine-dependent  code 


NONE 


EXTERNAL  REFERENCES 


ERCSP 

MONOTE 

MOPATL 

ERIOH 

LOREOB 

CSTi»IN 


S SUBMIT  EXEC-B  CONTROL  STATEMENT  FUNCTION 
B PRiNT/COUNT/LOO  'NOTE*  DIAGNOSTIC  MESSAGE 
a PRINT/COUNT/LOO  'FATAL  ERROR*  DIAGNOSTIC  MESSAGE 
a initiate  I/O  I WAIT  FOR  COMPLETION 
a LOAD  NONINAL  REGISTRATION  PARAMETERS 
a CHAR  string  POR  INTEGER 


EXCEPTIONS 


I.  THE  POLLOHINO  CONDITION  GENERATE  THE  DIAGNOSTICS  SHOWN: 


CONDITION 

OETECTION  PILE  HOT  AVAILABLE 
NO  OETECTION  PILES 
DETECTION  PILE  IN  USE 


01 AGNOSTICS 

NONOTE 

NOPATL 

nopatl 


NolSN 


U O U O U o u 


OAN  MCKAOC  APMTNOIX  N 

uriLtrv  RouriNCs 


omitN 

oot 


ocrccTive  ocrecrtoN  rue  norAU 

tNCONSisrcNCtcs  ■erHCCN  oerceriON 

rue  HeAoeRS  norAU 

ottcoNTiNuiTT  or  LiNes  lerueeN 

oerecTioN  rues  norAU 

oiseoNTiNuirY  or  SAHries  lerueeN 

oereerioN  rues  norAU 


OLOSAL  OeCLAMATtONS 


iNCLuoe  KONxor.Lisr 
INCLUOe  KOHLONUtST 
iNCLUoe  Konto.Lisr 
INCLUOe  KONNCR.LlSr 
INCLUOe  K0HKL8.LIST 
iNCLuoe  KOMrtr.Ltsr 
INCLuoe  KOHoer.Ltsr 
INCLuoe  HiNoer.LiST 
INCLuoe  KONIUH.LlSr 
INCLuoe  KOHOUU.LISr 
INCLuoe  TRrORN.LIST 
INCLuoe  rACBir.Lisr 


A COHNON  RROORAH  exeCUTION  SUITCHeS.  COUNTeRS 
A COHNON  I/O  RACKers  roR  oerecrioN  rues  (ai-ahi 

A COHNON  I/O  rUNCriONS 
A COHNON  CRTS  SCeNC  PARANereRS 
A COHNON  CLASSiriCATION  INFO 
A COHNON  AOJUSTHCNT/Reoi strati  ON  PARAHeTCRS 

A COHNON  oeTecTtON  pue  hinoous 
A oeriNe  structura  or  uinoou  packats 
A COHNON  input  HINOOU  PACKATS 
A COHNON  OUTPUT  UINOOU  PACKATS 
A OeriNA  COOROINATC  TRANSPORHATION  functions 
A exeC'O  PACILITV  RAOUeST  status  bit  NNAHONICS 


LOCAL  OACLARATIONS 


INTAOAR  KBUPRIAB.SI 
INTAOAR  IRONAR 
INTAOAR  IROKLS 
INTAOAR  IROPIT 
INTAOAR  I FIRST 
INTAOAR  LAST 
INTAOAR  NLAST 
iNTAOAR 


A INTARNAL  UORK  BUPPAR  POR  OATACTION  PI  LAS 
A ARROR  COUNTAR  POR  KOHNAR 
A ARROR  COUNTAR  POR  KOHKLS 
A ARROR  COUNTAR  POR  KONPIT 
A FIRST  AVAILABLA  STRIP 
A LAST  AVAUABLA  STRIP 
A STRIP  BAPORA  LAST  STRIP  (LAST«II 


CHAR  OOOOOC  9001 1 1 1 1 1 1 1 1 122282228003333339339** 

1 23*»967S90 1 83<»967B90 1 23**SS7BS0 1 23**S67S90 
<»  JAS0A2(**>/ * AASO.AX  «OAHOAT-N.  . '/ 

«»  UUSA2(**I  /*AUSe  2N. «0AH0AT-N.  . */ 

•»  urReCO(*»i/ ’APRAA.O  2N.  . ’/ 

•»  NOPUeiNI/’NO  PILA  *OAHOAT>N.*.-0/ 

6 JPLBAOIB)/*  PILA  «OANOeT*N  OAPACTIVA.  *.-0/ 


PROCAOURA 


CALL  TRACe(*0PNI2N*i 


iNiriALize  POR  OATA/CNecKOuT  Nooe 

iriHOATAC.eo.oi  oo  ro  soo  a not  OATA/CNecxouT  hooa 

CALL  LOReON  A LOAD  RAOISTRATION  PARAHeTARS  OANARATAO  BY  CONTROL 


N*tis 


o o r>  o nooo  noon 


DAN  PACKAOC  A»#CNOIX  M 

ttTILtrv  ROUrtMCS 


N«AIUM(IM.tN.NNlNI—IOO 

Nt A I MM ( ML  I N . UHAX t •NCRL I N» 1 00 

NtAIMM(MtAn.HNtNi—IOO 

NSAI MM( MOAN . MNAX I •NCRSAH* 1 00 

00  TO  900 

e 

e 

c iNtrtALtze  roR  normal  nooc 
c 

300  NCRTSCII-O 
IR0NCR«0 
IR0KLt*0 

iRorir*o 

NtA I MM ( ML  I N . UHI N I •♦99999999 
MSA I HH ( ML  I N . UMAX  I •-99999999 
MS A I HH ( U9 AH . HN I N ) • *99999999 
M3 A I MU ( USAH . UMAX  I • -99999999 


ATTCNPr  TO  OPGN  ALL  •»  POSSIOLC  OCreCTION  TILES 
00  000  jccr^i.<» 


PUT  LOOICAL  UNIT  NAHES  cao*JCCTl  IN  DETECTION  TILE  I/O  PACKETS 

CALL  NOVCSTILaNPKTI I .UCCT) .(11.(181. 

• •S'.dl  .(H  .•  •» 

CALL  PUTICE(L8NPKT( I .UCCTI . (81 . 

• ICE(*0‘l*JCCT) 


ASSION  TILE 

CALL  CSn»IN(JA80A8.|7.l.  JCCT.II 
CALL  ERCSP(NA0.  JAS0A8I 
ir(NOrCAT(NAOI .EQ.OI  00  TO  330 

CALL  CSTAIN(N0TILE.I7.I.  UCCT.ti 
CALL  HONOTEI  NOTILEI 
UENN0Y( JCCTI^’ 

00  TO  990 

330  IP<OrMRUN(NAOI .EQ.OI  00  TO  390 
CALL  HOTATL( 

• 'OETECriON  tile  IN  USE  BY  ANOTHER  RUN  HITH  SANE  RUNIO/QUAL' 

UCNHOYfJCCTI  • ' 

00  TO  990 

390  CALL  CST«»IN(JUSC8.7.|.  JCCT.II 
CALL  C8Ti»IN(JUSC9. 17.1  . JCCT.II 
CALL  CRCSriNAO.  JU8E8I 
C 

c 

C READ  NCAOER  (SECTORS  0 THRU  SI  INTO  SUTTER 
C 

CALL  ROHORIKOUTR.  L8NPKT 1 1 . JCCTI) 

ITfKBUTRd.tl.EQ.OI  00  TO  900  0 NERTSHI^O  ••  DETECTION  TILE 

ircKOUTRces.ii .NE.jccn  oo  ro  990  0 •oahoet-<n>  not  tor  cct  » 


I 

OPMItN 

903 


IN  ERROR 
<N> 


N-loe 


OAN  MCRAOC  ARMNOtX  N 

urtLirt  RouriNCt 


ORMItN 

tt«» 


irtNcnrtm.NC.Qi  oo  ro  « nor  riRtr  ocTccrioM  rue 

e 
e 

e PiRtr  rue  --  load  tccront  o tnru  • into  kohncr.  RoratLS.  and  Ronrir 
e 

00  mi  NHO-I.SIZNCR 
*11  RONNCRCNHOI-ROUPRINUO.I I 
00  *10  NUO*l .SIORLS 
*10  ROnRLt(NMOI*ReUPR(NUO.*i 
00  *11  NHO«i.sizPir 

*13  KONririNHOI*KOUPR(NMO.St 

00  ro  *90 
c 
c 

C SUOSCQUeNT  rue  --  COHPARC  SCCTORS  O thru  O with  kohncr.  KOHKLS.  4N0  KOHPir 

c 

**o  00  **i  NHO-i.oo  • excLuoe  ncct  I Nccror 

irtKOHNCRtNMOt . NC . KBUCR ( NHO . I> I I RONCR- I RONCR*l 
**i  coNriNue 

00  **0  NHO»I.OO  0 CXCLUOC  KTIPIX 
I r ( KONKL  S ( NNOI . NC . KOUC R ( NMO . * I > I ROKL  $• I ROKL  S» I 
**0  eONTINUe 

00  **3  NU0-I.I7 

ir(K0NPir(NH0> .NC.KOurRiNHO.on  iRoriT>iRorir»i 
**3  CONMNUe 

c 

c 

C ALL  riLCS  •-  LOAD  NULL  UOROS  IN  KONOCT  TRON  SCCTORS  7 THRU  8 
C 

*90  00  *60  NNO«I.SIZOCr 

IP( (KONOCriNUOi .CQ. 01 .OR. 

0 (KonocriNMOi .CQ. ’ KonocriNNOi-KOuPR'NHO.ei 

*60  CONTINUC 
C 

c 

e COHPUTC  CLASSirtCATION  CNVCLOPC 

c 

N9AlHHfHLIN.HNINI«HtN0IHSAtHU(NLlN.HNINI .NSAOUHt ML  I N . HNI N . JCC T II 
N9AlUHIHLlN.HNAXI>HAX0<NSAlUNtUL IN.NNAXI .NSAOHHIULIN.UNAX. JCCn I 
H9AIHHIUtAH.HNlNI*HIN0(NSAlHH(HSAN.UNINI . NSAOUNI MSAN. UNI N. JCC T I I 
NSA I UUI HSAN . MNAX I *NAXO ( NSA I UUI HSAN . UHAX I . HSAOUHI MSAN . UNAX . JCC T I I 
C 

iriNCROCO.NC.’CRTM  00  TO  *70 

e 

CORIUUfULIN.UNINI«CORL*A(NSAlUU(ULlN.UNINI .NSAIUUtUSAN.UNINI I 
CORIUHIUL IN.NNAXI>CORL*Af NSAIHMIULIN.UNAXI . NSA I UM( USAN. UNAX  I I 
CORIUUfMSAN.UNINI«CORS*AINSAlUMIMLIN.MNINI . NSA I UUI USAN. UNI  Nl I 
COR I UU I USAN . UNAX I aCORS* A > NS A I MU f UL I N . MNAX I . NSA I UN I US AN . UNAX  1 1 
00  TO  600 

*70  CORIHUIUL IN.UNINI-HSAIUUCULIN.UNINI 
CORIUMIUL IN.HNAXI«NSAIUH(UL IN.UNAXI 
COR I NU I NS AN . UN I N I >NSA I UU I US AN . UN I N I 
COR I MM ( USAN . UNAX ) -NSA I UU I MSAN . UNAX I 

00  ro  000 
c 
c 


N-107 


OO  ooou  o oooouoooooou 


OAN  PACKAOC  AmNOIX  N 
UriLITt  ROUriNCt 


OPNIXN 

OOS 


I 


n.AO  ocrecrivc  ocreertON  rue 

9t0  CALL  CST<I|N( JFLBA0.t7.t.  JCCT.t) 
CALL  NOrATLt  JFLAACi 
JCNnOVtJCCTl-*  CRROR 


HARK  oereertoN  rue  data  not  prcscnt 

sao  N8A0MUCW.tN.WMtN, jccn»o 
N8A0UU C JL t N . UMAX . JCCr I «0 
NS AOUH ( USAH . HH t N . JCC T I «0 
NS AOUU  C US AH . UMAX . JCC  r I >0 

600  CONTtNUe  a LOOP  TO  ASStON  NEXT  OCTCCTtON  FtLC 


CHECK  OETECTtON  PtLES  TOR  tNTER-FtLE  CONPAT I Bt L I TY. 
rtLES  MUST  OEriNE  AN  AREA  SUCH  THAT  FOR  EACH  SCAN  LINE 
there  are  CONTtOUOUS  SAMPLES  PROM  THE  FIRST  SAMPLE  TO 
LAST  SAMPLE.  THIS  RESTRICTION  IS  NECESSARY  BECAUSE 
THE  BUFFER  STRUCTURE  (PXBOEF)  FOR  LINES  IMPLIES  THAT 
THERE  ARE  NO  OAPS  FROM  PXLSAH  TO  PXHSAN. 


FIND  FIRST  AND  LAST  DEFINED  STRIPS 

IFIRST  - 0 
LAST  • 0 
DO  BID  I - t.H 

IFCHSAOUUCULIN.HHIN. II .EQ.O)  GO  TO  BIO 
IF! IFIRST. EQ. 01  IFIRST  • I 
LAST  • I 
BIO  continue 

IFCIFIRST.EQ.OI  00  TO  BHO 

BHO  IFI  (LAST-IFIRST*!! .LT.SI  00  TO  700  a I STRIP  OR  8 ADJACENT 
tSTATE  • 0 
NLAST  - LAST  • I 

00  870  I > IFIRST. NLAST 

IFCNSAOHHCULlN.HNIN.II.EO.HSAOUUCHLIN.UHlN.Uni  00  TO  070 
IFCHSAOUUfULlN.UMIN. 1 1 .OT.HSAOUHCULIN.UHIN. t*t II  00  TO  890 
ISTATE  • -I 
00  TO  870 

8S0  IFC ISTATE. EO. >11  00  TO  800 
ISTATE  • I 
870  continue 
ISTATE  • 0 

00  8S0  I • IFIRST. NLAST 

IFIHSAOUUIHLIN. UMAX. II. EQ.HSAOHUIULIN. UMAX. Uin  00  TO  890 
IFINSAOUUCHLIN.UHAX.n.EQ.HSAOUUIULIN.UHAX.Uin  00  TO  800 
ISTATE  • I 
00  TO  890 

680  IFCtSTATE.EO.n  00  TO  810 


N-I88 


u u u o 


OAN  MCKAOC  AMCNOiX  N 

uriLirv  ROuriNCt 


ORNIM 

00« 


ISTATC  • -I 
•to  CONtlNUC 

e 

c 

C ir  AOJACCNT  STRIRS  NAVC  ANY  LINCt  IN  CONNON.SANRLCS  NUtT  K CONYtOUOUS 

e 

TOO  trnriNor.CQ.LAsri  oo  ro  ono  • i stnir 

00  T30  t • iriNsr.NLAtr 

irCNOAOHMIHLIN. HNlN.lt. or. HOAOUUfMLIN.HNAX. loin  00  TO  730 
iriNtAOMH(UUN.HHAX.II.Lr.NSAOUH(ULIN.UHlN.I*lll  00  TO  730 
iriNSAOHHtUSAH. UNAX. 11*1. NC.NSAOUU(HSAN.HMIN.I«|ll  00  TO  030 
730  CONTINUC 

00  ro  OHO 
c 

000  CALL  HOrArLf 

A ’oerccriON  rues  Nor  coNNArioLC  Ar  uppcn  linc  bounoanics  ton  cour 

AIOUOUS  SANPLCS'I 

00  ro  OHO 
c 

010  CALL  NOrArLt 

A ‘ocrecriON  rues  Nor  conPArioLe  at  LoueR  linc  eouNOARies  roR  cont 
AIOUOUS  SANPLCSM 

00  ro  OHO 

030  CALL  NOrATLt 

A ‘oerecrioN  rues  havc  oap  in  sanplcs  across  AOJACCNr  stripsm 


CNCCK  comparison  CRROR  COUNrCRS 

OHO  iruRONeR.Ne.oi  call  NorATLc 

• ’oerecrioN  rues  Nor  rROH  samc  sccnc'i 
IPMROKLS.Ne.Ot  call  NOrATLC 

• *oerecrioN  rues  roR  oirreReor  CLASses'i 
iriiRorir.NC.oi  call  NorATLi 

• ‘oerecrioN  rues  uAve  oirreReNi  coNrROL  NerHORKS’i 
iriNCRrsM I .Ne.oi  oo  ro  soo 

CALL  NorArL(*NO  oerecrioN  rues’i 

CALL  LORCOO  A LOAD  NOMINAL  RCOISTRATION  PARAMCreRS 

c 

c 

c ocriNe  NUMoeR  or  iNPur  oerecrioN  channcls  availablc 
c 

soo  irtNorArL.eo.ot  NCRCMA«NOurcN 

RCruRN 

c 

c 

c 

c 

c 

c 

CNroY  OLcroN  o oeLerc  iNPur  oerecrioN  rues 


c 

CALL  rRACCI'OLerONM 
00  TOO  uccr«i.H 

ipiucNNOvijccri.CQ.*  *1  00  ro  too 


N-lOO 


0 Nor  CArALOoco 


OAN  PACKAOC  APKNOI 
UrtLITY  ROUriNCt 


CALL  csri»iNcjniceo.t7.i.  jcer.ii 

UII1TC(S.7«SI  JCCT 

7ts  rORHATI*  irtLC  «OAHOCr«*.Jt.*  OCLCrCOI*! 

CALL  CRCSrcNAO.  UFRCCOt 
7C0  eoNfiNue 
RCTURN 


tUeROUriNC  ROHORIKBUrR.  NPKTI 
OtHCNSION  NPKTCtl 

iottze(NPKri*cs>  • hcaocr  size  in  words  por  oPNiew 
t OAOOR I NPK  r ) >L  OC ( KBUPR I 
IOSeCT(NPKTI«0 
lOrUNCCNPKTI-'aK’ 

CALL  CRIOMINPKTt 
RCTURN 
CNO 


ORNItN 

OB7 


A RCAO  HCAOCR 


DAN  PACKAOC  APKNOIX  N OMtlP 

I umtrv  RouTiNCt  «oi 


SUMOUriNE  OPSBIP 

B 

OPEN  INPUT  ERTS 

HSS  TAPE 

V 

e 

e 

A 

HISTORY 

c 

c 

CHARLES  HELHKE 

LEC 

0B/07/7S 

REQUIREHENTS 

c 

H A TOHPKINS 

LEC 

lO/OB/SS 

aloorithn  design 

H A TOHPKINS 

LEC 

I0/1I/7S 

aloorithh  cooing 

c 

e 

C NCTHOO 
C 

c 

C KTeLTYi  • ’ ’.ACAO  10  ACCORO  lATO  KTABLC  AND  EXTRACT  OtNARY 

C INrOANATION.  READ  ANNOTATION  RECORO  INTO  KTABLE  ANO  CONVERT 

C EBCOtC  annotation  RECORO  TO  CHARACTER  STRING  ANO  EXTRACT/OECOOE 
C CHARACTER  INEORNATION.  VERIFY  ANO  COHRARC  INFORNATION  FROM  10 
C ANO  annotation  RECOROS.SETi  LU3SEQ.LU3REF.LU3UIB.LU3BIB. 

c initialize  input  hinoou  packet. 

c 
c 

c nachine-oepenoent  cooe 
c - 

( C NONE . 

C 

c 

C EXTERNAL  REFERENCES 

C 

C 

C NOFATL  a PRINT/LOO/COUNT  ’FATAL  ERROR'  HESSAOES 

C ERPRNT  a PRINT  INAOES  ON  TTY  OR  LINE  PRINTER  (CHARACTER! 

C OETBYT  a OET  ONE  NON-NEO  INTEGER  FROM  BYTE  STRINO 

C OETOBY  a OET  N0N>NE0  INTEGER  FROH  OOUBLE  BYTE  FROM  BYTE  STRING 
C CSTNEB  a CHARACTER  STRING  FOR  EBCOIC  BYTE  STRING 

C NOUARN  a PRI NT/LOO/COUNT  'HARNINO'  HESSAOES 

C NOVCHR  a HOVE  A CHARACTER  FROH  ONE  STRING  TO  ANOTHER 

C OCOOE  a OECOOE  NUHERIC  CHARACTER  STRING 

C OETCHR  a GET  CHARACTER  FROH  CHARACTER  STRING 

e hovcst  a hove  substring  b to  substring  i 

C ERIOH  a initiate  I/O  ANO  HAIT  FOR  COHPLETION 

* C BSTNBB  a INTERNAL  BYTE  STRINO  FOR  B*BIT  EXTERNAL  BYTE  STRING 

C HONOTE  a PRINT/LOO  'NOTE'  HESSAOES 

e cstnin  a character  string  for  integer 

OOUBLE  PRECISION  CBSHCS  a VARIABLE  LENGTH  CST  FOR  FIXED  LENGTH  CST 
INTEGER  NCNNI  a • OF  CHARS  FOR  « OF  INTEGERS 

INTEGER  NINNC  a « OF  INTEOERS  FOR  * OF  CHARS 

INTEGER  LCHREQ  S LOCATION  OF  CHAR  IN  STRING  • SEARCH  CHAR 

INTEGER  NBNNI  a « OF  BYTES  FOR  • OF  INTEGERS 

REAL  OEO  a DEGREES  FOR  OEO.HlN.SEC 

C 

c 

e EXCEPTIONS 
C 


N>1BI 


u o u u u 


OAN  PACRAOC  APMNOIX  N 

uriLirr  routincs 


ORltlR 

O0t 


I.  KrONC  CALLINO  TNIt  tUMOUTlNC  TNC  TARC  NUtT  IC  ROtlTtONCO 
AT  TNC  KOINNINO  Of  TNC  10  RCCORO. 

t.  TNC  rOLLOMlNO  CONOITIONS  OCNCRATC  TNC  OlAONOtTtCS  SNOMN 


INVALID  SAHRLCt/eer 
INVALID  CRTS  NUHDCR 
NOT  tVSTCH  CORRCCriON 
RROJCeriON  NOT  CRT 
DATA  CRROR  IN  ID  ACCORD 
JUL  77  rORHAT-NO  NADIR 
*COr*  I/O  tTATUS 
‘RAor*  I/O  status 
’LOST*  I/O  status 
’RAOR*  I/O  status 


FATAL  CRROR 

FATAL  CRROR 

NARNINO 

NARNINO 

MARNINO 

FATAL  LRROR 

fatal  CRROR 

NOTC 

NOTC 


OLODAL  OCCLARATIONS 


INCLUOC  KONXQT.LIST 
INCLUOC  K0HLU3.LIST 
INCLUOC  KONNCR.LIST 
INCLUOC  KONTBL.LIST 
INCLUOC  KONIO  .LIST 
INCLUOC  HAXINT.LIST 
INCLUOC  HINOCr.LIST 
INCLUOC  KOHIMU.LIST 
INCLUOC  Fioer  .list 


a CCKNON  PROORAN  CXCCUTION  SHITCHCS.  C0UNTCR8 
a FACKCT/POINTCRS  FOR  UNITS 
a CRTS  SCCNC  PARANCTCRS 
a CONNON  BLOCKS  AND  OCFINC  PROCCOURCS 
a fortran  ALLOMINO  use  of  ASSCnSLCR  I/O  PACKCT8 
a RAX  INTCOCR  CONTAINCO  in  HACHINC 
a OCFINC  STRUCTURC  OF  HINOOH  PACKCT 
a CONNON  INPUT  HI  NOON  PACKCT8 
a OCFINCS  STRUCTURC  OF  LU3FI0  ARRAY 


LOCAL  OCCLARATIONS 


LOOICAL 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

C 

e 

e RROCCOURC 


BAD  a TRIC  IF  eONTCNTS  OF  SONC  VARIABLC  ARC  INVALID 

NOSAVC  a TCIIP  TO  STORC  • OF  PRCVIOUS  OlAONOSTtCS 

NOYTOR  a data  rccoro  lcnotn  in  OYTCS 

NBCRTSI3I  a CRTS  SCCNC  IOCRTIFICATION  - BINARY 

NOYTAL  a AOJUSTCO  LINC  lcnotn  in  OYTCS 

LATO  a SCCNC  CCNTCR  LATITUOC  OCORCCS 

LATH  a SCCNC  CCNTCR  LATITUOC  NINUTCS 

LONO  a SCCNC  CCNTCR  LONOITUOC  OCORCCS 

LONH  a SCCNC  CCNTCR  LONOITUOC  NINUTCS 

NLATO  a NAOIR  LATITUOC  OCORCCS 

NLATN  a NAOIR  LATITUOC  NINUTCS 

NLONO  a NAOIR  LONOITUOC  OCORCCS 

NLONN  a NAOIR  LONOITUOC  NINUTCS 

LOCOCO  a LOCATION  IN  INAOCO  OF  NCROCO 

NOOTNR  a NOOC/CORRCCTION 

NOCCON  a OCCONPRCSSCO  data  I«TRUC  I O-NOT  TRUC 

INAOCOTSI /’RAO* . *LCC* . *PS* . ’SON* . *UTN’/ 

INOCO/’LRSU'/  a OOOOARO  INAOC  OCONCTRY 


nnnn 


OAN  MCKA«C  AI>WNOIX  N 

umirv  RouriNCt 


e 

c 

CALL  TRACK 
C 

c 

C iNiriALIZC  RCCL  lOKNTiriKRS 

c 

LUlRCLm  • LUSriOtriOCRLt  • CURRCNT  UNO  ONLY!  RKKL 
LUSVOL  • I 
LUSVNI  • I 

c 

c 

c tNiruLize  TO  *o*  vkrsiono 
c 

KTOLTr  • • • a riAO  mcvious  coNrcNrs  ktablc  as  ocstroyko 
LUStCQin  * ‘tlR* 

LUSSCQ(*I  • *0*  • INiriALIZe  TO  •»  CHANNKL  VCRSION  OF  DATA  SCO 

NCRCNA  > •» 

LUSRCrttI  • ’CRT* 

LusRcrtzi  • *0*  a iNiruLize  ro  CRrscYai  version  or  rec  rnr 
NOSAVE  • NOrOTL 


RCAO  10  RECORO  INTO  KTAOIE. 


lOAOORILUSRKr*  > LOCIKTABLE* 
lOSIZEauSPKT  I • 10 
lOHAITflUiRKTI  • 0 

loruNCiLusPKn  • *aK’  a read  porharo 

CALI  ERIOWC.UZPKT  I 
ISTAT  • lOCOOEUUSPKTt 

IPf  (ISTAr.EO. *EOP* I .OR. ( ISTAT.EQ. 'BAOr*)  ICALL  NOrATL' 

• CBS*»cs(isrAr.t.<*i.  ’ hnile  reaoino  io  recoro*> 
in  nSTAT.EQ. 'LOST  * I .OR.  ( ISTAT.EO.  *BAOR‘ I >CALL  HONOTEI 
■ CBSi»csnsrAr.i .<»> . * hnile  reaoino  io  record* > 


IP  10  RECORD  IS  IN  BO  PORRAT.  THEN  CONVERT  IT  TO  BST 

IP(LUSBPN.E0.*BB*I  CALL  BSUBBI KTABLC . KTABLE.NBANI  ( IBM 


Extract  binary  inpornation  pron  io  record 

CALL  OCrOBYINBYTOR.  KTABLE.IYI  S DATA  RECORD  LENOTH  IM  BYTES 
CALL  OCTBYTINBCPrSM I . KTaBLC.IBI  I CRTS  PROJECT  NUHOER 
CALL  OCrOYTfNBCRrSiai . ktablc.boi  a days  since  launch 
NTCRTS  • NOCRrS(*l«C«*S 
CALL  OCTBYTINBERrsiCI.  KrABLC.CIi 
NOCRTSIfl  • NOERTSIfl  • TERTS 
CALL  OCTBYriNBCRrSdl  . K.'AOLC.CtI  SORT 
NTCRTS  • NBCRTSISMIOOO 
CALL  OCTBYTINOCRTSdl . KTABLC. BSI 

NTCRTS  • NTCRTS  • NBCRTSUMIO 
CALL  OCTBYTINOCRTSISI.  KTABLC. f«i 

NOCRTSISI  • NOCRTSm  • NTCRTS 


ONZBi^ 

001 


N'tOI 


OAN  MCRAOff  AMCNOIX  X 
MTiurv  ROUriNCt 


00« 


CALI.  ocrotYfxxrrAA.  ktailc.s9(  a aojustco  linc  icn  in  avrct 
CALL  ocrayriNOorNR.  xrAai.r.iai  a Nooc/coRrceriON 

eoNvcRT  cacoie  to  rccoro  to  CHARAcrcR  trRiNO 

CALL  CtmtrxrANLC.  XfAlLC.iei 


e ocrcRNiNC  vcrsion  or  lo  rccoro 
c 

CALL  OCrCNR(tOA9N.  KTAOLC.SI 
NROTYO  • 0 

iriiOAtN.NC. ’-*1  Nrtr7o  • i 
iriiOAtN.NC.'-MLusRerioi  • *t*  a CRrs(jAN70i 
c 
c 

c cxrRAcr  charactcr  iNroRHArioN  fron  id  rccoro 

e 

c 

CALL  OCOOC(NCRrt( II .RCAL .KOOrvR.  KTAOLC.l.tl  A CRTS  PROJCCT  NO. 
iriKOorrR.NC. ’ IN* iNCRTsi n • naxint 
c 

CALL  ocooeiNCRrtiai .RCAL .Koorrr.  KrAeLe.a.3*NPsr7ai  a oays/launch 
iriKOOTYP. NC. ’ IN* INCRTSiai  • NAXINT 

c 

CALL  OCOOeiNCRTSlSI .RCAL.KOOTyP.  KrA8LC.6»NPST7a.S)  a ONT 
IPIKOOTYP.NC. * IN' INCRTSCSI  > NAXINT 

c 

CALL  OCOOCINCCT.RCAL.KOOTYP,  KTA0LC.l7.il  a TAPC  SCO  NCCT  OF  NCCTOT 
IFfKOOTYP.NC. * IN* INCCT  • NAXINT 

c 

CALL  OCOOCINCCTOT.RCAL.KOOTYP.  KTABLC.IO.il  a TAPC  SCO  NCCT  OF  NCCTOT 
IFfKOOTYP.NC. * IN* INCCTOT  • NAXINT 
C 

c 

C PRINT  RCC  IF  TRACC  If  ON  OR  OlAONOBTIC  COUNT  IB  CHANOCO 

c 

IFi  INTRACC.CQ.OI .AND. INOBAVC.CQ.NOTOTLI  I 00  TO  ISO 
CALL  CRPRNTM  .NI7NCI70I  . KTARLCI 
NOSAVC  ■ NOTOTL 
ISO  CONTINUC 
C 

c 

C RCAO  ANNOTATION  RCCORO  INTO  KTAOLC 

c 

lOAOORdUSPKTI  • LOCIKTABICI 

lOflZCILUSPKTI  • SO 

lONAlTILUSPKTI  > 0 

lOFUNCILUSPKTI  • *aX*  a RCAO  FORHARO 

CALL  CRIOUILUSPKTI 
IBTAT  • lOCOOC(LUlPKT) 

IFf  MBrAr.CO.*COF*I.OR.IIfTAT.CO.*OAOF*l  ICALL  NOFATLI 
• C0B7CBI IBTAT. I. 71.*  MNILC  RCAOINO  ANNOTATION  RCCORO*! 

C 

IFI  I IBTAT. CO. *iAOR*i. OR. I IBTAT. CO. 'LOST* I I CALL  NONOTCI 


N*IB« 


OAN  PACKAOC  AWCNOIK  N 

urittTT  ttouriNCt 


OTMI^ 


• CttACtfltrAr.t.tlt.*  MHILC  RCAOINO  ANNOrAriON  NCCONO*! 

e 

e 

e ir  ANNOTAriON  RCCOKO  It  IN  M rONNAr.  THCN  eONVCNr  ir  TO  Mr 

e 

irCLUMrN.CO.'tt'l  call  MrMtlKTAtLC.  KrAtLC.NtANIIStll 
e 
e 

e eoNvcRT  rteoie  ANNorArioN  rccono  ro  cnanactcn  stnino 
e 

CALL  Ctri»Ct(KrAtLC.  RfAtLC.IA^I 

e 

e 

C CxrNACr  CMAHACrCR  INfORNAriON  fRON  annotation  rccoro 
e 

CALL  OCOOCCNCROAV.RCAL.KOOrrR.  KTAtlC.l.tl  A OAT  CXROtURC 
irtXOOTYR.NC.  M'I’t  NCROAY  • 90 
1 r I NCROA  V . L T . t . . NCROA  T . OT . S II C AL  L NOWARN ( 

• *tAO  CXROfURC  r-AY  TRON  ANNOTATION  RCCORO*) 

c 

CALI  NOVCtriNCRNON.I.S.  KTARLC.I.S.*  *1  A NORTH 

e 

CALL  OCOOCINCRYR.RCAL.KOOTYR.  KTaOLC.A.O  A YCAR 
iriKOOTYR.NC. *IN*ICALL  HOHARNt 

• *tAO  CXROtURC  YCAR  CRON  ANNOTATION  RCCORO*) 

C 

CALL  OCOOCILATO.RCAL.KOOTYR.  KTAOLC.IC.O  A tCCNC  CCNTCR  LAT*OCO 
IriKOOTYR.NC. * IN* )CALL  NORATLI 

• 'tAO  ICCNC  CCNTCR  OCO  LAT  CRON  ANNOTATION  RCCORO*) 

C 

CALL  OCOOCILATN.RCAL.KOOTYR.  KTAOLC.IS.C)  A SCCNC  CCNTCR  LAT-NIN 
IRIKOOTYR.NC. * IN* )CALL  NOMARNI 

• *tAO  SCCNC  CCNTCR  NIN  LAT  TRON  ANNOTATION  RCCORO  --  SO  AStUNCO*) 
IRIK00TYR.NC.*IN*)LATN  • so 

c 

CALL  OCOOCILONO.RCAL.KOOTYR.  KTAOLC.IO.S)  A SCCNC  CCNTCR  LON-OCO 
IRIKOOTYR.NC. * IN* ICALL  NORATLI 
- ’tAO  SCCNC  CCNTCR  OCO  LON  RRON  ANNOTATION  RCCORO*) 

c 

CALL  OCOOCILONN.RCAL.KOOTYR.  KTAtLC.CS.fl  A SCCNC  CCNTCR  L0N>NIN 
IRIKOOTYR.NC. * IN* )CALL  NOMARNI 

• *tAO  SCCNC  CCNTCR  NiN  LOR  RRON  ANNOTATION  RCCORO  ••  SO  ASSUNCO*) 
IRIKOOTYR.NC. * IN* ILONH  • SO 

C 

c 

c 

C OCTCRNINC  VCRSION  OR  ANNOTATION  RCCORO 
C 

CALL  OCTCNRIIOLANK.  KTAtLC.SRt 

IRIItLANK.CQ.  * '.ANO.LUSRCRIffl.CO.  *0‘)LUSRCRICI  • *1*  A CRTSUULVTl 
iriLUSRCRItl.NC. *0*1  00  TO  fOO 

c 

c 

C CXTRACT  CNARACTCR  INRORNATION  RRON  RRC*JWL97  ANNOTATION  RCC  IVCRSION  *0*1 

c 

CALL  eCOOCINLATO.RCAL.KOOTVR.  KTAiLC.Ct.C*  A NAOIR  LAT-OCO 


N-199 


OM  MCRMC  AmNOIX  N 

vnurv  Munnct 


••• 


irtKOOrY#.NC.*IN*ICAI.l  NOTAnf 

• *IAO  NAem  OCO  LAT  rXON  ANNOrAriON  mcoro*i 

e 

CALL  OeMCtNLArN.RCAL.XOOrvR.  KTAILC. St.tl  A NAOm  LAT-NIN 

iriRoerrR.NC.’iNMeAkL  nomarni 

• *tAO  NAOm  RIN  LAT  mON  ANNOrAriON  MCCOIIQ-XO  AttUNCO*! 
iriXOOrTR.NC.MNMNkArN  • 10 

e 

CAkk  OCOOCtNLONO.IICAL.KOOrVR.  xrAtkC.Si.SI  • NAOIII  LON-OCO 
irfxoorvR.NC.’iNMCAkk  norAru 

• *RAO  NAOIX  OCO  LON  CRON  ANNOfAriON  RCCOROM 

e 

CALL  OeeOCCNLONN.RffAL.KOOrvR.  KrA0LC.*»0.tl  0 NAOIR  LON'NtN 
irtXOOrvR.NC.’lN'ICALL  NOHARNI 

• ’OAO  NAOIR  NIN  LON  TRON  ANNOrATION  RCCORO>XO  AttUNCO’t 
irrXOOrrR.NC. ‘IN’INLONN  • so 

c 

CALL  OCOOCtNCRfCL.RCAL.KOOryR.  KrAOLC.Ot.Ot  0 tUNCLCVAT'ON 
Iff  INCROCl.Lr.OI .OR.INCRtCL.Or.OOi  IKOOrrR  • *CRR* 
ircKOorrR.NC.  mn’icall  noharni 

• *0A0  SUN  CLCVATION  CRON  ANNOTAriON  RCCORO’t 

e 

CALL  OeOOCfNCRtAZ.RCAL.KOOrvR.  xrAtLC.OO.SI  a fMN  ACIHUrM 
ir<  (NCRtAZ.Lr..SaOt .OR. INCRSAZ.Or.SOOl  IKOOTYR  • *CRR* 
iriKOOrVR.NC. *IN*ICALL  NOHARNt 

• *0A0  OWN  AZINUrN  RRON  ANNOTATION  RCCORO'i 

e 

CALL  OCOOCt IHOTAN.RCAL .KOOrrR.  KTAOLC.70.St  a NCAOINO  NiNUS  TAN  IInTI 
ir(KOOTYR.NC.*IN*ICALL  NOrATLf 

• *0A0  NCAOINO  NINUt  TAN  fRON  ANNOTATION  RCCORO’t 
NNYOCO  • I NOYAU 

e 

NCROCO  • *ZRT* 

e 

c 

e OCrCRNINC  OYSTCN  CORRCCTION 

c 

ItYNCR  • NOOTHR 
NOITIS  • 0 

irtNoontYNCR.ct  .NC.ot  nritio  • t 
ItYNCR  • ItYNCR  f 0 
NOirit  • 0 

irtNOOMtYNCR.Ot. NC.ot  NtITIt  • 1 
in  (Noirit.co.ot .ANO. (Ntirit.ce.ot  t ncrcor  • *u* 
in  fNoiTtt. CO. It. ANO. (Ntirit.co.it  t ncrcor  • *f 
iriNCRCOR.CO. * ‘tCALL  NON*«N( 

• 'CALIORATION  ANO  L I NC <>L CNO (N'AOJUtT  NOT  tANl  IN  OYtC  St  10  RCC 
AORO*t 

e 

c 

e CXTRACT  CNARACrCR  INTORNATION  CRON  R0tT>JUL77  ANNOTATION 
e RCCORO  IVCRtlON  *1*  OR  *0*1 

e 

000  CALL  OCOOClMRtCL.RCAL.KOOTYR.  KTAOLC.tO.Ot  0 tUN  CLCVATION 
iriKOOTVR.NC. *1N* (CALL  NONARNI 


N-ltO 


MN  ^ACKMC  A^WNOIS  N 

vmirv  nottfiNCt 


• *t*o  tuN  ciCVArioN  moR  AtawTArioN  Rteeiie*i 
e 

CAil  SCOOCtNCRfAZ.MAL.KOOrvR.  RTAAtC.7t.BI  A MR  AZINIITN 
triROOTYt.NC.MN'ICALL  HOMAANI 

• *tAO  tuN  AZimiTN  men  AimerArieN  RceoRe*i 

e 

MITOCf  • -MM 
NtATO  • -MM 
MLATH  • 0 
NLQNO  • -Mtt 
NLONH  • 0 

CAtt  NONOrCf  *JUtT7  OOeOAM  rORNAT  --  NO  NAOIAM 

CAtt  NONOTCt ’Arriruoc  uNOcriNCo  --  tee  cno  or  eer  n’i 

e 

CALL  OCrCMAfNCRAOM.  RTAitC.tO)  A *A*  OR  *0*  OROIT  OIRCCrtON 

e 

CALL  OCrCNRIMRCOR.  KTAitC.70i  A CORRCCriON  ARAL  ICO 

e 

CAU  NOVCtriNCRRAr.I.l.  KTAttC.C7.l. * *1  A NOHINAI  RArH 

e 

CALI  NOVCATINCRRON.I.S.  KTABtC.lt .1. * *>  A NONINAl  ROW 

e 

CAtt  OCTCNRIIOCO.  KTABLC.70>  A RROJCCTION  OCONCTRY 
C 

tOeOCO  • LCNRCQMHOCO.I.N.IOCOi  * t 
NCROCO  • iNAOCOIlOeOCOi 

e 

e CONVCRT  iNrORNATION  RRON  ANNOTATION  RCCORO 

c 

tCO  CTRtAT  • 0C0(LAT0.LATN.A.0I 
CTRtON  • OCOILONO.LONN.O.Oi 
OIRtAT  • OCOINtATO.NtATN.O.AI 
OIRtON  • OCOINLONO.NLONN.A.O* 

c 

c 

e VCRTtrr/eONRARC  INRORNATION  RROR  10  RCCORO 

e 

NBTTOR  • NBTTOR  -Si  A AUBTRACT  CAtIB.  INTO 
NCRBAN  • NBYTAt 

iriNBYTU.CO.NBVTORi  00  TO  100 
irtNOeiNBYTAl.NI .NC. 01  00  TO  too 

irt  tNCRAAN.lT.CAOet .OR. INCRAAN.OT.TOOOi  > 00  TO  tOO 

CAtt  NOUARNf 'CONrilCT  IN  fARRtCt^CCT  --  COHRUTCO  RRON  AOJUtTCO 

• tINC  LCNOTN*! 

00  TO  too 

e 

too  MCRAAR  • RAX  I NT 

irtRMINBYTOR.Nl.CO.OiNCRtAR  - NBYTOR 
in  tHCRtAR.LT.tBOOI.OR.tNrMAR.OT.70001  > CAtt  RORATtf 

• •iNVAtie  bahrlcb/cctm 
CAtt  NOUARNf 

• *CeNRUeT  IN  BARRlCf/CCT  — CONROTCB  RROR  BATA  RCCORO  tCNOTHM 

e 

e 

e VCBTIRT  BCBT  VAtUC  OR  RROJCCT  NO..OAT.TIRC  RCLATIVC  TO  LAUNCHi 
C 


BRIBIR 

BB7 


H-IB7 


u u u u 


OAN  ^ACKAOC  AIH>eNOIX  N 

tfmiTY  ROuriNes 


e — raojccr  NunacR 
c 

300  lOUT  • NAXINT 

•AO  • c cNoenrstn.Lr.n.oii.tNOCRrsm.oT.oi  i 
trtOAOl  CALL  nOUARNI 
• *0A0  OINARY  CRTS  NUNBCRM 

irc.NOT.OAOMOUr  • NOCRTSm 

•AO  • ( tNCRTSdl  .LT.  II  .OR.  (NCRTSCIt  .0T.8)  I 

iriOAOl  CALL  NOUARNI *BAO  CBCOIC  CRTS  NUHOCR*! 
trt.Nor.OADi  tour  • NCRrstn 

NCRTsm  - tour 
c 
c 

C ••  OAT  RCLATIVC  TO  LAUNCH  AT  oeSCRVATION 
C 

tour  > NAXINT 

•AO  • ( CNBeRTScai.LT.Ol.OR. CNaCRTStCl.Or.SSSSI  I 
irtBAOl  CALL  NOUARNt 
« *BAO  BINARY  BAYS  SINCE  LAUNCH* I 

irt.Nor.BAOl  louT  • nbcrtsibi 

BAO  - ( INCRTSIBI .LT. n .OR. (NCRTStB) .0T.9999>  I 

irtBAOl  CALL  NOUARNt  ’BAO  EBCDIC  DAYS  SINCE  LAUNCH’ I 
irt.Nor.BAOl  lOur  - nertscc!) 

NCRTSI3I  ■ lour 


••  HOUR. HI NUTE. TENS  OF  SECONDS  RELATIVE  TO  OBSERVATION 
lOUT  ■ NAXINT 

BAD  ■ ( INBERTSC3I  .LT.O)  .OR.  (NBERTSOt  .Or.B>»OOOI  I 
IFtBAOlCALL  NOUARNt  ’BAD  BINARY  ONT’I 

irt.Nor.BAOl  lour  > nbertsoi 
BAO*  I INERTStSI .LT.OI .OR. (NERTSC3I .or.BVOOOl  > 
triBAOl  CALL  NOUARNt ’BAD  EBCDIC  ONT’I 
iri.NOT.BAOI  I our  • NERTSC3I 
NERTSI3I  - lour 
C 

00  310  I - 1.3 

I r inerts 1 1 1 .EQ. NAXINT) CALL  NOFATLI 

• ’INVALID  ERTS  SCENE  IOENTIFICAT ION’ I 
in NERTSI 1 1 .CQ.NAXINTi  00  TO  3B0 

310  continue 
C 

c 

c :r  lanosat>3  set  data  sco.  version  ano  nunbcr  or  channels 
c 

3B0  irtNCRTSItl .EQ.3I  LU3SCQIB)  * ’1* 
iriNERTSt 1 1 .CO.SI  NERCHA  * S 
C 

iriNCRCOR.NE. *S‘)CALL  NOrATLI 

- * ’.CBSVCSINCRCOR.I.I).*  CORRECTED  TAREi  UNSUPRORTCO’ I 

in  I NCRCOR . CO . * S ’ I . ANO . I NCROCO . NC . * BAO ' . ANO . NCROEO . NE . ’ ERT ’ I 

• CALL  NONOrCl 

- ‘SYSTCH  CORRCCrCO  TARE  CANNOT  BE’.*  * .CBSVCSINCROCO. I . 31 . 

• * PROJECTION  ••  CRTS  OCONCTRY  ASSUNEO’I 

iri  INCRCOR.CQ. *S*I .ANO. INCROCO.NC. *BAO*l  I 'nCROCO  • *ERT* 


0R3BIR 

0B« 


I 


N'tSO 


oooon  o r>  non  onno 


OAN  l»ACKAOC  APKNOIX  N 
UriLirV  ROUTtNCS 


OCTCRNINC  NODE  AND  OAtN  VALUES  EOR  tANOS  ItYTE  Stt 

HOOTNR  • nOOTHR  / « 

NOECON  • 0 

trcNOOtnoorNP.Ei.NE.oi  noecon  * i 

00  Itl  I • t.NERCNA 

CAL.  CtrHlNCNEROANCII.I.NCVNmi. 

NEROAtm  • ‘L* 

SRI  CONtlNUC 

HOOTHP  • NOOTHP  / R 
irtnoocnooTHP.si  .NE.oi  neroakri  • *h* 

HOOTHP  ■ HOOTHP  / R 

IP(H00(H00THP.RI .NE.OI  NCRGAICIi  - ’H‘ 

HOOTHP  > HOOTHP/R 
00  3RR  I ■ t.NCRCHA 
NERTHOCII  - 'I* 

IPCt.OT.SI  00  TO  3RR 

iriHOOtHOOTHP.RI .HE. Oi  NERTHOfll  > *R* 

3RR  CONTINUE 

iriNERTNOt n .EQ. ’ I ’ .ANO.NOECON.EQ. I)  CALL  NOPATLC 
« ‘ OECOHPRESSION  or  LINEAR  TRANSNISSION  DATA  NOT  VALID' > 

iriNERTNOf I I .EQ. 'R* . ANO.NOECON.EQ.O)  CALL  NOFATLI 
• * UNSUPPORTEOt  CONPRE3SION  TRANS.  NODE  NOT  OECONPRESSEO' ) 


INITIALIZE  READ  PARAHETERS  TOR  OOOOARO  EORNAT 

LUSLOr  *0  A LINE  OIHEAOERI  IN  BUFFER 
LU3RBF  *0  • RECORD  OIHEAOERI  IN  BUFFER 

LU3WIB  • SZ38UF  A NUHBER  OP  HOROS  PER  PHYSICAL  TAPE  BLOCK 
LU3BIL  > I A NUHBER  OF  PHYSICAL  TAPE  BLOCKS  PER  SCAN  LINE 
LU3BI8  • NBHNI ISZ3BUPI  A • OF  BYTES  PER  PHYSICAL  TAPE  BLOCK 
C 

NERLIN  • R3V0 
CTRLIN  • (NERLIN  • 11*0. S 
CTRSAN  • (NERSAN  * IKO.S 
C 

HSAIUHIULIN.UHINI  • I 
HSAIUHIMLIN.UHAXI  • R3>*0 

HBAIHHIUSAH.HHINI  • NERSAN* (NCCT  • ll/NCCTOT  * I 
NtAlHWIHSAN.UNAXI  • NERSAN*NCCT/NCCT0T 
C 

c 

C PRINT  REC  IF  trace  IS  ON  OR  OlAONOSTIC  COUNT  IS  CHANOEO 

c 

IF!  (NTRACE.EQ.OI .ANO. (NOSAVE.EQ.NOTOTLI  I 00  TO  BOO 
00  SOO  LOMCHR  • I.IHH.VS 
LOMINT  • NUNCILOUCHRi 


OPSOIR 

•00 


N-1S9 


OAN  ^ACKAOC  APKNOIX  N OPStIP 

umiTv  iiourtNcs  oio 


CALL  CRMNni.NIINCflCI.  KTACLCCLOMINT II 

•00  eoNfiNue 

c 

e 

000  OCruRN 


c 

c 


CNO 
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UTILITY  UOUTINCS 


OUXOtK 

001 


tUBROUTINe  0P30SK  0 ORCN  UNIT  3 f INPUT  DATA  ON  DISK  IN  PXOOCP  PORNATI 


HISTORY 


NARY  TOHPKINS 
NARY  T0HPKIN8 
NARY  TOHPKINS 


tec  00/11/79 
LCC  oo/as/79 
LCNSCO  00/16/90 


ReOUIRCNeNTS 

srueeeo 

AOAPreO  PRON  0PNI2N 


HCTHOr 


RCAO  HCAOCR  SECTORS  PROH  DISK  PILE  INTO  LOCAL  SUPPER. 

LOAD  KONNER.  KOHKLS.  KONPIT.  KONOET  PRON  LOCAL  SUPPER. 

OEPINE  input  HINOOU.  NUHSER  op  CHANNELS.  ANO  LENGTH  OP  RECORD. 


HACHINE-OEPENOENT  CODE 


NONE. 


EXTERNAL  REPERENCES 


NOPATL  a PRINT/COUNT/LOO  ’PATAL  ERROR*  DIAGNOSTIC  HESSAGE 

ERIOH  a INITIATE  I/O  A MAIT  POR  COMPLETION 


EXCEPTIONS 


I.  the  POLLOUINO  condition  generate  the  diagnostics  SHOUN: 

CONDITION  OIAONOSTICS 

BAD  STRIP  NUMBER  NOPATL 


GLOBAL  DECLARATIONS 


c 


INCLUDE  KONXQT.LIST 
INCLUDE  K0MLU3.LIST 
INCLUDE  KOMIO.LIST 
INCLUDE  KOMNER.LIST 
INCLUDE  KOMKLS.LIST 
INCLUDE  KONPIT. LI  ST 
INCLUDE  KONOET. LI  ST 
INCLUDE  HINOEP.LIST 
INCLUDE  KOHIHH.LIST 
INCLUDE  TRPORN.LIST 


a COMNON  PROORAN  EXECUTION  SNITCHES.  COUNTERS 
a COMNON  I/O  PACKET/POINTERS  POR  UNIT  3 
a COMNON  I/O  PUNCTIONS 
a COMNON  ERTS  SCENE  PARAMETERS 
a COMMON  CLASSIPICATION  INPO 
a COMMON  aouustnent/reoistration  parameters 
a temporary  COMMON  disk  pile  uinoou.  record  LENOTH 
a OEPINE  STRUCTURE  OF  HI  NOON  PACKETS 
a COMMON  input  HINOOU  PACKETS 
a OEPINE  COORDINATE  TRANSFORMATION  PUNCTIONS 


N'COI 


oooo  nono  onno 


OAN  PACKAM  AMCNOtX  N 
UriLiTY  NOUriNCS 


OPSOtK 

ooa 


LOCAL  OCCLARAMONt 


INTCOCR  KOUriKOa.Ot  A INrCRNAL  HORK  SUFFCR  FOR  DISK  FILC  HCAOCR 


RROCCOURC 


CALL  rRACec*OFNIRN*l 


C RCAO  NCAOCR  fSCCTORS  0 THRU  6»  INTO  BUFFCR 
C 

CALL  ROHORtKBUFR) 

IF(  tKBUFR(i».  1 1 .Lf.  I I .OR.  CKBUFR(>*.  I > .or  .HI  I CALL  HOFATLf 
• ‘BAD  STRIP  NUHBCR  IN  FILE  3 HCAOCR* > 

IFCNOFATL.NC.OI  00  TO  900 

c 

c 

c iNiriALtzc  data  seoucNce/veRSiON  a rccoro  forhat/vcrsion 
c 

LU3Se0(tl«*0SK* 

LU3seo(ai«*o* 

LU3RCP(|I-*PXB‘ 

LU3RCF(BI>’0* 


LOAD  SCCrORS  0 THRU  B INTO  KONNCR.  KOMKLS.  ANO  KOHFtT 

00  Hit  NWO*I.StZNCR 
HI  I KOHNCRfNMOI-KBUFRINWO.il 
00  HIB  NUO-t.StZKLS 
Hit  KONKLSINHOI-KBUFRINUO.HI 
00  HI3  NMO-t .SIZFir 
HI3  KOHFiriNUOI-KBUFRtNWO.BI 


LOAO  secroRS  tab  into  konoct 

00  HBO  NHO-i .sizoer 

KONOC  r r NUO I -KBUFR 1 NMO . B I 
HBO  CONTINUC 


OCFINC  iNPUr  HI  NOON  FRON  KONOCr  UINOOU 

NSAIUMfMLlN.WHINI-NSAOHHfHLlN.WHIN.NCCri 
NS A I MM  f ML  I N . HNAX I -NS AOHH  f ML  I N . MN A X . NCC  T I 
NBA I HH f HSAN . MN I N I -NS AOHH I MS AN . HN I N . NCC  r I 
NBA I HH ( MS AN . HNAX I -NS AOHH ( MS AN . HNAX . NCC  r I 
C 

IFfNCROCO.NC.'CRT'l  00  ro  H70 
C 

• CORIHUfHLiN.HNiNI-CORLHAfNSAlHHfHLiN.HNINI .NSAlHHf HSAN.HNINI I 


N-ROC 


ooon  noon  oooo 


DAN  MCKAOC  APKNOtX  N 

uritirv  RourtNCS 


eORI  HM  ( Mt  I N . UMAX  I •CORL*»  A ( Nt  A t HH  c HL  I N . UHAX 1 . Nt  A I HH I MS  AH . MNAX 1 1 
CORlHM(MtAN.MNINt*COIIti»AintAtUU(MLlN.UHINt  .ntAlMUtUSAH.HNlNII 
CORlUUIUtAN.UnAXWCORSIAINSAIHUtULIN.UNAXI .NSAIUUCMSAH.MNAXI I 
00  TO  *»00 

•lYO  eORtUII(ULlN.HniNI*nOAIMM(HLIN.UniNt 
CORIHHfMLtN.UHAXI«NtAIUUIULlN.UnAX> 
CORIUHCHOAn.HHlNt«NOAIHHfMOAN.HHINI 
com  HH  f MOAN . HNAX I •N8A I UU( MOAN . UMAX  > 

*»00  CONTI NUC 

e 

c 

e ocrtNC  lcnotn  or  disk  nccoro  in  univac  secrons  roon  kohoct 
c 

uusLRS-iocrRsiNccri 


ocriNC  NunecR  or  input  disk  channels  available 
iriNOrATL.EQ.OI  ^ERCHA«NOUrCH 


ZERO  KOHOET 


00  000  nmo*i.sizoet 
konoet(nuoi-o 

000  CONTINUE 


DONE 

BOO  RETURN 
C 

e 

c 

c 

c 

c 

C INTERNAL 

subroutine  ROHORIKBUrRI 

I0SIZE(LUSPKTI«BSE  a HEAOER  size  in  words  rOR  0P30SK 
I OAOOR ( LUSPKT I >L  OC ( KBUPR ) 

IOSECT(LUSPKTI*0 

IOrUNCiLU3PKTl«*AK*  « READ  HEAOER 

CALL  ERIOMtLUSPKTl 

RETURN 

ENO 


O^IOM 

OOS 


N«t  03 


uuuuuuouuuouuuuuuuuooouuovuouuuou 


0*11  MCKAOC  AMCNOIX  N 
UrttlTT  ROUriMCS 


ORXNOR 

001 


tUOOOUriNC  ORSNOO  A ORCN  INRUT  NOR  TARC 


Ht STORY 


NARY 

TONPKtNS 

LCC 

0B/0B/7S 

NARY 

TONPKINS 

LCC 

I0/1S/7S 

NARY 

TOHPKINS 

LCC 

I0/S1/7S 

NARY 

TONPKINS 

LCHSCO 

0S/CB/7S 

ReQuiReNCNrs 
alooritnn  oesiON 

ALOORITHH  COOINO 

NrCHR«0  UHCN  CHANOtNO  NOXRRt 


HCTHOO 


CALL  03T0R.  CALL  03H0R.  IF  NOANCL  > 0 CALL  03ANCL  ANO 
RROCeSS  NOANCL  ANCILLARY  RCCOROS.  THEN  CALL  03AN0T. 


MACHINE -oePENOeNT  CODE 


NONE. 


EXTERNAL  REFERENCES 


03T0R  • PROCESS  TAPE  OIRECTORY  RECORD 

03H0R  a PROCESS  HEADER  RECORD  FROH  HOP  TAPES 

03ANCL  a PROCESS  ANCILLARY  RECORDS  FROH  HOP  TAPES 

03AN0T  • PROCESS  ANNOTATION  RECORDS  FROH  HOP  TAPES 

COSNCS  a VARIAOLE  CHARACTER  STRINO  FOR  FIXED  CHAR  8TRIN0 

DOUBLE  PRECISION  COSNCS 


C 

C 

C OLOBAL  declarations 

C 

C 

INCLUDE  KONXQT.LIST 
INCLUDE  KOHTBL.LIST 
INCLUDE  K0HLU3.LIST 
INCLUDE  FIOEF.LIST 


• COHHON  PROORAH  EXECUTION  SWITCHES.  COUNTERS 
a COHHON  BLOCKS  ANO  DEFINE  PROCEDURES 

a packet/pointers  for  unit  3 
a defines  structure  of  LU3FI0  array 


LOCAL  declarations 


INTCOER  NOXREF  S INDEX  FOR  LU3REF  IN  Nl VOLH/NI VOLR 

INTEOER  NOXFPI  a INDEX  FOR  FP|  OF  TAPE  IN  Nl VOLN/NI VOLR 

IMTEOER  NOXCNA  a INDEX  TOR  NUHBER  OF  CHANNELS  IN  NIVOLN 

INTCOER  NtVOLNIS.t.a.at  / a • RECORDS/ VOLUME  ON  NSS  BIL  TAPE 
C It.  (t.  C3.  (<».  C8. 

e IVOL.AN.  SOOFPl.HCHANI  .1.1.  It 

a NBOO.  NBOO.  0000.  0000.  0000. 


N«BO« 


o o 


0AM  MACKAOC  AMMCNOU  N 
UmiTV  NOUTtNCt 


OMINOf* 

oot 


(VOL. PM.  OOOPPI.VCNANI 

.t.t.ll 

0 

3070. 

3070. 

3000. 

0000. 

0000. 

( VOL . AN . 1 eoorp t . vcnan  t 

.t.t.tl 

0 

0000. 

0000. 

0000. 

0000. 

0000. 

( VOL . PM. 1 eOOPPI . VCNANl 

.t.c.tl 

0 

SOON. 

ssoo. 

0000. 

0000. 

0000. 

(VOL. AH.  ooorpi .SCNANI 

.1 .1 .01 

A 

vooo. 

vooo. 

vooo. 

0000. 

0000. 

(VOL. PH.  OOOPPI .SCNANI 

.0.1.01 

0 

VS70. 

HS70. 

V97S. 

0000. 

0000. 

(VOL. AH. 1 OOOPPI .SCNANI 

.1.0.01 

0 

0000. 

0000. 

0000. 

0000. 

0000. 

( VOL. PN.ieOOPPI .SCNANI 

.0.0.01 

A 

71SS. 

7V00. 

0000. 

0000. 

0000  / 

c 

c 


• * RCCOROS/VOLUHC  ON  RBV  TAPC 


(1 . 

18. 

.1.11 

8060. 

8063. 

.8.11 

8061. 

8061 . 

. 1 .81 

<1189. 

0000. 

.8.81 

9388. 

0000  / 

e 

c 

c 


INTCOCR  NtVOLRCa.e.Si  • 

ivoL.AR.  eooppn 

» 

(VOL, PR.  eoorpii 

» 

IVOL.AR. leoorpt  t 

0 

IVOL.PR.ieOOPPM 

0 


PROCeOURE 

CALL  TRACE 

CALL  OSTOR 

CALL  03H0RIN0ANCLI 

IP  (NOANCL.Or.O)  CALL  03ANCL ( NOANCL I 
CALL  03AN0T 

INITIALI3E  REEL  lOENTIPIER  POR  PIRST  » VOLUMES 

IP  (LU3PI0IPI0CRLI .NE. * ' I LU3REL ( I > •LU3PI 01 P I OCRL > tCURRENT  REEL 
IP  (LU3PIOIPIONRLI .NE. * ’ ) LU3REL IE  I •LU3PI 0( PIONRL i INEXT  REEL 


C 

c 

c initialize  LOU’NIOM  record  * rOR  EACH  tape  VOLUME 
c 

IP  (LU3REPII I .ED. 'AM*  .OR.  LU3REPI I > .EQ. ‘PM* « 00  TO  ISO 
IP  (LU3REP(I I .EQ. ‘AR*  .OR.  LU3REPI 1 1 .EQ. ‘PR’ > 00  TO  300 
CALL  NOPATL  ( ‘0P3MQP  DETECTS  INVALID  RECORD  PORMAT  • ‘, 
S CDSHeS(LU3RCPIII.(tl.3l  * 

00  TO  000 

e 

e 

e MSS  tape 

c 

ISO  ir  (LUSSCQIIt.EQ.’iSQ’l  00  TO  C30 


N-COS 


OAN  MCKAOC  AMCNOIX  N 
WriLirv  ROUTlNCt 


oos 


c 

c 

e INOCX  rOA  nivoln  aarav  - data  scoucncc 
e 

NOXRCr«t  A *AN* 

If  (LusRCrni.CQ. *AN'i  NoxAcr*t  • 'pn* 
e 
e 

C AtSUHC  THAT  fNIt  TAPC.  IP  COPICO.  NAS  tANC  OCNtlTY  At  ONIOINAL 
C 

NOXPPI«t  • too  PPt 

IP  (kUSPIOlPIOPPII. CO. *1000*1  NOXPPI-t  • 1000  PPI 

e 

c 

C NUNOCR  OP  CNANNCLt 

c 

NOXCNA*!  0 H CNANNCLt 

IP  (NCRCNA.CQ.SI  N0XCNA«0  A t CNANNCLt 

C 
C 

C OCrCRNlNC  (OCNSiry  OCPCNOCNTI  LOHCtr  A HlONCSr  ACCORD  ON  CACN  VO..UNe 

c 

I to  CONriNUC 

NrCHR>0 

00  >00  l-I.VSNAX 

IP  (NIVOLNM .NOXRCP.NOXPRI .NOXCNAI .CQ.O)  00  TO  >10 
LUSRLOt 1 1 -NTCNP*! 

NTCHP>Nt VOLN( I .NOXRCP.NOXFPI .NOXCHAI  * NTCNP 
LUSRNI f ll•NTCHP 

>00  CONTINUC 

>10  CONTINUC 

C 

C IP  NIONCtr  VOLUNC  FOR  TNlt  OCNSITY  NAS  NO  RCCOROt  TnCN 

C TNlt  TAPC  NUtr  OC  A 1000  PPI  COPY  INOPCPULLY  RCCL  POR  RCCL I 

C OP  AN  too  PPI  ORtOINAL 

c 

IP  ILUSRLOauSVNI  I.NC.OI  00  TO  »0 

NOXPPIal  a CNANOC  DATA  PORNAT  TO  000  PPI  PRON  1000  PPI 
CALL  NOMARNt 

• *TAPC  It  ItOO  PPI  COPY  OP  too  PPI  ORIOINAL*! 

00  TO  too 

c 

e 

»o  IP  (LumocLusvNi*n.NC.ot  call  nopatli 

• *TaPC  It  000  PPI  COPY  OP  1000  PPI  ORIOINAL ‘I 

00  TO  too 
c 
c 

C OUC  TO  OIPPCRCNCC  IN  tTRUCTURC  OP  *tlL*  ANO  *ltO*  RCCOROt.  AT 
C TNlt  riHC  tUPPORT  POR  ONLY  CNANNCL  I *OtO*  IS  PROVIOCO. 
e CNANNCL  I IS  ALMAYt  ON  ONC  VOLUNC. 

c 

•SO  Lumom«i 

IP  tLUSRCPin.CQ.*AN*l  LUSRNI  ( 1 1 •><*00 
IP  ILUSRCPm.CQ.*PN*l  LUSRNI  n I •>tts 
00  TO  000 


N-000 


u o o o o 


OAN  PACKAOC  AMCNOI 

uriitrv  ROuriNCt 


e 

e 

e RtV  TARC 

c 

iQO  Noxncr*!  ■ *aii* 

tr  (LusRcrnt  .ca.  *RR*i  NoxRcr**  • 

NOXrAI«l  • too  TRI 

ir  iLuiriocrtorRii.co. *1100*1  NoxrRi«c  • tooo  r^i 
e 
c 

e ocrcoNiNC  (oCNOirr  ocACNOCNn  lohcst  a HiOHCtr  occoro  on  cach  voluhc 
e 

Sto  CONTINUC 

NTCNR«0 

00  3*0  l-I.VSNAX 

tr  iNivoLRci .NOxftcr.NoxrNi I .eo.ot  oo  ro  S30 

LU3RL0(ll«NTeHN»l 

NreNR«NtVOLRI I .NOXRCr,NOXrNI I *NTCHP 
LU3RHH  ti>NrenN 

3*0  CONTINUC 

330  CONTINUC 

ir  NIOHCST  VOLUHC  COR  THIt  OCNOITY  HAS  NO  NCCONOt  THCN 
THIS  TANC  NUtT  OC  A 1000  CPI  COPY  (NOPCPULLY  NCCL  PON  NClLt 
or  AN  000  PPI  ONIOINAL 

ir  ILU3RL0aU3VNII  .NC.OI  00  TO  3S0 

NOXPPI-1  a CNANOC  DATA  fORNAT  TO  000  PPI  PRON  1600  PPI 
CALL  NOHARNC 

*TAPC  is  1000  PPI  COPY  OP  too  PPI  ORIOINAL't 

00  TO  310 

c 

c 

360  If  ILU3RL0(LUSVHI I .NC.OI  CALL  NOPATLI 

• *TAPC  If  000  PPI  COPY  OP  1600  PPI  ORIGINAL ‘I 
C 

e 

000  RCTURN 
C 

CNO 


N-tOV 


04N  PACKAOC  AMCNOIX  N 

UmiTY  ROuriNCt 


O^tTA^ 

•at 


•umOUTlNC  O^XTAP  • OKN  INPUT  CRTt  Ntt  TAPC  ON  UNIT  S 


NItTORY 


ICC 

OS/Ot/TS 

RCQUIRCNCNTS 

J c 

CRISP 

LCC 

OS/tO/7S 

alooritnn  ocsion 

J c 

CRISP 

Lce 

0S/C0/7S 

NCTNOO 


•cr  KTRLTY  • * *.  RCAO  PIR«T  PART  OP  NCXT  TAPC  RCCORO  INTO  KTAtLC. 
RCPotirioN  tapc  to  aeoiNNiNO  op  this  rccoro. 

IP  RCCORO  LCNOTH  > ALLOHABLC  RANOC  OP  RIP  PORNAT  10  RCCORO  CALL  OPNOP 
CLSC  CALL  OPSaiP 


NACNINC-OCPCNOCNT  cooc 


NONC 


CxrCRNAL  RCPCRCNCeS 


CRIOH  • INtriATC  I/O  ANO  HAIT  POR  COHPLCTION 

OPSNOP  a OPCN  input  hop  tapc 

OPXtIP  a OPCN  INPUT  CRTS  HSS  TAPC 

crthat  a Tinco  hait 

NOPATL  a PRINT/LOO/COUNT  ’PaTAL  crror*  hcssaocs 

NONOTC  a print/loo/  'PRINT*  HCSSAOCS 


cxecPTioNs 


I.  RCPORC  CALLINO  THIS  SUtROUTiNC  ThC  TAPC  HUST  OC  POSITIONCO  AT  TmC 
10  RCCORO  POR  TaPCS  IN  tlP  PORHAT  ANO  AT  TNC  TaPC  OIRCCTORV  RCCORO 
POR  tapcs  PROH  NASTCR  OATA  PROCCSSOR. 


t.  r»«  POLLOMINO  CONOITIONS  OCNCRATC  THC  OIONOSTICS  SNOHNi 


*COP*  I/O  status 
’■AOP'  I/O  status 
'LOST*  I/O  status 
‘OAOR*  I/O  status 


PATAL  CRROR 
PATAL  CRROR 
NOTC 
NOTC 


OLOOAL  OCCLARATIONS 


N-tSS 


OAN  PACKAM  A^MNOIX  M 

«riLiTT  muriNct 


O^ITA^ 

•tt 


INCil.<OC  KONXOr.Lltr 
INCLUOC  KONlUX.LItr 

iNCLuoc  KonroL.Lisr 

iNCiUPC  KOMIO  .LIST 

INCLIMC  riocr.Litr 


• eONNON  MOONAN  CXCCUTION  tMI rCNCt.COUNrrAI 
A AACKCr/AOlNfCAt  rOR  UNlt  1 

• eomtoN  tLOCKt  ano  ocriM  moccourcs 

A fORTRAR  NANIRULATIOR  Of  AAR  I/O  RACKCTO 

A ocriRCt  orRucTuRC  or  Lusrio  array 


LOCAL  OCCLARAYtORO 


IRYCOCR  RHOORO  A RVHiCR  Of  UOROS  RCAO  fROR  RCCORO 


RROCrOURC 


CALL  YRACC 


CNCCK  YARC  data  TRAROrCR  rORHAT 

iriLuiriO(rioorRt.eo.*oo*.OA.LUirioirioorNi.CQ.‘osT'i  oo  ro  Aoo 
CALL  NOrAYLl  *OAO  YARC  DATA  YRANtRCA  rORRAT  ON  AASO’I 
OO  YO  AOO 


RLAO  RRCVIOUS  CONYCRYA  OR  kYAOLC  At  OCtYROVCO 
COO  KYOLYY  • * 


e RCAO  CO  MOROA  or  rccoro  inyo  kyaolc 
e 

lOAOORtLUIRKYl  • LOCIKYAALCi 
lOAIZCiLUSRKYt  • CO 
lOMAlYtLUIRKY)  • 0 

lOrURCtLUARKYt  • *AK*  A RRAO  rORUARO 
CALL  CRIOUILUSRKYI 
RROARO  • lORUOAILUlRKYl 
C 
e 

C CNCCK  ayayua  or  rcao 
C 

IAYAY  • lOeOOCtLUARKYI 

irt  IIAYAf.CO.*COr*I.OR.(iAYAY.CO.*AAOr*l  ICALL  NOrAYLt 

• COANCAIIAYAY.I.ni.*  UNILC  RCAOINO  riAAY  RCCORO* i 

c 

in  (IAYAY. CO. ‘LOAYM  .OR. (IAYAY. CO. ’OAOR*I  ICALLNONOYC( 

• COA«CA(IAYAY.|.iM.*  HNILC  RCAOIRO  riRAY  RCCORO* I 

c 

c 

C RCROAIYIOR  YARC  YO  iCOlRRlRO  OR  RCCORO 
C 

IOrURC(LU9RKYI  • *AL*  A RCAO  OACKRARO 
CALL  CRrHAY(COOOI  A RCVCRAC  YARCA  OCNYLY 

CALL  CRIOR(LUSRKYt 


R-CAA 


OMI  ^ACKAOC  A^NOtK  N 
utility  ROUTINCt 


OUITAR 

•ts 


ir  RCCORO  It  AT  LCAtT  tO  MOROt  LONO.TARC  It  ROR 
IflRMOtRO.tC.tOI  CALL  ORSNOR 


CLtC.  TARC  It  tlR 

irtNHOtRO.LT.COI  CALL  ORttIR 


too  RCruRN 
c 

CNO 


N*C10 


OAH  l»AeK*M  APMNOtX  N 
tfTitiTY  muriNtt 


OlANCi 

Ml 


WMOVTINC  OlANCtl  t MOCCM  ANCtLLAAV  HtCOtW*  fROH  NOA 
1 NOANCLI  a miMCA  or  ANCUkAAT  MCOROO 


Nttroov 


hart 

TOARKINt 

Lce 

ao/ao/To 

RCOUIRCHCNTt 

HART 

TORAKINO 

LCC 

la/ca/Tt 

alooritnh 

OCtlOA 

HART 

TOARAINt 

LCe 

ii/at/Tt 

alooritnn 

COOINO 

C NCTNOO 


OCriNC  ANCktZ  rAAAUCrCa.  If  KrtLtZ<ANCLtZ  OCMCAArC  tatal  caroa. 
ACruAN.  AAOCCaa  NOANCL  ANCULAAY  ACCOAOS  individually  Into  KTAtLC. 
ir  ACeOAD  INDICAYDA  INDICATCt  ACCDAD  It  AN  ANNOTAriON  ACCDAD 
ACAOttTIDN  TAAC  TO  aCOlNNlNO  Or  ACCDAD  AND  ACTUAN.  1 THC  ANCILLARY 
ACCDAOt  ARC  CUAACNYLY  tYAAftCD  AND  TnC  UtCA  ACCDNALItMCt  OCONCTAIC 
COAACCriDN  TMADUON  Hit  OWN  CONTROL  NCTMOAK.  IN  TNC  funiAC  ThCU 
ACCDAOt  HAY  iC  UtCO  rOA  AUrONATIC  OCOHCTAIC  COARCCTION.I 


NACNINC'OCACNOCNT  COOC 


NONC. 


CXrCANAL  ACrCACNCCt 


itTNOO  a lATCANAL  aYTC  tTAINO  fOA  a«OIT  CXTCANAL  tVTC  tTAiNO 
cathat  a rtnco  wait 

CAIOM  a INiriATC  I/O  and  wait  rOA  COHALCriON 

acroYT  a ocr  mon'MCOativc  intcoca  cnoh  avrc  trAiNo 

cathat  a tinco  ha  it 

NOfATL  a AAINT/LOO/COUNT  ‘fATAL  CAAOA’  NCttAOCt 

INTCOCA  MONNi  a • or  oytco  roa  * or  intcocao 


CXCCATIONt 


1.  ir  ATOLtZ  < ANCLtZ  IttUC  CATAL  CAAOA 


OLOOAL  OCCLAAATI 


INCLUOC  KOAXOT.LIfT 
IMCUIOC  RONTOL.klfT 
INCLIIOC  KOALUI.LIOT 


a eOHNON  AAOOAAN  CXCCUTION  tUlTCMCt.eOUNTCAt 
a eoHNON  oLOCAt  and  ocriNC  raoccouACt 
a rACKCT/roiNTCAt  roa  unit  s 


oono  o o o o n 


OAN  MCKAOC  AMEND  IX  N 
UTILITY  ROUTINES 


OSANCL 

DOS 


INCLUDE  KONIO.LIST  • rORTRAN  HANIRULATION  OF  ASN  I/O  RKTS 

e 

c 

e LOCAL  OECLARATIONS 

c — 

e 

INTEGER  00<»<»/00*»'»/  A NNEHONICS  FOR  OCTAL  00*»H 

INTEOER  NUHR08  A NUHOER  OF  REAOS 

RARANETER  ANCLSE  • S 
C 
C 

C RROCeOURE 
C - 

c 

CALL  TRACE 
C 
C 

C CHECK  BUFFER  SIZE 
C 

IFIKTBLSZ.LT.ANCLSZI  call  N0FATL(  ’KTBLSZ  < ANCLSZ*) 
IFtKTBLSZ.LT.ANCLSZI  00  TO  900 
NUHROS  ■ I 


PROCESS  NUMBER  OF  AVAILABLE  ANCILLARY  RECORDS 

I0A00R(LU3PKTI  > LOCCKTaBLEI 
IOSIZE(LU3PKTI  > ANCLSZ 
10UAIT(LU3PKT)  • 10 

00  HO  NANCL  « l.NOANCL 

tOFUNC(LU3PKT)  > ’OK*  I READ  FORWARD 
CALL  ER:0U(LU3PKT) 

ISTAT  - I0C00EILU3PKTI 

IFC ISTAT.EQ. ‘EOF’ INUNROS  - 3 A READ  PAST  ANNOT.  REC 
IFHSTAT.EQ.  *EOF‘l  00  TO  ISO 

110  continue 


IF  BUFFER  CONTENTS  ARE  IN  BB  FORMAT.  THEN  CONVERT  THEM  TO  BST 

leO  IF  (LU3BFH.EQ. 'BB*i  CALL  BSThBB  (KTABLE.  KTABLE .NBtNl I ANCLSZH 
C 

c 

C CHECK  IF  READ  CONTINUED  INTO  ANNOTATION  RECORD 
C 

00  SOO  I > I.NUNROS 

CALL  OETBYTINUHREC.  KTABLE. 61  A RECORD  TYPE  NUMBER 
IF  (NUNREC.EO.OO*»m  00  TO  900 
I0FUNCCLU3PKTI  • * AL ' A READ  BACKWARD 

CALL  ERTWATceOOOi  A REVERSE  TAPE  OENTLY 

CALL  ERI0H(LU3PKTI 

SOO  continue 
c 
c 

000  RETURN 
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CNO 


OSANCL 

«ax 


OAN  ^ACKAOC  AMCNOtX  N 

ttfuirv  MouriNCt 


OSANOr 

001 


ouooouriNC  osANor  • ocao  AONorArioN  occooo  roon  taocs 


NioroRv 


J C CRISO 
NARY  rONRKINO 
NARY  rONRKtNS 
NARY  rOHRKiNS 


ICC  00/00/70 
LCC  10/07/70 
LCe  11/00/70 
LCNSCO  01/10/00 


RCQUIRCNCNrs 
aloorithn  DCS  I on 
alooritnn  cool  no 

SCRARATC  0SS2AN/..RH/..AR/..PR 


HCTNOO 


oeriNC  VI00S2  ano  anotsz  paranctcrs.  ip  ktolso  < anotsz  ocNtRAre  patal 

CRROR  ANO  RCruRN.  RCaO  ANOfSZ  HOROS  OP  ANNOTATION  RCCORO  INTO  KTaOLC. 
CNCCK  RCCORO  TVPC  TO  VCRIPV  ANNOTATION  RCCORO  - IP  ANCILLARY  RCCORO.  RCAO 
NCXT  RCCORO  CLSC.  IP  NOT  ANNOTATION  RCCORO.  ISSUC  PATAL  NCSSAOC  A RCTuRN. 
IP  LU3BPN  IS  *86*  CALL  eST<*eO.  CALL  CSTHAS  TO  CONVCRT  ANNOTATION  RCCORO 
TO  CHARACTCR  STRINO.  CXTRACT/OCCOOC  CHARACTCR  STRINO  INPORNATION. 

VCRIPY  ANO  CONPARC  INPORNATION  PRON  HCAOCR  ANO  ANNOTATION  RCCOROS. 

CALL  APPROPRIATC  03S2--  ROOTINC  TO  SCT  NCRLIN.  NCRSAN  ANO  INITIALI2C 
INPUT  HINOOM  PACKCTS. 


NACHINC-OCPCNOCNT  COOC 


NONC. 


CXTCRNAL  RCPCRCNCCS 


NOPATL 

CRPRNT 

OCTBYT 

cstnas 

0CT08Y 

crthat 

ocTNve 

NOHARN 

NO VC NR 

OCOOC 

OCTCMR 

NOVCST 

CRIOU 

■STH88 

NONorr 

CRIOU 

03SZAN 

03S2PN 

03SZAR 

03SZPR 


• PRINT/LOO/COUNT  *PATAL  CRROR*  NCSSAOCS 

• PRINT  INAOC  ON  TTY  OR  LINC  PRINTCR  (CHARACTCRI 
a OCT  ONC  NON-NCO  INTCOCR  PRON  8YTC  STRINO 

a CHARACTCR  STRINO  POR  ASCII  ByTC  STRINO 

a OCT  NON-NCO  INTCOCR  PRCN  OOUBLC  BYTC  STRINO  PRON  BYTC  STRINO 
a TINCO  WAIT 

a OCT  NON-NCO  INTCOCR  PRON  NYBLC  IN  BYTC  STRINO 

a print/loo/count  *uarnino*  ncssaocs 

a NOVC  A CHARACTCR  PRON  ONC  STRING  TO  ANOTHCR 
a OCCOOC  NUNCRIC  CHARACTCR  STRINO 
a OCT  CHARACTCR  PRON  CHARACTCR  STRINO 
a NOVC  substring  B to  SUBSTRINO  I 
a INITIATC  I/O  ano  hait  por  conplction 
a INTCRNAL  BYTC  STRINO  POR  B-BIT  CXTCRNAL  BYTC  STRING 
a PRINT/LOO  *NOTC*  NCSSAOCS 
a iNiriATC  I/O  ANO  HAIT  POR  CONPLCTION 

a obtain  sccnc  size  a input  hinoou  i*an*  tapcsi 

a obtain  sccnc  size  a input  hinooh  (*pn*  tapcsi 

a obtain  sccnc  size  a input  hinoou  i’ar*  tapcsi 

• obtain  sccnc  size  a input  hinooh  cpr*  tapcsi 


N>CIR 


OAH  ^ACKAOC  AMCNOIX  N 
UriLITV  ROUriNCS 


OSANOT 

tot 


e 


Ctri»tN  a CMAMACrCR  tTRtNO  rOR  IMTCOCR 

OOURLC  RRCeitlON  Ctt«C$  A VARIARLC  LCNOTH  CHAR  STRINO  TOR  riXCD  tCNOrH  CH 


INTCOeR  NUNC 
INTCOCR  NCHNt 
INTCOCR  LCNRCQ 
INTCOCR  NRHNI 
RCAL  OCO 


• • or  INTCOCRS  rOR  • CHARACTCRS 

0 • or  CHARS  roR  • or  intcocrs 
0 location  or  char  in  strino  > scarch  char 
0 • or  OTTCs  roR  • or  intcocrs 

0 OCORCCS  rOR  OCO.HIN.SCC 


c 

c 


c 

c 

CXCCPTIONS 

c 

c 

I.  THC  rOLLOUINO  CONOITIONS 

OCNCRATC  TNC  OIAONOST 

e 

CONFLCT  IN  SCCNC  NUNOCR 

UARNINO 

c 

OATA  CRROR  IN  ANOT  RCC 

FATAL  CRROR 

c 

INVALIO  CRTS  NUNOCR 

FATAL  CRROR 

c 

TAPC  NOT  AT  ANCILLARY  OR 

c 

annotation  RCCORO 

/‘ATAL  CRROR 

c 

KTBLSZ  < ANOTSZ 

Fatal  crror 

c 

*COF*  I/O  STATUS 

fatal  crror 

c 

*BAOF*  I/O  status 

FATAL  CRROR 

c 

'LOST*  I/O  status 

NOTC 

c 

c 

’BAOR’  I/O  status 

NOTC 

c 

C OLOBAL  OeCLARATlONS 

C - 

C 


iNCLuoe  KonxQT.Lisr 
INCLUOe  KOHLU3.LIST 
INCLUOC  KOHNCR.LlSr 
INCLuoe  KonroL.Ltsr 
INCLUOe  KOHIO  .LIST 
INCLUOe  NAXINT.LIST 
INCLUOC  MINOer.LIST 
INCLuoe  KONIMH.LISr 


a CONNON  PROORAH  CXCCUTION  SHITCHCS.  COUNTCRS 

a PACxer/poiNTCRS  for  units 
a CRTS  SCCNC  PARANCTCRS 
a CONNON  NULTl'PURPOSe  TABLC 

a FORTRAN  ALLONINC  USC  OF  ASSCNBLCR  I/O  PACKCTS 
a NAX  INTCOCR  containco  in  NACNINC 
a OCFINC  STRUCTURC  OF  WlNOON  PACKCT 
a CONNON  INPUT  HINOOU  PACKCTS 


c 

c 

C LOCAL  OeCLARATIONS 

c 

c 

INTCOCR  NOSAVC 
LOOICAL  OAO 
INTCOCR  IRCCNT 
INTCOCR  ISTaT 
INTCOCR  0333/0333/ 
INTCOCR  NTCRTSI3I 
INTCOCR  NRCCTY 
INTCOCR  LATO 
INTCOCR  lath 
INTCOCR  LONO 
INTCOCR  LONN 
INTCOCR  NLATO 
INTCOCR  NLATN 
INTCOCR  NLONO 
INTCOCR  NLONN 


a rCNP  TO  STORC  * of  PRCVIOUS  OlAONOSnc 
a TRUe  IF  CONTCNTS  OF  SONC  VARIAOLC  ARC  INVALIO 

a COUNT  or  rccoros  rcao 
a I/O  RCAO  status 

a NNCNONIC  FOR  0CTAL333  lANNOT  RCC  TVPI 
a rCNP.  FOR  CRTS  SCCNC  lOCNTIFICATION 
a RCCORO  typc 

a SCCNC  CCNTCR  LATITUOC  OCORCCS 
a SCCNC  CCNTCR  LATITUOC  NINUTCS 
a SCCNC  CCNTCR  LONOITUOC  OCORCCS 
a SCCNC  CCNTCR  LONOITUOC  HlNUTCS 
a NAOIR  LATITUOC  OCORCCS 
a NAOIR  LATITUOC  NINUTCS 
a NAOIR  LONOITUOC  OCORCCS 
a NAOIR  LONOITUOC  NINUTCS 


NoCIS 


o u u u 


0AM  MACKAOC  AMKNOtX  N 
UriUTY  ROUrtNCS 


03AM0T 

003 


tNTCOCR  nOOC  0 DATA  NOOC  *l*«UNeAR.  *C*«COMRIieSSCO 

INTCOCR  lOAIN  0 OAIN  OOnOMi  *N*  • HION.  *L*  - LOU 

tNTCOCR  LOCOCO  0 LOCATION  IN  INAOCO  Of  NCROCO 

tNTCOCR  iNAOCOie  WOAO*  . ’LCC*  . ’R8'  . *80N'  . ’UTN*  . 'NON*/ 
tNTCOCR  INOCO/'LPSUN*/  0 OOOOARO  INAOC  OCONCTRY 
RARANCTCR  ANOTSZ  • 100 


RROCCOURC 


CALL  TRACC 
C 

LU3C0R  • 0 

LU3N0R  >8  > ALLOWAOLC  • OP  *OAOR'  OCPOftC  'BAOR' >'BAOP* 

NOSAve  • NoroTL 


CHECK  BUrrCR  SIZE 

IPtKTBLSZ.LT. ANOrsZI  CALL  NOPATL ( 'KTABLSZ  < ANOTSZ’ 1 
IP(KTBLSZ.LT.ANOTSZ)  00  TO  900 

c 

c 

C READ  UP  TO  3 RECORDS  UNTIL  KTABLE  BUPPER 
C CONTAINS  annotation  RECORD 

c 

00  180  IRECNT  « 1.3 

I0A00RILU3PKTI  • LOCIKTABLEI 
I0SIZEILU3PKTI  ■ ANOTSZ 
10HAITILU3PKTI  • 10 

IOPUNC(LU3PKTt  ■ '(K*  • READ  PORHARO 

CALL  CRI0U(LU3PKTI 
ISTAT  • 10C00C(LU3PKTI 

IPI  I ISTAT.EQ. *EOP* I .OR. ( ISTAT.EQ. *BA0P* > ICALL  NDPATLI 

• CBSHCSI ISTAT. 1 .HI . ’ WHILE  REAOINO  ANNOTATION  RECORD' I 
IPI  CISTAT.EQ. ‘BAOR'I. OR. (ISTAT. EQ. 'LOST'l  I CALL  NONOTEI 

• CBSHCSI ISTAT. I .HI . ' while  REAOINO  ANNOTATION  RECORD' I 
IPILU3BPH.E0. ‘BB* I CALL  BSThbBI KTABLE . 

• KTABLE.NBHNI I AN0T8ZI I 1 IP  BB.  TRANSPORH  TO  BST 
CALL  OETBrTiNRECTV.  KTABLE. SI  0 OBTAIN  RECORD  TYPE 
IPINRECTV.EO. 03331  00  TO  ISO  0 ANNOTATION  REC  POUND 

CALL  NONOTEI  'RECORD  NOT  AN  ANNOTATION  RECORD  --  lONOREO'l 
180  continue 

CALL  NDPATLI  'ANNOTATION  RECORD  NOT  POUND 'I 
00  TO  BOO 

e 

c 

e CONVERT  annotation  RECORD  TO  CHARACTER  STRINO  PROH  ASCII 

c 

ISO  CALL  CSTHABIKTABLC.  KTABLC.NBHNI (ANOTSZI I 

c 

c 

C extract  character  INPORNATION  PROH  annotation  record 


t 

i 

i 
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03ANOT 

OON 


CALL  OCOOCfNCNOAV.NCAL.KOOrYN.  xrABLC.Y.tl  A OAT  CXNOSUNC 
irCKOOrYN.NC.'IN*)  NCROAY  • B9 
trtNCROAY.LY.t.ON.NCNOAY.OT.SDCALL  NOMARNf 

• *DAO  EXPOSURE  DAY  PRON  ANNOYATION  RECORD* I 

e 

CALL  NOVCSrtNCRNON.I.S.  KYABLE.S.S.*  *1  • NONTN 

c 

CALL  DCODE (NERYR. REAL. ROD YYP.  KrARLC.IC.S)  A YEAR 

IPtKODYVR.NE. *IM‘iCALL  NOHARNI 

• 'DAO  EXPOSURE  YEAR  PROH  ANNOTATION  RECORO*) 

C 

CALL  OCOOEILATO.REAL.KOOTYP.  KTAiLE.IS.ai  A SCENE  CENTER  LAT.OEO 
IPtKOOTVP.NE. *IN*ICALL  NOPATLI 

• *iAO  SCENE  CENTER  OEO  LAT  TRON  ANNOTATION  RECORD*! 

C 

CALL  OCOOEILATN.REAL.KOOTVP.  KTAiLE.ai.8l  A SCENE  CENTER  LAT-NIN 
irCKOOTVP.NE. *IN*!CALL  NOHARNt 

• *BAO  SCENE  CENTER  NIN  LAT  PRON  ANNOTATION  RECORD  ••  30  ASSUNEO*! 
IPtKOOTVP.NE. * IN* ILATH  • 30 

C 

CALL  OCOOECLONO.REAL.KOOTYP.  KTABLE.aS.3l  A SCENE  CENTER  LON-OEO 
IPIKOOTVP.NE. 'IN’ICALL  HOPATLI 

• ‘BAO  SCENE  CENTER  OEO  LON  PRON  ANNOTATION  RECORD*! 

C 

CALL  OCOOEILONN.REAL.KOOTVP.  KTABLE.aS.8!  A SCENE  CENTER  LON-NIN 
IPCKOOTVP.NE. * IN* !CALL  NOUARNt 

• *0A0  SCENE  CENTER  NIN  LON  PRON  ANNOTATION  RECORO  --  30  ASSUNEO*! 
IPCKOOTVP.NE. * IN* !LONN  « 30 

C 

CALL  OCOOEf NERSEL .REAL .KOOTVP.  KTABLE . 7H .8!  A SUN  ELEVATION 
IPC  CNERSEL.LT.O! .OR. (NERSEL.Or.90!  IKOOTVP  > *ERR* 

IPCKOOTVP.NE. * IN* !CALL  NOHARNC 

• *SA0  SUN  ELEVATION  PRON  ANNOTATION  RECORD*! 

C 

CALL  OCOOECNERSAZ. REAL. KOOTVP.  KTABLE.7S.3!  A SUN  AZINUTH 

IPC  (NERSAZ.LT.-360! .OR. (NERSAZ.or.360!  IKOOTVP  « *ERR* 
IPCKOOTVP.NE. * IN* ICALL  NOUARNC 

• *SAO  SUN  AZIHUTN  PRON  ANNOTATION  RECORD*! 

C 

c 

NHVOEO  • -9909 
NLATO  - -9999 
NLATN  • 0 
NLONO  > -9990 
NLONN  • 0 

CALL  NONOTEC  *1979  NOP  PORNAT  — NO  NAOIR*! 

C 

IPCLU3SEOCI ! .EQ. *BIL* ! 00  TO  8S0 

CALL  OETCNRCNOOE.  KTaBLE.98!  AOATA  NODE 

IPC  (NOOE.NE. * I * ! .ANO. (NOOE.NE. *8* ! (CALL  NOUARNC 

• *BAO  data  NODE  PRON  ANNOTATION  RECORD*! 

C 

CALL  OETCNRC lOAlN.  KTABLE.91!  A OAIN  OPTION 

IP(  IIOAIN.NE.*N*!.ANO.(IOAIN.NE.*L*!  ! CALL  NOUARNC 

• *BAO  OAIN  OPTION  PRON  ANNOTATION  RECORD*! 


OAN  MCKAOC  APWNOIX  N 
uriLirv  KouriNCS 


OSANOr 

008 


DO  too  I • I.NCMNA 

CALL  COr«IN(NeROAN(ll.t.NC*»Nim.  1*8.1  I 
NCIIOAim  > lOAiN 

Ncornotn  • nooc 

030  eoNriNuc 

e 

too  CALL  oercNRiioco.  KrAOLC.oii  A MOJCcrioN  oconerRY 
e 

LOCOCO  • LCNRCQdHOeO.I.S.IOtOt  * I 
NCROCO  • iNAOeOCLOCOeOI 

c 

CALL  OCOOCINrCRTStn .RCAL.KOOrYR.  KYABLe . t 09. t > • CRTS  RROJCCT  NO. 
iP(KOorYP.Ne.*iN‘iNreRrs(t>  - haxint 
c 

CALL  OCOOCCNTCRTSCSI .RCAL.XOOTYP.  KT A8LC . I t 0 . •» > • OAYS/LAUNCH 
IPtKOOTYP. NC. * IN* tMTCRrSfOt  - NAXINT 
C 

CALL  OCOOecNTCRTSOi  .RCAL.KOOrYP.  KTABLC  MS.SI  A GHf 
inXOOrYP.NC.  * IN' INTCRTSIS)  > NAXINY 
C 

CALL  OCrCHRtNCRCOR.  xrAOLC.OO)  I TYPC  CORRCCTION  APPLICO 
C 

CALL  OerCHRCNeRRCS.  KTABLe.OO)  a RCSANPLINO  ALOORIYHM 

c 

c 

e CONVCRY  TO  oeoRces  pron  ocorccs  a ninutcs 

c 

CYRLAT  • OeOtLATO. LATH, 0.0) 

CYRLON  > OeO(LONO.LONH.O.O) 

OIRLAT  • OeO(NLATO.NLArN.O.O) 

OIRLON  • OCO(NLONO.NLONN.O.O) 

c 

c 

c VCRIPY  BEST  VALUE  OP  PROJECT  NO..OAY.TINE  RELATIVE  TO  LAUNCH: 

C 

C — PROJECT  NUNBER 
C 

300  lOUT  • NAXINT 

BAO  • ( (NTERTSn t .LT. 1 1 .OR. (NTERTSI II .OT.BI  I 
IP(BAO)  CALL  NOUARNI 

• 'BAO  ERTS  NUNBER  PRON  NOP  ANNOTATION*) 

IP( .NOT.BAO) lOUT  > NTERrsit) 

BAO  - I (NERTSM  I .LT.  I I .OR.  (NERTSI I I .OT.BI  ) 

IPIBAOt  CALL  NOUARNI 

• *BA0  ERTS  NUMBER  PRON  NOP  HEADER*) 

IPI.NOT.BAO)  lOUT  > NERTSMI 

nertsiii  • lour 
c 
c 

C — OAY  RELATIVE  TO  LAUNCH  AT  OBSERVATION 
C 

lOUT  - HAXINT 

BAO  • I INTERTSICI.LT.II.OR.INTERTSIO.OT.BBBBI  I 
IPCBAO*  CALL  NOUARNI 

• *BAO  OAYS  SINCE  LAUNCH  PRON  NOP  ANNOTATION* t 

ipi.Nor.BAO>  lour  • ntertsiei 


N-Ell 
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OtANOr 

0«t 


■AO  • ( (NCftrtiti.Lr.n.oR.cNCiirsfti.or.999«i  t 
trtOAOl  CALL  NOHAONC 

• '■AO  0AY9  9INCC  LAUNCH  TNON  HON  HCAOCH’) 
iri.Nor.oAOl  tour  • NCnroiei 

NCRrotti  • tour 
c 
c 

C --  H0UR.NtNUTC.rCN9  OC  SCC0N09  RCLATIVC  TO  ORCCRVATtON 

c 

tour  • NAXtNT 

■AO  • ( (NTCRroO*  .LT.OI  .OR.  CNTCRrOfSi  .Or.9%0001  I 
trCOAOt  CALL  NOUARNt 

> *0A0  ONT  rRON  HOP  ANNOrATtON'l 

tPt.Nor.oAOi  tour  • Nrcprstsi 

•AO  • ( (NCRrSCSt.Lr.Ot.OR.fNCRrsCSi.OT.CHOOOl  I 
tP(OAOI  CALL  HOHARNI 

- 'OAO  onr  PROH  hop  hcaocr'i 
tPc.Nor.OAOi  tour  • NCRrstsi 

NCRTSISl  > tour 

C 

00  310  I • 1.3 

trCNCRTSC  I ) .CQ.NAXlNnCALL  HOPATLI 

• 'tNVALIO  CRTS  SCCNC  I OCNT IP  I CAT t ON ' > 
trtNCRrsui  .co.NAXiNri  oo  ro  38o 

3t0  CONTINUC 


OUHP  BUPPCR  IP  TRACE  IS  ON  OR  OIAONOSTIC  COUNT  IS  CHANOCO 

380  IPI  (HTRaCC.CQ.OI .ANO. (NOSAVe.CQ.NOTOrLI  I 00  ro  383 

KrAOLCm  > * 777777  * I NASK  OUT  NON-CHAR  RCC  ».  PILL.  RCC  TyPC 
00  388  LOHCHR  - I.ANOTSZ.>*e 
LONINT  > NIHNCILOUCHRI 

CALL  CRPRNril  .NI*»NCM»9I  . KrAeLClLOUlNTn 

388  CONTINUC 
C 

c 

c oercRNiNC  * op  rcc  ro  ae  rcao  ro  position  ocporc  inaoc  rcc 
c 

383  NUHROS  • 8 

IPI  ILU3RCPI 1 1 .NC. *AH* I . ANO. (LU3RCPI 1 1 .NC. *AR* I I NUHROS  - I 
C 
C 

C RCAO  PAST  COP 
C 

00  389  NRCAOS  • I. NUHROS 

I0A00RILU3PKTI  « LOCIKTAOLCl 

IOSIZClLU3PKri  • 30 

t0NAiriLU3PKn  • 10 

IOPUNCILU3PKri  - *0K*  • RCAO  PORHARO 

CALL  CRI0N(LU3PI(ri 

389  CONTINUC 

e 

in lOCOOCILUSPKTl .NC. *COP*>  CALL  HOPATLI 
• * COP  Nor  POUNO  ocruecN  anot  a inaoc  rccoros'i 
c 


N-819 


OAN  AACKAQC  AmNOIX  N 

uriLirv  RouriNCf 
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0 

C CALL  ARMOMUrr  ROUT  INC  rOR  OeCNC  OiZC  AND  INRUr  Ml  NOON 

c 

irauxRcrcii  .CO. ’ARM  call  oxozar 
irausRcrni  .CO.  *AH‘i  call  osszan 
iriLUXRCrCII  .CO. ’M*)  call  oxozrn 
trauxRcrm  .CO.  *RR*)  call  ozszrr 
c 

000  RCruRN 

c 

CNO 


N'CCO 
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•UMOUriNC  OBNORt  • RCAO  NCAOCR  RCCORO  fRON  HOR  TaRCS 
0 NOANCkl  A NUNICR  OR  ANCILLARY  RCCORDt 


NItrORT 


J C 1 

CRISR 

Lce 

B7/07/YB 

RCQUIRCHCNTS 

NARY 

rONRKiNB 

Lce 

I0/BB/7B 

alooritnn  ocsion 

NARY 

TONRKINS 

LCC 

II/8/7B 

aloorithn  COOINO 

NCTNOO 


OCriNC  NORSZ  RARANCrCR.  tCT  NOANCL  TO  0.  IF  KTOLSZtNDRSZ  OCSCRATC 
fatal  CRROR  and  RCrURN.  RCAO  HORSZ  HOROS  OF  HCAOCR  RCCORO 
INTO  KTaOLC.  if  OYTC  FORHAT  is  ’BO*  CALL  BST4BB. 

CHCCK  BYTC  6 TO  VCRIFY  HCAOCR  RCCORO  --  IF  NOT  HCaOCR 

RCCORO.  issue  fatal  CRROR.  CXTRACT  BINARY  INFORHATION  ANO  SCT  • 

OF  ANCILLARY  RCCOROS.  CALL  CST<*AS  TO  CONVCRT  HCAOCR  RCCORO  TO 

CNARACTCR  strino.  cxtrac t /occooc  charactcr  strino  information 
tCTi  LU3SCQ.  LUSUIR.  LU3BIB. 


hachinc-ocrcnocnt  cooc 


NONC. 


CXrCRNAL  RCFCRCNCCS 

CRRRNT  a RRINT  INAOC  ON  TTY  OR  LINC  RRINTCR  ICHARACTCRI 

nofatl  a RRINT/LOO/COUNT  ‘fatal  CRR0R*NCSSA0CS 

nonotc  a RRINT/LOO  ‘NOTC*  ncssaocs 

•STNRB  a INTCRNAL  BYTC  STRINO  FOR  B-BIT  CXTCRNAL  BYTC  STRINO 

OCrCNR  a OCT  CNARACTCR  from  CNARACTCR  strino 

NOVCNR  a NOVC  ONC  CHAR. FRON  ONC  CHAR. STRINO  TO  ANOTHCR 

CSTNAS  a CNARACrCR  ST:  I NO  FOR  ASCII  BYTC  STRINO 

OCTBYT  a OCT  NON’NCOATIVC  INTCOCR  FRON  BYTC  IN  BYTC  STRINO 

CRiou  a iNirurc  i/o  ano  uait  for  conrlction 

ocooc  a occooc  nuhcric  charactcr  strino 

NONOTC  a RRINT/LOO  ‘NOTC  NCSSAOCS 

OOUBLC  RRCCISION  CSS«CS  a VARlABLC  LCNOTH  CHAR  STRINO  FOR  FI/CO  LCNOTM 
INTCOCR  NBNNI  a • OF  BYTCS  FOR  * OR  INTCOCRS 

INTCOCR  NCNNI  a • or  ChAR  for  • OF  INTCOCRS 


CxeCRTIONS 


I.  BCFORC  this  SUBROUTINC  IS  CALLCO  TNC  TARC  MUST  BC  ROSITIONCO  AT 
BCOINNINO,OF  TNC  NCAOCR  RCCORO. 


N-BBI 


DAN  MCKAOC  APPCNOU  N 
UrtLITV  ROUTINCt 


OINM 

eot 


t.  TNC  rOLLOHlNO  CONOITIONt  OCNCRATC  TNC  OlAONOtTICC  tNOMNi 


INVALID  CNCOOCO  CRTS  NUHDCR 

*COf*  I/O  DTArut 

*DAor*  t/0  iTArut 

*LOtr*  I/O  DTArUR 

*OAOR*  I/O  tTArut 

RTOLtZ  < NOROZ 

RceoRO  rm  not  hcaocr 


Norc  CRROR 

rATAL  CRROR 
NOrC  CRROR 

rATAL  CRROR 
fATAL  CRROR 


OLOOAL  OCCLARATIONt 


INCLUOC  KOHXOr.Litr 
iNCLuoc  KonrtL.Lisr 
INCLUOC  KONNCR.LlSr 
INCLUOC  KONIO  .LIIT 
INCLUOC  KONLUZ.LIST 
INCLUOC  HAXlNT.LISr 


• COHNON  RROORAN  CXCCUTION  SUITCHCS.  COUNTCRS 

a COHNON  nult I •ruRNOse  taslc 

a CRTS  SCCNC  RARANCTCRS 

a rORTRAN  HANIRULATION  OF  ASH  I/O  RKTS. 

a rackct/pointcrs  for  unit  3 
a nax  intcocr  containco  in  nacminc 


LOCAL  OCCLARATIONt 


INTCOCR  ooea/ooas/  a rccoro  tyrc  for  hcaocr  rccoro 

INTCOCR  laOAVL  a OANOS  AVAILABLC  181 TS  for  BANOS  / ! / /H/S/S/7/B/ 

INTCOCR  NRCCTY  a RFCORO  TyRC 

INTCOCR  INLCVC  a I TRC  OF  OATC  INTCRLCAVINO  ’BSO*  OR  ‘BIL‘ 

INTCOCR  N08AVC  a TCHR  TO  STORC  • OF  RRCVIOUS  OlAONOSTICS 

RARAHCTCR  NORSZ  • BOB 
C 
C 

C RROCCOURC 

C 

c 

CALL  TNACC 
C 

KTOLTy  • • • a FLAO  RRCVIOUt  CONTCNTf  OF  KTARLC  At  OCtTROYCO 
NOANCL  • 0 
C 
C 

C CNCCK  TO  tcc  IF  KTABLC  It  LAROC  CNOUON 

c 

IFIKTOLtZ.LT.NORtZt  CALL  NOFATL I *KTBLtZ  < HORST  * « 

IFIKTOLtZ.LT.HORtZI  00  TO  BOO 
C 

c 

e RCAO  NOR  HCAOCR  RCCORO  INTO  KTAOLC 

c 

lOAOORILUSRKTl  • LOCtKTAOLCi 

lOtlZCaUlRKTI  • HORtZ 

I0MAITILU3RKTI  > 10 

lOFUNCILUSRKTI  • *0K*  a RCAO  FORUARO 

CALL  CRIONILUSRKTt 
ItTAT  • lOCOOCILUSRKTI 


N-CtC 


OAftn  noon  nnnn 


0*11  OACRAOC  AOOCNOIX  N 

OriLITT  KOUriNCO 


Iff  (iiVAr.co.*cor*i.oii.(itr*r.cQ.*iAor*i  icall  HorArtc 

• eto%ctiitTAr.i.«i.*  MMUC  RCAOiNO  Noo  NCAOffo  occooa*i 

e 

in  ittTAr.ffo.*OAOiiM.oR.fttrAr.ta.*iotr*i  i call  nonotcc 

• CM«>et(itr*r,t.«»t.*  mnii.c  rcaoino  noo  mcaoco  meoiio*i 

e 

e 

e ir  NCAOCR  It  IN  rORNAf.  TNCN  CONVCNT  II  TO  ttf 

e 

inLuiorN.co.  *ti*i  call  ttr«»tt(KrAtLC.  Rr*itc.Nt«NiiNORMit 

e 

CALL  OCttvriNNCerv.  KtAtLC.tl  • OtfAIN  NCCORO  rvNC  coot 
iriHNCCTY.NC.OOttl  CALL  NOrATLI’  NCCOIIO  tYNC  OrHCN  THAN  NCAOCR' 
inNRCCYY.NC.OOftl  00  TO  000 


OCrCRNINC  NUNtCR  Of  ANCILLARY  RCCOROS 
CALL  OCrOtYINOANCL,  KTARLC.IOSI 


OCrCRNiNC  INTCRLCAVINO  TYRC  INOICATOR 

LUlOCOm  • 'OIL' 

LUItCQIti  • *0* 

CALL  OCrOYrciNLCVC.  KTARLC.ttOI 
irtlNLCVC.CQ.OILUSSCQl II  - *000' 

iriLUSOCQin.CO.  *OIL‘l  call  OCrOYTIItOAVL.  KrAOLC.OflOOi  < OINARY 


CONVCRT  AOCII  TO  CNARACTCR  iNrORNATION 

CALL  COTitAOiKTAOLC.  AYARLC.NRHNI  INOROZI I 

c 

e 

e CXYRACr  CNARACrCR  iNrORHAflON 

e 

CALL  OCrCNRINCRAON.  KTAOLC.IOI  • *A*  OR  *0* 

CALL  NOVCOriNCRRAT.t ,S.  KTAOLC .01 . 0. * ‘I  I NONINAL  RAYN 

CALL  NOVCOriNCRROH. I .1.  KYAOLC.C*.!. * *1  • NONINAL  RON 

c 

CALL  OCOOCINCRTOm  .RCAL.KOOTYR.  KrARLC.O.II  • LANOOAY  NtOSION  • 
. iriKOOTYR.NC.'lN'INCRrOm  • NAXINY 

c 

CALL  OCOOCINCRYOItl .RCAL.KOOYYR.  KYaOLC.O.YI  I OAYt/LAUNCN 
IflKOOYVR.NC.'lN'INCRYOICI  • NAXlNY 

c 

CALL  OCOOCINCRYOISI.RCAL.KOOYYR.  KYARLC.II.SI  0 ONY 
iriKOOYYR.NC.'IN'INCRYCdi  • NAXlNY 

» C 

NCRCNA  • 0 

inNCRYtn*  .NC.ll  NCRCNA  • •» 
e 
c 

e OCrCRNiNC  oano  cnaracycrics  rOR  oil  onlyii 

e 


omoR 

tot 


N*MI 


OAN  ^ACKAM  AmNOU  N 
ttmiTT  ROUriNCt 


irauitcom.NC.*tu*ioe  rp  too 

DO  MA  I • t.I.-l 

iriNOOdtOAVl.tl.NC.OtCAU  CSrAlUfllCMANf  lt.l.NC«»Nlf  It. 
IMAVl  • INAVL  / t 

CAiL  ACreMIfNtflAAmi . KrAnC.t«M*ll  a aain 
CALL  ACrCNttCNCnrilOni.  KrAtkC.IAAI*lt  a rAAHAIIt«AIQN  noec 
AAA  eeiiriNuc 

c 

AAA  Lumte  • KrtLAS 

LUItIt  • NAANI(KrM.tAI 

e 

e 

e MINT  ACC  ir  TAACr  It  ON  ON  OlAONOATie  COUNf  lA  CNANOCO 

e 

in  iNrNACC.co.oi .ANO. iNSAAvc.CQ.Nororu  i 00  ro  ooo 
c 

00  AAA  LOHCNN  • I.N0NAZ.<*A 
lOMlNT  • NiNNCaOUCNAi 

CALL  CAARNrM.NlHNCUA).  KrAOkCtLOMlNr I I 
ASA  CONtlNUC 

e 

e 

AAA  AC TORN 

e 

CNO 


N-tCN 


•»N  ^ACRAtC  APRCNOU  N 
VriLITT  NOUriNCt 


ntSMi 

••I 


tUtMUriNC  OlUAN  • OtVAIN  fCCNC  tllC  ANO  INMT  RlNOOM  rOR  NOR  AN  TARCt 
NitTONY 


MANY  YONRNlNt  LCC  tl/0t/Yt  ONI  COOC  IN  OlANOY 

NAA;  rORRRINt  LCNtCO  Ot/Si/M  OCRANAYC  INYO  OStZAN 


NCTNOO 


OCriM  VIOOtZ  RARANCrCN.  If  KtILtZ  < VIOOtZ  OCNCNATC  rAlAL  CRNON 
AhO  NCrUNN.  NCAO  VIOOtZ  MOROt  INtO  KYANLC.  CNCCK  RCCORO  TyRC  TO 
vcAirr  tnat  rccono  it  ihaoc.  ir  not  continuc  to  ncao  til  rccono 
It  AN  ihaoc  on  lUlCtN  •>  LUintN.  If  lUlCIN  >>  lUXHtN  OCNCNATC 
RATAL  CANON  ANO  NCTUNN.  CtTAtLItN  RIXCL  COUNT.  tCT  NCNtAH.  NCNLIN 
ANO  INITIALIZC  INRUT  MINOOM  RACKCT.  NCROtITION  TARC  TO  INTCN-NCCONO 
OAR  tCrONC  ItT  IHAOC  NCCONO. 


HACNINC'OCRCNOCNT  COOC 


NONC. 


CXTCNNAL  NCrCNCNCCt 


horatl  « rnint/loo/count  ’Ratal  cnnon*  HCttAOCt 

CNRNNT  0 rnint  ihaoc  on  tty  on  linc  rnintcn  ICHANACTCNI 

OCTiVT  A OCT  ONC  NON«NCO  INTCOCN  RNOH  OVTC  tTNiNO 

CNIOU  0 INITIATC  I/O  ANO  WAIT  RON  COHRLCTION 

MTUOt  0 INTCNNAL  07TC  tTNINO  RON  t«OIT  CXTCNNAL  OVTR  tTNINO 

CNTNAT  0 TIHCO  NAIT 

HONOTC  0 RNINT/LOO  *N0TC*  HCttAOCt 

OOUOLC  RNCeitlON  CttNCt  a VANIAOLC  LCNQTM  chan  tTNiHO  RON  RIXCO  LCNOTN 
INTCOCN  NINNC  a • OR  INTCOCNt  RON  * CNANACTCNt 


CXeCRTIONt 


I.  TNC  ROLLOHIHO  eONOITIONt  OCNCNATC  TNC  OlAONOtTICt  CNOWNt 


MNtAN 

ouTtioc  valid  NANOC 

RATAL 

CNNON 

KTKtZ 

< VIOOtZ 

RATAL 

CNNON 

•COR’ 

I/O  tTATUt 

RATAL 

CNNON 

••AOR* 

I/O  tTATUt 

RATAL 

CNNON 

•LOtf 

I/O  tTATUt 

NOTC 

•■AON* 

I/O  tTATUt 

NOTC 

OiOtAL  OCClANATIONt 


N»tCt 


O w u <#  w u u 


DAN  MCKAOC  AmNOIX  N 
UTILITY  XeUTtNCS 


OSSXAN 

QOC 


INCLUOC  KOHXOT.LIST 
INCLUOC  KOHLUS.LtSr 
INCLUOC  KOHNCR.LIST 
INCLUOC  KOHTBL.LtfT 
INCLUOC  KONIO  .LIST 
INCLUOC  UINOCP.LIST 
INCLUOC  KOHIHU.LISr 


A CONHON  raOORAN  CXCCUTION  SUITCHCS.  COUNTCNS 
a RACKCT/POINTCNO  PON  UNITS 
a CRTS  SCCNC  RARANCrCRS 
a CONHON  HULTI-PURPOSe  TA8LC 

a PORTRAN  ALLOUINO  use  op  ASSCHOLCR  I/O  PACKCrs 
a OCPtNC  STRUCruRC  OP  Ml  NOON  PACKCT 
a CONHON  INPUT  Ml  NOON  PACKCTS 


LOCAL  OCCLARATIONS 


INTCOCR  NOSAVC 
INTCOCR  03SS/03SS/ 
INTCOCR  NRCCTY 
INTCOCR  IXLCNT 
INTCOCR  IXLThP 
PARAHCTCR  VtOOSZ  • 


a TCHP  TO  STORC  • OP  PRCVlOUS  01  AGNOSTICS 
a HNCNONIC  POR  0CTAL3S5  (IHAOC  RCC  TYPI 
a RCCORO  TYPC 
a PIXCL  COUNT 

a TCHP.  USCO  TO  CONPUTC  IXLCNT 
882 


PROCCOURC 


LU3CBR 


RCAO  VIOOSZ  MOROS  OF  IHAOC  RCCOROS  INTO  KTA8LC 


IPIKTOLSZ.LT. VIOOSZt 
IP(KT8LSZ.LT. VIOOSZI 
NOSAVC  - nototl 


CALL  HOPATLI 
00  TO  800 


’IN  03SZAH  KT8LSZ  < VIOOSZ’ I 


330  IOAOOR(LU3PKn 
IOSIZC(LU3PKTt 
I0MAIT(LU3PKT! 
I0PUNC(LU3PKTI 


L0CCKTA8LCI 

VIOOSZ 

0 

’SK’  a RCAO 


PORMARO 


CALL  CRI0MILU3PKT) 

ISTAT  • IOCOOC(LU3PKTI 

IPf  I ISTAT. CO. ’COF’ I .OR. ( I ST AT. CO. ’8A0F' 
» C8S<»C8IISTAT.t.<»)  . ’ MHILC  RCAOINO  HOP 


I ICALL  HOPATLI 
IHAOC  RCCORO’ t 


IPI  (ISTaT.CO. ’BAOR' 
> CSSHCSIISTAT.I.HI . < 


I. OR. I ISTAT. CO. ’LOST’ I I CALL  NONOTCI 
MHILC  RCAOINO  HOP  IHAOC  RCCORO* I 


IF  IHAOC  IS  IN  88  PORHAT.  THCN  CONVCRT  IT  TO  8ST 

IP(lUS8PN.CQ. ’88*1  CALL  8ST<»88f KTA8LC . KTA8LC.N8HNI I VIOOSZI! 

CALL  OCTOTTINRCCTY.  KTA8LC.8I  0 RCCORO  TyPC  COOC 
IPINRCCTV.NC.03SSILU3C8R  • LU3C8R  * I 

IPI  INRCCTY.NC.03SSI.AN0. (LU3C8R.lt. LU3H8RI  I 00  TO  330 
IPINRCCTV.NC.03SSI  CALL  HOPATLI 


N-fce 


o n o n 


OAN  PACKAOC  A^WNOtX  N 

urutrv  RouriNCt 


• 'RCCORO  NOr  TNC  CXRCCTCO  INAOC  RCCORO’I 
trtNRCCrV.NC. 01981  00  TO  900 

e 

e 

e C0TA9USH  NCRLIN.NCRSAH.lNRUr  UtNOOU.SCCNC  CCNTCR 

e 

CALL  ocrorrc IXLCNT.  xrAiLC.SOOOt  • rixcl  cnt/scan  linc 
IXLTNR  • tXLCNr«t*«e 
CALL  OCrOVrdXLCNT.KTAOLC. 39001 
IXLCNT  • IXLCNT  * IXLTNR 
C 

NCRLIN  • <<*00 

NCROAH  - IXLCNT  ♦ 0 • RIXCL  OrrSCT  OCT.  OANOS 

irtNCRSAN. LT. 3000. Oft. NCRSAH. OT. 3900>  CALL  HOrATL* 

• ’INVALID  RIXCL  CNT/SCAN  LiNC  PftON  IHAOC  ftCCORO’i 

c 

HSAlHHCUSAH.UNtNi  > I 
NSAlUMiMSAN.UHAXI  • NCRSAN 
C 

HSAlUUtHLlN.UNlN)  > t 
HSAIHUCML IN.MNAX)  * NCRLIN 

c 

CTRL  IN  > 0.9* (NCRLIN  » II 
CTRSAH  • 0.9* (NCRSAN  * II 
C 

c 

C RRINT  RCC  IF  TRACC  IS  ON  OR  OIAONOSTIC  COUNT  IS  CHANOCO 
C 

IF(  (NTRACC.CQ.O) .ANO. (NOSAVC.CQ.NOTOTLI  I 00  TO  000 
C 

00  700  LOMCHR  • I.H0.H8 
LOMINT  - NIVNCILOMCHRI 

CALL  CRRRNTd.NIVNCiNO).  KTAOLClLOHlNTII 
700  CONTINUC 


RCROSiriON  TARC  TO  INTCR-RCCORO  OAR  OCFORC  1ST  INAOC  RCCORO 

OOO  00  010  I • I.LU3C8R 

I0A00R(LU3RKTI  • LOCIKTAOLCI 

I0SIZCILU3RKTI  • 30 

IOUAlT(LU3RKTt  • 0 

IOruNC(LU3RKTl  • * OL ’ 0 RCAO  OACKUARO 

CALL  CRTUATCCOOOl  0 RCVCRSC  OCNTLY 
CALL  CRI0U(LU3RKT) 

010  CONTINUC 
C 

000  RCTURN 

c 

CNO 


089ZAN 

008 


N-CC7 


oooooouoooouuouououoououuoouuoooououuu 


OAN  ^ACKAOC  APACI 
urtLtrv  RourtNCt 


tx  N 


•nZAR 

oot 


SUtttOUTINC  OStZAR  • ORfAIN  SCCNC  tlZC  ANO  INPUT  UINOOU  PON  NOP  AN  TAPCS 


NttrONV 


NARY  TOHPKINS  LCC  tt/00/79  ORI  COOC  IN  03AN0T 

NARY  rONPKINS  LCHSCO  OI/RWRO  SCPARATC  INTO  038ZAR 


NCTHOD 


SET  NCRSAN  ANO  NCRLIN  TO  OOOOARO  NONIHAL  VALUES.  INITIALIZE 
input  MINOOU  PACKETS. 


HACHINE-OEPENOENT  code 


NONE. 


EXTERNAL  REPERENCES 


NONE. 

EXCEPTIONS 

NONE. 

OLOOAL  declarations 

include 

INCLUDE 

INCLUDE 

INCLUDE 

KONXOT.I 

KONNCR.I 

WINOCP.I 

KONIWW.I 

LOCAL  OECLARATIONS 

a CONHON  PROORAN  EXECUTION  SMITChES.  COUNTCRS 

a CRTS  SCCNC  parahctcrs 

a OCPINC  STRUCTURE  OF  WINDOW  PACKET 

a CONHON  input  window  packets  . 


NONE. 


SET  NUNOER  OP  LINCS/SAHPLCS. SCENE  CENTER  FOR  PULL  SCENE 


N'tti 


4*  O O O O O 


0AM  OACKAOC  AOKNOIX  N 
UTILITY  NOUTINCS 


03SZAII 

OOt 


NCMLIN  • YItS 

NCRtAN  • SS79 

CTIU.IN  • O.S«(NCRLIN  * t) 

CTItSAn  • O.S«(NCfttAH  * It 


SCT  INMUT  UINOOU  MACKCT 

HtAtHHiUSAH.HHINI  • t 
n«AIUM(U8AH.UMAXI  • NCRSAH 
HSAIUUIULIN.HHINI  > I 
HSAlUHtMLIN.HMAXI  • NCMLIN 


900  RCruMN 


uuouuouuuuouuuuuuuuwuuuo 


ENOIX  N 


ttriLirv  RouriNCS 


OStZPH 

001 


tuoROuriNC  03SZPN  0 oaTAiN  secNC  size  AND  I Naur  uiNOON  Foa  Noa  an  rAaes 


HISrORY 


NARY  rONaKINS  LCC  tl/OO/YR  ORI  COOC  IN  OZANOT 

NARY  rOHaKINS  LCNSCO  Ot/81/OO  SCaARATC  INTO  OSSZaN 


HCrMOO 


oeriNC  vioosz  PARAHcreR.  ip  ktrlsz  < vioosz  ocNCRAre  patal  error 

AND  RETURN.  READ  VIOOSZ  WORDS  INTO  KTA8LE.  CHECK  RECORD  TYPE  TO 
VERIPy  that  record  is  IMAOE.  ip  not  CONTINUE  TO  READ  TIL  RECORD 
IS  AN  IHAOE  OR  LU3CBR  •>  LU3H6R.  IP  LU3C8R  ■>  LU3H8R  OENERATE 

patal  error  ano  return,  establish  pill  count,  set  nersah.  nerlin 

AND  INITIALIZE  INPUT  UINOOU  PACKET.  REPOSITION  TAPE  TO  INTER-RECORO 
GAP  BEFORE  1ST  IHAOE  RECORD. 


HACHINE-OEPENOENT  code 


NONE. 


EXTERNAL  REFERENCES 


HOPATL  a PRINT/LOO/COUNT  ’FATAL  ERROR’  HESSAOES 

ERPRNT  a PRINT  IHAOE  ON  TTY  OR  LINE  PRINTER  C CHARACTER) 

ERtOH  a INITIATE  I/O  ANO  WAIT  FOR  COHPLETION 

BST*»B8  a INTERNAL  BYTE  STRING  FOR  B-BIT  EXTERNAL  BYTE  STRING 

GETBYT  a GET  ONE  NON*NEO  INTEGER  PRON  BYTE  STRING 

OETNYB  a GET  NGN-NEG  INTEGER  PROH  NYBLE  IN  BYTE  STRING 

ERTWAT  a TIHEO  WAIT 

NONGTE  a PRINT/LOO  ’NGTE’  NESSAGES 

DOUBLE  PRECISION  C6SHCS  a VAR\lEN0TH  CHAR  STRING  PGR  FIXED  LENGTH  CHAR 
INTEGER  NI**NC  a • GP  INTEGERS  FOR  • CHARACTERS 
C \ 

c \ 

C EXCEPTIONS 
C 

c 

C 1.  THE  FOLLOWING  CONDITIONS  OENERAVE  THE  OIAONQSTICS  SHOWN: 


NERSAH 

OUTSIDE  VALID  range 

fatal 

ERROR 

KTBLSZT VIOOSZ 

FAT^L 

ERROR 

•EOF’ 

I/O  status 

fatal 

ERROR 

•iAOF’ 

I/O  status 

FATAL 

ERROR 

•LOST’ 

I/O  status 

NOTE 

•RAOR’ 

I/O  status 

NOTE 

e 

c 


RofZD 


UUP  uuuuu 


OAN  MCKAOC  AMCNOIX  N 
UriLITY  ROUrtNCS 


OXSZRN 

•Off 


OLOtAL  OCCLARAnONt 


INCI.UOC  KORXOr.LISr 
INCLUOC  KONLUS.LISr 
INCLUOC  KOHNCR.LISr 
INCLUOC  KONTRL.LISr 
INCLUOC  KOHIO  .LIST 
INCLUOC  uiNOcr.Lisr 
INCLUOC  KONIHH.LISr 


A CONHON  RROORAN  CXCCUTION  SHITCHCS.  COUNYCRS 
• RACKCr/ROiNrCRS  FOR  UNITS 
A CRTS  SCCNC  RARANCTCRS 
A CONNON  NULTI-PURPOSC  TA9LC 

A FORTRAN  ALLOHINO  USC  OF  ASSCNALCR  I/O  PACKCTS 
A OCFINC  8TRUCTURC  OF  UINOOU  PACKCT 
A CONHON  INPUT  HI NOON  PACKCTS 


LOCAL  oeCLARATIONS 


INTCOCR  NOSAVt 
INTCOCR  03SS/0399/ 
INTCOCR  NRCCTY 
INTCOCR  NLFTFL 
INTCOCR  NRHTFL 
INTCOCR  NTNPFL 
INTCOCR  NlNFCr 
INTCOCR  NONSAH 
PARANCTCR  VIOOSZ  • 

C 

c 

C PROCCOURC 

C 

c 

C 


A TCHP  TO  8T0RC  • OF  PRCVtOUS  OlAONOSTlCS 
• NNCNONIC  FOR  0CTAL35S  MNAOC  RCC  TYPI 
A RCCORO  TYPC 
A LCFT  FILL  COUNT 
A RIOHT  FILL  COUNT 

A rCHP.  TO  CONPurC  RIOHT  AND  LCFT  FILL  CNTS. 
A NIN  PIXCL  FILL  COUNT 
A OOOOARO'S  NOMINAL  NUHBCR  OF  SAHPLCS 
898 


LU3CBR  • 0 
C 
C 

C RCAO  VIOOSZ  UOROS  OF 
C 


INAOC  RCCOROS  INTO  KTaBLC 


IFCKTBLSZ.LT.VIOOSZI  CALL  NOFATLI  *IN  03SZPH  KTBLSZ  < VIOOSZ* I 
IFIKTBLSZ.lt. VIOOSZI  00  TO  900 
NOSAVC  • NOTOTL 


C 


330  I0A00R<LU3PKT)  ■ LOCIKTABLCI 
I0SIZCILU3PKTI  • VIOOSZ 
lOUAlTlL.USPKTI  • 0 

I0FUNC(LU3PKTI  • *AK*  A RCAO  FORHARO 
CALL  CRIOHILUSPKTi 
ISTAT  • I0C00CILU3PKTI 

IF(  IISTAT.CQ. 'COF'I.OR.IISTAT.CQ. *BAOF*l  ICALL  NOFATLI 

• CBS*»C8IISTAT.I.<»I.*  HHILC  RCAOINO  NOP  IHAOC  RCCORO*! 

e 

IF(  (ISTAT. CO. *BAOR*l. OR. (ISTAT. CO. 'LOST*!  I CALL  NONOTC( 

• CSSNCS(ISTAT.I.i»I.*  HHILC  RCAOINO  NOP  IHAOC  RCCORO*! 

c 

c 

C IF  IHAOC  IS  IN  SB  fornat.  tmcn  convcrt  it  to  bst 

c 

tFILUSBFH.CO.'BB*!  CALL  BSTHBBI KTABLC.  KTABLC. NBNNI ( VIOOSZI ! 

c 


N'CSI 


UU  UUUV  U U W o o o u u 


0*11  MCKAOC  AMCNOIX  N 

uruirr  moumncs 


CALL  OCriYTCNMCCrY.  KTAOLC.ei  • RCCORO  YYRC  COOC 
iriNRCCTY.NC.OSSOtLUSCOR  • LU3C0R  » I 
irc  tNRCCrY.Ne.QSSSI.ANO.tLUSCRR.Lr.LUSNORi  I 00  TO  330 
tr(NRCeTY.NC.03SS>  CALL  NOfATLI 
• 'RCCORO  NOT  YNC  CXRCCrCO  INAOC  RCCORO* > 
triNRCCTY.NC.OSSSi  00  TO  000 

c 

c 

c CSTAOkISM  LCrr  A RIOHT  fUL  COUNTS  ON  *RH*  TARCS 

c 

c — Lcrr  ruL  count 
c 

CAU  ocTorrtNLrrri..  KTAOLC.ioi 

CALL  OCTNVBCNTHPFL . KTAOLC.tt.tl 

NLCTFL  • NLCTrL'C**'*  ♦ NTHPFL 

--  RIOHT  PILL  COUNT 

CALL  OeTNYOCNRHTrL . KrABLC.It.Oi 
CALL  OCTBVTCNTHPPL . KTABLC.tOt 
HRMTCL  • NRHTrL«e**0  ♦ NTNPFL 


cstablish  ncrlin.ncrsah. input  uinoou.sccnc  ccntcr 

NCRLIN  ■ 0003 
NOnSAH  • 3S<*8 

NINPCT  • MAXOCnlNOfNLPrPL .NRHTFL ) -o.ot  A NIN  PiXCL  FILL  COUNT 
NSAIUUCUSAM.UnlNI  * HtNFCT  » I 

NSAIHMCHSAN.MNAXI  - NOHSAN  - HINFCT 

NSAIHUIHL IN.MNIN)  • 1 

HSAlHMfULIN.NNAXI  • NCRLIN 

NCRSAH*  NSAIUHCHSAN.HNAXI  > NSA I HU ( HSAN . UNI Nl  * I 
tPCNCRSAH.LT.CSSQ.OR.NCRSAN.OT.NONSAN)  CALL  NOFATLt 
- *8A0  SANPLC  NUNBCR  COHPUTCO  FROH  INAOC  RCCORO’) 

CTRLIN  • O.S«(NCRLIN  ♦ I) 

CTRSAN  > O.S«(NCRSAN  * 1 1 NlNFCT 


PRINT  RCC  IF  TRACC  IS  ON  OR  OlAONOSTIC  COUNT  IS  CHANOCO 

IPI  tNTRACC.CQ.O) .AND. (NOSAVC.CO.NOTOTLi  ) 00  TO  000 
C 

00  ^00  LOUCHR  « I .OO  *»B 
LOHINT  • NIHNCTLOHCHRI 

CALL  CRPRNT(I.NI<»NC(NO>.  KTABLCILOMINTU 
700  CONTI NUC 

c 

c 

C RCPOStTtON  TAPC  TO  INTCR-RCCORO  OAP  BCFORC  1ST  INAOC  RCCORO 

c 

iOO  00  010  I • I.LU3CBR 

tOAOOR(LU3PKTi  • LOCIKTABLCI 


0SS2PN 

003 


N«C3C 


PAN  PACKAOC  APPCNOtX  N 
UriLITY  ROUriNCS 


oxtzmi 

001 


tOtlZetLUSRKTI  • S6 
lOHAiriLUZRKrt  • 0 

tOrUNCtLUSRKTI  • *«L*  • NCAO  PACKHARO 

CALL  CRTMArCtOPO)  • RCVCRSC  OCNTLY 
CALL  CRtouauxRKn 
PtO  CONTtNUC 

e 


900  RCruRN 


OAN  MCKAOC  APWNOIX  N 

UrtLITY  ROUriNCt 


03MRR 

001 


sumounNC  oxozrr  o ostain  occnc  size  and  inrut  minoom  ron  hor  rr  tarco 


NioroRY 


HARY  rONRKINt  LCC  11/00/70  ORIOtNAL  COOC  IN  OZANOT 

NARY  rOHRKINS  LCHSCO  Ot/OI/RO  SCRARATC  INYO  03SZM 


NCTHOO 


OCriM  VIOOSZ  PARANCTCR.  IF  KTBLSZ  < VI008Z  OCNeRATC  FATAL  CRROR 
ANO  RCruRN.  RCAO  VIOOSZ  MOROS  INTO  KTaSLC.  CHECK  RCCORO  TYPC  TO 
VERIFY  that  RECORO  IS  IHAOE.  IF  NOT  CONTINUE  TO  REAO  TIL  RECORO 
IS  AN  IHAOE  OR  LU3CBR  •>  LU3NBR.  IF  LU3CBR  ■>  LU3NBR  OENERATE 
fatal  error  ANO  RETURN.  ESTABLISH  FILL  COUNT,  SET  NERSAH.  NERLIN 
ANO  initialize  input  HINOOH  PACKET.  REPOSITION  TAPE  TO  INTER-RECORO 
OAP  BEFORE  1ST  IHAOE  RECORO. 


HACHINE'OEPENOENT  CODE 


C 


NONE. 


external  references 


HOFATL  A PRINT/LOO/COUNT  'FATAL  ERROR*  NESSAOES 

CRPRNT  • print  IHAOE  ON  TTY  OR  LINE  PRINTER  ICHARACIER) 

ERIOH  • initiate  I/O  ANO  MAIT  FOR  COHPLETION 

BSTNBO  a INTERNAL  BYTE  STRINO  FOR  8-BIT  EXTERNAL  BYTE  STRINO 

OETBYT  a OET  ONE  NON-NEO  INTEOER  FROH  BYTE  STRINO 

OETOBY  a OET  NON-NEO  INTEOER  FROH  OOUBLE-BYTE  IN  BYTE  STRINO 

ERTNAT  a TINEO  WAIT 

HONOTE  a PRINT/LOO  'NOTE*  NESSAOES 

DOUBLE  PRECISION  C8SNCS  S VAR  LENOTH  CHAR  STRINO  FOR  FIXEO  LENOTH  CHAR 

INTEOER  NiHNC  a * or  Integers  for  * characters 


EXCEPTIONS 


I.  the  FOLLOHINO  CONOITIONS  OENERATE  THE  OlAONOSTICS  SHOMNt 


NERSAH 

FATAL 

ERROR 

KTBLSZC VIOOSZ 

fatal 

CRROR 

•EOF* 

I/O  status 

fatal 

ERROR 

•BAOF* 

1/0  STATUS 

fatal 

CRROR 

•LOST* 

1/0  STATUS 

NOTE 

■BAOR* 

1/0  status 

NOTE 

N-tS« 


oooou  uuuuuu  uuuu 


( 

\ 


OAN  ^ACKAM  APMNOIX  N 
UriLITY  ROUriNCS 


omM 

•M 


« 


e OLORAL  OCCLARAriONt 

c — 

c 

INCLUOC  KONXOr.Litr 
tNCLUOC  KONLUS.UfT 
tNCLWOC  KOHNCR.LItr 
INCLUOC  KonroL.Litr 
INCLUOC  KONIO  .LIST 
INCLUOC  NINOCr.Lltr 
INCLUOC  KONiHU.Litr 


• CONNON  NNOONAN  CXCCUYION  CHlTCNCt.  COUNTCNt 
a CONNON  NACKCr/NOINTCNt  CON  UNIT  I 

• CONNON  CNTC  tCCNC  NANANCTCNS 
a CONNON  NULri-NUNNOtC  lAOLC 

a rONTNAN  ALLOMINO  U«C  Of  ASSCNOLCN  I/O  NACKCTS 
a ocriNC  stNucruNC  or  mi  noon  nackct 
a CONNON  iNNur  Ml  noon  nackcts 


LOCAL  OCCLARATIONt 


INTCOCN  N08AVC 
INTCOCN  0399/0308/ 
INTCOCN  NNCCTY 
INTCOCN  NLrTCL 
INTCOCN  NNHTFL 
INTCOCN  NINrCT 
INTCOCN  N0N8AH 
NANANCTCR  VIOOSZ  • 


a TCNN  TO  8T0RC  • Or  NNCVIOUS  0U0N09TIC9 
a NNCNONIC  rON  0CTAL399  (INAOC  NCC  TYPt 
a NceoNo  typc 

a LCPT  FILL  COUNT 
a RIOHT  FILL  COUNT 
a NIN  PIXCL  FILL  COUNT 
a OOOOARO'8  NOMINAL  NUNBCN  OF  SAHPLCS 
09C 


PROCCOUNC 


LU3C0N  • 0 


* 


RCAO  VI009Z  HOROS  OF  INAOC  RCC0R09  INTO  KTAOLC 

IFIKTOLOZ.LT.VIOOSZI  call  NOFATLf  *IN  039ZPN  KT0L9Z  < VI009ZM 
iriKTOLOZ.LT. VI009ZI  00  TO  900 
N09AVC  • NOTOTL 

c 

330  I0A00N(LU3PKTI  • LOCIKTAOLCI 
I09IZCILU3PKTI  • VI009Z 
I0HAIT(LU3PKTI  • 0 

I0FUNCCLU3PKTI  • 'aX*  a NCAO  FORHANO 
CALL  CNI0WILU3PKTI 
I9TAT  • IOCOOC<LU3PKTI 

in  M9TAT.CQ.  *COF* ) .ON.  M9TAT.CQ.  *OAOFM  tCALL  HOFATLI 

• C09*»C9<  I9TAT.  I ,*»l . • HNILC  NCAOINO  NOP  INAOC  RCCORO‘1 

c 

in  (ISTAT.CO.‘iAON*I.OR.(l9TAT.CQ.*L09T*l  I CALL  NONOTCI 

• CiOPCtllSTAT.I.NI. * HNILC  NCAOINO  NOP  INAOC  RCCONO'I 

c 

c 

C If  INAOC  19  IN  ii  fonnat.  tncn  convcnt  it  to  not 

c 

inLU3NFN.C0. ‘90*>  CALL  IOTPOOIKTAOLC.  KTANLC.NOHNI  ( VI009ZI  > 

c 

CALL  OCTtrTINNCCTT.  KTANLC.OI  0 RCCONO  TyPC  COOC 


N-C39 


MN  ^ACRAOC  ARMNOIX  N 
UTILITY  NQUriNCt 


iromccTT.NC.oxBsiLuieiii  • luscir  ♦ i 

in  tNMCTr.NC.OlBSt.ANO.tLUICM.Lr.LUXHMI  I 00  TO  XXO 
irnmccTT.NC.oxssi  call  nofATLi 

• *RCC0II0  NOT  TNC  CXNCCTCO  INAOC  RCCONOM 
irCNIICCTT.NC.OXOSI  00  TO  000 

e 

e 

e COTABLIfH  RIONT  LCTT  riLL  COUNTO  TON  *M*  TAOCt 

e 

c 

CALL  OCTOOTfNtrrrL.  KTAOLC.OI  • LCfT  TILL  CNT. 

e 

CALL  OCTOOYINRHrrL.  KTAOLC.IIt  • RIONT  TIL  CNT. 

C 

c 

e cstaolish  valucs  tor  ncrlin.ncrsan.sccnc  ccntcr 

e 

NCRLIN  « 9189 
ROnSAH  • B3«» 

c 

c 

RiNfCT  • NAxo(NiNO(NLrrrL.NRNrrLi-e.oi  a nin  rixcl  rikL  count 

NOAIHHTUtAN.UHINI  • NiNfCT  * t 

HSAIUUCUSAN.HNAXI  • NONSAN  • NINrCT 

e 

HtAIUUfHLIN.HNINI  > I 

NSAiHUtHL IN.UNAXI  • NCRLIN 

C 

NCRSAN*  NSAlUHtUtAN.HNAXI  - HSA I HM ( USAH. HNI N I * t 
iriNCRSAN.Lr.SOOO.OR.NCRSAN.Or.NOnSAMl  CALL  NOrATLt 

• 'OAO  OAHRLC  NUNBCR  COHRUTCO  CRON  INAOC  RCCORO‘1 

c 

CTRLIN  • 0.8«INCRLIN  « II 

CTRSAN  > O.S«(NCRSAH  • II  * NINCCT 

e 

e 

e PRINT  RCC  ir  TRACC  It  ON  OR  OlAONOtTIC  COUNT  It  CHANOCO 
C 

IPI  tNTRACC.CQ.OI .AND. (NOtAVC.CO.NOTOTLI  I 00  TO  000 

e 

00  TOO  LOUCNR  • I.HO.itO 
LOHINT  • NiHNCtLONCHRI 

CALL  CRRRNTl|.NI*»NCf«*il.  KTAOLCtLONINT  1 1 
700  CONTINUC 

e 

c 

e RCPOtITION  TAPC  TO  INTCR’RCCORO  OAR  OCPORC  ItT  INAOC  RCCORO 

c 

•00  00  010  I • I.LUieOR 

lOAOORfLUSRKTI  • LOCfXTAOLCI 

lOtIZCfLUSRKTI  • to 

lOHAITILUSRKTI  • 0 

lOfUNCtLUSRRTt  • ‘IL*  0 RCAO  OACKUARO 

CALL  CRTHATICOOOI  • NCVCRtC  OCNTLT 
CALL  CRIOHfLUSRKTI 
•10  CONTINUC 


OltZRN 

001 


N*010 


OMI  MCKAOC  A^NOIX  N 

wruirY  nouriNCt 


OStXMl 


e 

tot  ocrimii 
e 

CNO 


N>tX7 


OAN  MCRAM  ARRCNOIX  N 
UflLITT  ROtiriNCt 


OtTOII 

•tt 


WMOunNC  oiroN  • rcao  tarc  otRceronv  tceoiio  rROH  no#  rA#ct 


NitroiiY 


CNAALCO  NCLNRC 

LCC 

OO/tO/YO 

ACOUtACNCNTS 

j e 

CAISA 

LCS 

Ot/tt/Yt 

alooaithn  ocsion 

j e 

CAISA 

LCC 

00/tN/Yt 

alooaitnn  cool  no 

nctnoo 


ocriNC  roN«z  narahctcr.  ir  KroL*z<roRtz  ocncaatc  tatal  crroa  ano  nctuan. 
INirtALtZC  Li'3VOk  ro  I ANO  kUSVHI.  ACAO  TOAtZ  HOAOt  Of  TAAC  OiACCTOAV 
ACeoAO  INTO  ktaolc.  ir  Lusirn  • ‘oo*  caul  chcck  rytc  a ro  vCAirv 

fAAC  OIACCTOAY.  IT  I/O  CAAOAf  t«tUC  OlAONOSTIC.  CLtC  If  NOT  TaAC 
OlACCrOAV.IIOUC  rATAC  CAAOA  ano  ACruAN.  CXTAACr/OCCOOC  VOLUnC  NUNiCA 
ANO  NUNtCA  or  VOLUNCi.  If  VOLUNC  <>  t ISSUC  fATAL  CAAOA. 


NACNiNC-ocrcNoCNr  eooc 


NONC 


CxrCANAL  ACrCACNCCS 


CAAANT  • AAINT  IHAOC  ON  TTY  OA  LINC  AAtNTlA  iCNANACTCAl 

CATUAT  a TINCO  MAir 

CAIOM  a iNiriATC  I/O  ANO  HAtT  CON  CONALCTION 

OttAOO  a INTCANAL  OYTC  CfAlNO  fOA  l-OtT  CXTCANAL  IYTC  STAINO 

NOfATL  a AAINT/LOO/COUNT  •fATAL  CAAOA*  NCfffAOCt 

ocroYT  a ocr  nononcoativc  intcoca  caon  oytc  in  iytc  otaino 

etrAAt  a cnaaactca  staino  roA  Ateii  oytc  crAiNO 

NOVCMA  a NOVC  CNAAACTCA  fAOH  OnC  CNAAACTCA  STAINO  TO  ANOTmCA 

Novesr  a novc  susstaino  taon  onc  cnaaactca  staino  ro  anotnca 

ocooc  a occooc  nuncaic  cnaaactca  staino 

NONorc  a aaint/loo  *notc*  ncssaocs 

OOUOLC  AACCtSION  cosvcs  a vaaiaslc  lcnotn  cnaa  staino  roA  rtxco  lcnotn 
INTCOCA  NiNNC  a « or  iNTceCAS  roA  • or  cnaas 


t 


I. 


TNC  rOLLOMlNO  CONDITIONS  OCNCAATC  TNC  OIAONOSTICS  SHOWN 


•cor* 

I/O  STATUS 

fATAL 

CAAOA 

•OAor* 

I/O  status 

fATAL 

CAAOA 

•LOST* 

I/O  STATUS 

NOTC 

•OAOA* 

I/O  status 

NOTC 

ACCOAO 

TVAC  <>  OIACCTOAV 

fATAL 

CAAOA 

N-CSO 


w o u «* 


OAH  PACKAM  APWNOtX  It 

uriiirv  xminutt 


OITM 

•M 


VOLUNC  MUNtCfl  <>  I TATAL  CMIOfl 

xmtx  < roKtx  rATAt  cmoii 

NI0N  VOL  NUfWCR  tNVALIO  rATAL  CMIOII 


OLOOAL  OCCL«iAAl  lONt 


iNCLuoc  ROHxor.Litr 
INCLUeC  KONrtL.LlOr 
INCLUOC  KONIO  .LItr 
INCLUOC  KOHNCX.Lltr 
INCLUOC  KONLUX.LItr 


• CONNON  OXOOOAN  CXCCUTION  ONI rCNCO.COUNrCXO 

• CONNON  NULTIoRUNNOCC  TaOLC 

• reoroAN  naninulation  or  aon  i/o  NACxcrt 

• CONNON  core  cecM  nanahctcnc 

a CONNON  NACKCr  NOINTCNS  TON  UNIT  X 


LOCAL  OCCLANATIONO 


iNTcoCN  oott/eaii/ 

intcoca  iott 

INTCeCN  NOOAVC 
NANANCTCN  rONfZ  • oo 


a tanc  oiNCcroNv  eooc  in  octal 
a tanc  oincctony  cooc 

a rCNN  TO  STONC  • or  MCVIOUS  OIaONOSTICS 


NNOCCOUNC 


CALL  TNACC 


C initial  ICC  ANO  CHCCK  TANC  OtNCCTONY  OUfrCN 

c 

triroNtz.or.KroLozi  call  NorATLi  *roNtz  > ktolsz  in  oiroR*i 
iriroNoz.or.NYOLiO  oo  to  ooo 

NOOAVC  - NOTOTL 

c 

c 

C NCAO  tanc  oincctony  into  ktaolc 

c 

lOAOONILUSNKTI  • LOCCKTAOLCt 
lOfIZCILUINKTI  • TONtZ 
lOHAITfLUSNKTl  *10 

loruNCiLusNKTi  • *aK*  a ncao  roRMAXo 

CALL  CNTUATitOOOt 
CALL  CNI0M«LU1RKTI 
lOTAT  • lOCOOCtLUSNKTt 

in  f|fTAT.CO.*COr*I.ON.(ltTAT.CQ.*OASr*l  ICALL  NOTATLI 

• COOVCtflOTAT.t.V).*  UHILC  RCAOINO  OINCCTONY  RCCONOM 

c 

in  llfTAT.CO<*LOOTM.ON.MSTAr.CO.*iAOR*»  ICALL  NONOTCl 

• COOVCfl  I STAY  V !.•».*  UHILC  NCAOINO  OINCCTONY  RCCONO‘1 


CNCCK  ir  OATA  10  IN  INTCNNAL  fORNAT 

iraUXOrN.C0.*0O*i  call  OOTMOI ktaolc.  KTAOLC.NOVNItrONOZn 


N-eXO 


o o o o 


OAN  PACKAOe  AMCNOIX  N 

umirr  routincs 


osroR 

oos 


e 

e 

e vcRirr  tak  oircctory 
c 

CALL  oertYMiavr  .xrAaLC.st 

irMBYr.NC.ooin  call  NorAYLc  *rtRsr  rccoro  noy  tarc  oircctory*) 


c 

c 

C CONVCRY  ALPHANUHCRIC  INPORRATION  TO  CHARACTCR  STRINO  PROH  ASCII  OYTC  STRINO 

c 

CALL  CSriASIXTAOLC.  KTAOLC  .NOitNI  f TORSZ)  > 


CXTRACT/OCCOOC  iNrORNATION 

CALL  OCOOC(LU3VHI .RCAL .KOOTYP.  KTABLC.CO.II  a TOTAL  VOLS 
IPILUSVHl  .LT.l .OR.LU3VHI .0T.V3NAXI  KOOTYP  « ’CRR' 
iriKOOTYP.NC. ‘IN' t CALL  HOPATLl 
• ‘INVALID  TAPC  VOLUMC  UPPCR  LIHIT  IN  TAPC  0 1 REC TORY : ‘ * *. 

A CBSHCSIKTABLE. (201  . ( n i I 
NCCT  • I 
NCCTOT  • I 

c 

CALL  OCOOC(LU3VOL. REAL. KOOTYP.  KTABLE.IS.U 

iriLusvoL .NE. n kootyp  • *err‘ 

ir(KOOTYP,NE. ‘IN‘l  CALL  M0PATL( 

> ‘BAO  tape  volume  number  in  tape  directory  on  PIRST  REEL:*.‘  *. 
A CBSVCSIKTABLE. ( 19) . ( n I ) 
c 

CALL  HOVCHR(LU3REP(  n . I . KTABLE.IU  a ‘P‘  OR  ‘A’ 

CALL  M0VCST(LU3REP( 1 1 .2.9.  KTABLE.9.1.*  *)  a ‘M*  OR  ‘R‘ 

c 

LU3RCP(2I  • *0'  a HOP  197B 
C 
C 

C OUHP  BUPPER  IP  trace  IS  ON  OR  OIAONOSTIC  COUNT  IS  CHANOEO 
C 

IP!  (NTRACC. CO. 01 .ANO. (NOSAVE. EQ.NOTOTL)  ) 00  TO  800 
CALL  CRPRNT( : . I . ’•TOR* ‘ I 
00  700  LOUCHR  • t.TORSZ.HB 
LOUINT  > NI4NC( LOUCHR) 

CALL  CRPRNT(  t .NI<*NC(>»8)  . KTaSLE(LOUINT  ) ) 

700  continue 
c 
c 

C RCAO  OVER  COP 

c 

800  lor JNC(LU3PKT)  - ‘IK*  a rcao  porharo 

CALL  ERI0H(LU3PKT) 

ISTAT  • I0C00C(LU3PKT) 

IPIISTaT.NE. *C0P* ) CALL  MOPATL( 

• ‘CXPCCrCO  COP  APTER  tape  OIRCCTORY  NOT  POUNO’) 

c 

800  RCruRN 

c 

CNO 


N'BRO 


uoooouoooooooooooooooooooouooooooooooooooooooooooo 


OAN  PACKAOC  AMCNntX  N 

ufuirv  NourtNCs 


»iriioL 

001 


tuioouriNC  PI  root ( 
t CmAr.CTRLON.  • 
t OtOLAr.OIRLON.  0 
t NHYOCO.  • 

t ALTICN.  a 

0 piroco.ROLOcoi  a 


a esriHATc  pi  ton  and  roll 
scene  CeNTER  (OCORCeSt 
SeCNC  NAOIR  (OeORCeSt 
NCADINO  NINUt  YAH  (OCORCCSl 
ALTITUOe  IKILOHCrRCSI 
PITCH  a ROLL  (OeORCeSi 


HISTORY 


e M SCHLOSSCR 
C H SCHLOSSCR 


LCC  OS/03/73  ORIGINAL  COOC 

LCHSCO  08/27/00  PITCH/ROLL  UNOCriNCO  IP  ASSVAL  > 9 


NCTHOO 


TRANSrORH  CCNTCR  A NADIR  LAT/LONO  TO  TRANSVCRSC  HCRCATOR  CAST/NORTH. 
CSTIHATC  pitch  t ROLL. 

CRTS  CONVCNTIONS  POR  ATTtruOC  AND  HCAOIHO  ARC  AS  POLLOHS; 

POSIT  I VC  PITCH  IS  NOSe  OOHN 

POSITIVE  ROLL  IS  CLOCKHISC  VICUCO  PROH  BCHlNO 
POSITIVE  YAH  IS  COUNTCRCLOCKUISt  VlEUCO  PROM  ABOVE 
POSITIVE  HCAOINO  IS  CLOCKHISC  VIEUCO  PROM  ABOVE 


HACHINE'OePCNOCNT  CODE 


NONE. 


EXTERNAL  RCPCRCNCLS 


UNO  a UTH  (OR  STH)  coordinates  POR  OeOORAPHIC  COOROlNATCi 


EXCEPTIONS 


1.  IP  NAOIR  IS  UNOCPINEO  OR  COMPUTED  PITCH  OR  ROLL  HAS  HAONITUOC 

ORCATER  than  9 OCORECS.  THEN  PITCH  ANO  ROLL  ARC  SET  TO  UNOCPINEO. 


global  DECLARATIONS 


NONE. 


LOCAL  declarations 


n nnnn 


OAH  PACKAOC  Af*f*CNOtX  N 

umirv  ttouriNCs 


OOf 


ftCAL  CCNC.CCNN 
WCAL  OIRC.OIRN 
RCAt  PtTKtl.KOLKH 


• ecNrcR  CAtriNO.  nokthino 
a NAOIR  CASriMO.  NOATNINO 

a CCNTCN/NAOtll  OISPLACCHCNT  ALONO  PITCH.  ROLC  AXCS 


PROCCOURC 


CALL  rRACC 

iPMA8S(oifiLAri.or.3eo.).ANo.<Aasfoim.ONi.or.36o.n  oo  ro  aoo 
CALL  U^OtCCNC.CeNN. 

• CrRLAT.CrRLON.OiftLONI 
CALL  UHOtOlRE.OIRN. 

• OIRLAT.OIRLON.OIRLONt 
HHYRAO- 1 HNYOCO-I 80 . ) • . 0 1 7HS3898 

PI rKN*.001*COS(HHYRAOI M (CCNN'OIRNI *(CCNC*Ot RC I « f AN(HMYRA0>  > 
ROLKN-.OOI«COS(HHYR.'.3>  •(  t CtNE  >0 1 RC  > » ( 0 1 RN-CCNN I * T AN!  HHYRAO  > > 
PITOeO*S7.a99780* ATANtPt  TKR/ ALTKNI 
ROLOCO-S7. 899780* AT AN (ROLKR/ALTKNi 
in  IA8SCPlT0e0>  .LT.9.  > .AND. 
a (ASSfROLOCOl .LT.9. n 00  TO  900 

800  Pir0C0->9999. 

ROLOCO--9999. 

900  RETURN 
END 
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OAN  ^ACKAOC  AMCNOIX  N 
UTILITY  XOUTIHCS 


001 


CUOROUTINC  ORONUNt  0 RRINT  ROX  NUROCRS  (VARIAOLC  HCIONTt 

• 

I lUMir.  0 OUTPUT  UNIT  NUNOCR 

t NLROOY.  0 NUNOCR  OP  LINCS  IN  OOX  TYPC  OOOY  ftO  TO  SO) 

I NLPACe.  • NUNOCR  OP  LINCS  IN  OOX  TYPC  PACC  CIO  TO  S0> 

I NI.NC.N3.NY.NS.N0.N7I  • SCVCN  I'OIOIT  INTCOCRS  TO  OC  PRINTCO  IN  OOX  TYPC 
C Nl STORY 

C C N SCHLOSSCR  LCC  0I/0S/7H  ORIOINAL  COOC  IN  PRTNUN 

C C H SCNLOSSCR  LCC  10/07/79  RCNANC.  CHANGC  ARCS.  CLININATC  lAOO 

C NCTHOO 
C 

POR  CACH  NUHBCR.  OerCRHINC  fORCOROUK'O  A BACKOROUNO  CHARACTERS: 

CASC  ti  ( 0 <-  NUN  <>  9t  POREwR  :>  ENCOOCO  NUN.  BACKOR  ‘ ‘ 

CASE  0:  (10  <•  NUN  <-  19)  FOREOR  :•  * *.  BACKOR  ;■  ENCOOCO  NUN 

CASC  3i  (00  <-  NUN  I FOREOR  :«  * BACKOR  ‘ * 

PRINT  BACKOROUNO  CHARACTERS  ON  TYPC  BOOT  LINCS  (IF  ANY)  ABOVE  FACE. 

PRINT  BOX  0101 rs  ON  TYPE  FACE  LINCS. 

PRINT  BACKOROUNO  CHARACTERS  ON  TYPC  BOOY  LINCS  (IF  ANY)  BCLOH  FACE. 


NACHINC-OCPCNOeNT  COOC 


OINCNSION  ANO  FORNAT  SPECIFICATIONS  ASSURE  6 CHARS  PER  INTCOCR. 


external  RCPCRCNCES 


CSTNIN  • CHARACTER  STNINO  FOR  INTCOCR 

NOVCST  • hove  character  STRING 

LBOXNI  a LINE  OP  BOX  0101 T FOR  INTCOCR 


CXCCPTIONS 


I.  IP  ANY  OP  the  SCVCN  I'OIOIT  INTCOCRS  IS  NEGATIVE.  THEN  RESULTS  ARC 
UNOCPINCO. 

e.  NO  other  CHECKS  ARC  HAOC  ON  ANY  OP  THE  AROUNENTS. 

OLOSAL  declarations 
NONE. 


N«C9S 
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OAN  PACKAOC  AWNOU  N 
UTIL  try  ftouriNCS 


raiNUH 

ooc 


LOCAL  OeCLARATIONS 


INTCOCR  lOIOirCTI 
INrCeCR  KNRrORC7t 
tNrtOCR  KMfteAK(7l 
iNTCOCft  NBXO 
INTCOCR  KASOIO 


iNreocR  NORouptta 

A /OO.BO.tB. 

iNreocR  KHBurofoo 
oeriNC  KHLcrrcii 
oertNE  KHrAcem 
OeriNC  KHRITEUI 


A t-OIOIT  INTCOCRS 

a roRCORouNO  character  roR  each  toiotr 

a BACX9R0UN0  CHARACTER  TOR  EACH  tOIOtT 
a HUHBER  (I  THRU  71  OE  CURRENT  BOX  OlOIT 
a CASE  rOR  CURRENT  lOIOITi 

I . 0 <-  lOIOIT  <•  9 

t ...  10  <•  lOIOIT  <«  19 

3 BO  <>  lOIOIT 

a ORDER  rOR  OUPLICATINO  LINES  1 


(BLACK  ON  HHITEI 
i WHITE  ON  BLACK I 
(BLANK  I 
THRU  IBi 


) 

0.  B.99.99.  7.  9.11.99.99/ 

) a OUTPUT  CHARACTER  BUEPER 

• KHBUEO(  I a COLUHHS  OF  TYPE  BOOT  LEFT  OF  FACE 

a COLUHHS  OF  Type  face 
a COLUHNS  OF  type  body  rioht  of  face 


■KHBUFOr  I 
■KHBUFOt  I *<*-01 


PROCEDURE 


CALL  TRACE 


INITIALIZE 

I0I0IT( n «NI 
I0I0IT(BI-NB 
I0I0ITC3I-N3 
lOIOITCM  aNif 
IOtOIT(SI -N9 
I0I0IT(SI*N6 
I0I0IT(7I-N7 


OETERHINE  FOREOROUNO  a BACKOROUNO  CHARACTERS 
00  160  NBXO* 1.7 

I0I0IT(NBX0>*IABS( 1 01 01 T( NBXO > I 
KAS0t0*HlN0l lOIOi TfNBXOl /lO.Bt  »l 
00  TOm0.IB0.l30l.  KASOIO 

ito  continue  a 0 <>  ioioit  <-  9 

CALL  CSTNIN(KHRF0R(NBX0> . m . ( 1 1 . ioioitinbxoi . I > 
KHRBAKINBXOI >' 

00  TO  160 

iBo  continue  a 10  <•  ioioit  <•  19 

ioioitinbxoi -ioioitinbxoi >10 

KHRFORINBXOI-'  ’ 

CALL  CST«IN(KHRBAK(NBX0I.(|I.(II.  lOIOI TINBXOI . 1 1 
00  TO  IBO 

ISO  CONTINUE  a BO  <•  ioioit 

KHRFORINBXOI-’  * 

KHRBAKINBXOI-*  * 

ISO  CONTINUE 


R-eiN 
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OAN  PACKAOC  AMCNOIX  M 
UTILITY  nOUTiNCS 


raiNUH 

OOS 


e 

e 

C INITIALIZC  OUTPUT  turrCII  TO  •ACKOMOUNO  CHARACTCftS 

c 

00  too  NOXO*I.Y 

CALL  HOVCSrtKNLCrrfNOXOI  .(l).(tn  . 

• KHROAKtNOXOl , I t I . ( t ) .KNftOAKCNOXO) t 

<00  CONTINUC 


MtlNT  OOOY  LINCt  AOOVC  FACC  (IF  ANYt 

NLnAX*(NLBOOV-NLFACei/< 
ir(NLHAX.LC.O>  00  TO  <*00 
00  300  NLlNC-t .NLHAX 

HRircf lUNir.SHSi  khoufo 

3*»9  F0RNAT(3X.7(A3.<A8.A3I  > 

300  CONTINUE 

c 

c 

C PRINT  FACE  LINES 
C 

*00  00  *00  NL INE«1 . t< 

00  *<0  N0X0*t.7 

CALL  LBOX*l (KHPACEtNBXO* . 

> tOIOIT(NBXO> .KHRFORINBXOI . KHRBAK ( NBXO> .NLINE) 

*<0  CONTINUE 

NLNlN-HINO(NOROUR(NLINEt .NLP ACE  I 
00  **0  NLRER-NLNIN.NLFACE.B 
URirE(IUNir.3*5l  KHBUFO 
**0  CONTINUC 

*00  CONTINUC 
C 

c 

C IF  OOOY  LINES  OCLOU  FACE.  RC*INI Tl AL IZC  OUTPUT  BUFFER  TO  BACKOROUNO  CHARACTERS 
C 

IF(NLBOOY.CQ.NLFACC)  00  TO  900 
00  900  NBX0«I.7 

CALL  NOVCSriKHLCFTCNBXOl . ( 1 1 . (<l > . 

• KMRBAKINBXOi . ( It . ( 1 1 .KHRBAKINBXOi i 

900  CONTINUC 

C 

c 

c PRINT  OOOY  LINES  BELOW  FACE 
C 

NLNAX«(NLBOOY*NLFACC«l t /< 

00  000  NL INC*I .NLHAX 

URirC(IUNir.3*9i  KNBUFO 
BOO  CONTINUE 

c 

c 

C OONC 
C 

BOO  RETURN 
CNO 


N-C*9 


ooooooooooooooooooooooooooooooooooouoooooooo 
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OAN  OACKAOC  AMCNOt 

uriLirv  RouriNCs 


tuooouriNC  PROvric  • raiNr/oveoraiNT  riLCcoi 
I lUNIT.  • UNIT  NUNOCR  OF  OUTPUT  (6  OR  10  THRU  tOi 


C 

e 


I NROLCO. 
t LCNHL. 
t HRORCS. 
I LCNHR. 

1 NTICMR. 
I JPSPCC. 


I IPRTOn 


• LCPT  NAROIN  CNARACTCR  OTRIHO 
a LCNOTH  (IN  CHARS!  OF  NROLCS 

• RIGHT  HANOI N CHARACTCR  STRING 
a LCNOTH  (IN  CHARS!  OF  HRORCS 

a NCAT  LINC  CHARACTCR 

a PRINT  SPCC  (6  CHARS  --  t PCR  SYHSOL  POSITION! 

IF  NUHCRICi  NUHSCR  OF  LINCS  TO  AOVANCC  BCFORC  PRINTINO 
IF  NON'NUHCRICt  00  NOT  PRINT 
a SUFFCR  TO  PRINT  (IN  PXOOCF  FORHATI 


HISTORY 


0 

A 

BECK 

LCC 

9/8S/79 

REQUIRE HCNTS 

0 

A 

beck 

LCC 

IO/IB/79 

ALOORITHH 

OCSI ON 

0 

A 

BECK 

LCC 

10/83/79 

ALOORI THH 

COOINO 

HCTHOO 


CHCCK  IF  IPRTBF  IS  NOT  BIN  TrPC  INTCOCR.  CHECK  IF  THE 
NUHBER  OF  BINS  TO  BE  PRINTED  IS  OREATER  THAN  OR  EQUAt  TO 
the  NUHBER  OF  OUTPUT  PRINT  COLUHNS.  CHECK  IF  LCNHL  ANO 
LCNHR  IS  LESS  THAN  0.  CHCCK  IF  THE  NUHBER  OF  OUTPUT  PRINT 
COLUHNS  ALLOUABLC  IS  OREATER  THAN  138.  CHCCK  IF  LCNHL  * 8 
(LCNOTH  OF  8 NTLCHR‘8!  IS  OREATER  THAN  OR  EQUAL  TO  THE 
NUHSCR  OF  OUTPUT  PRINT  COLUHNS  ALLOHABLC.  CHECK  IF  THE 
HAXIHUH  NUHBCR  OF  ALTERNATE  PRINT  FILES  HILL  BE  CXCCCOCO. 
CHCCK  IF  I UN IT  IS  NOT  EQUAL  TO  (6  OR  10  THRU  HAXIHUH 
ALLOHCOI . 

LOOP  thru  the  input  SYHBOL  BUFFER  OBTAINING  EACH  SYHBOL 
PRINT  BUFFER. 

CHCCK  IF  LAST  SYHBOL  PRINT  BUFFER  ANO  THC  HAXIHUH 
NUHBCR  OF  COLUHNS  ALLOUABLC  IS  GREATER  THAN  OR  EQUAL 
TO  (LCNHL  * LCNHR  * 81  ^ THE  NUHBCR  OF  COLUHNS  TO  BE 
PRINTED,  then  ASSIGN  LCNHR  TO  THE  LENGTH  OF  THE  RIGHT 
HAROIN  TO  SC  PRINTED.  ELSE  ASSIGN  LCNHR  TO  ZERO. 

ASSIGN  POINTERS  TO  THE  LOU  ANO  HIGH  SYHBOLS  OF  THE 
SYHBOL  PRINT  BUFFER  TQ  BE  PRINTED. 

ASS  I ON  UNIT  NUHBCR. 

CALL  PROVSY  TO  PRINT  THE  SYHBOL  PRINT  BUFFER. 


HACNINC-OCPCNOCNT  CODE 


NONE. 


EXTERNAL  RCFCRCNCCS 


N-CNB 
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OAH  PACKAOC  AMCNOtX  N MOVri 

UriUTY  ROuriNCt  OOt 


c — - 

e 

c raovtv  • PRiNT/ovcwpiiiNr  SYMBOL  BurrcR 

e NOfATL  a MlNT/LOO/eOUNr  *rATAL  CRROM*  NCSSAOCt 

OOUBLC  RRCCISION  CBSYIN  A CHARACrCR  StRINO  FOR  INTCOCR 


CXCCRTtONS 


CONDITION 

OIAONOSTIC 

ACTION 

I. NUHBCR  or  BINS  TO  BC  PRINTCO 
IS  Less  than  or  cqual  to  0 

QUCUCO 

NOFATL 

RCTURN 

C.LCrT  NAROIN  LCNOTH  PLUS  THO  NCAT 
LINC  CNARACTCRS  is  ORCATCR  Than  or 
COUAL  TO  THC  NUHBCR  OF  COLUMNS  PCR 
PAOC 

QUCUCO 

mofatl 

RCTURN 

3.NUH0CR  or  ALTCRNATC  PRINT  FILCIS) 
CXCCCO  THC  MAXIMUM  ALLOHAOLC 

QUCUCO 

MOFATL 

RCTURN 

H.UNir  NUHBCR  IS  NOT  CQUAL  0 OR 

(10  thru  maximum  allohablci 

QUCUCO 

NOFATL 

RCTURN 

8.LCNHL  IS  LCSS  THAN  0 

QUCUCO 

NOFATL 

RCTURN 

B.LCNMR  IS  LCSS  THAN  0 

QUCUCO 

hofatl 

RCTURN 

7. NUHBCR  or  C0LUHN8/PA0C 
IS  ORCATCR  Than  I3C 

QUCUCO 

NOFATL 

RCTURN 

B.BIN  TYPC  IS  NOT  ‘INT*  FOR  IPRTBF 

QUCUCO 

RCTURN 

0L08AL  0CCLARATI0N8 


INCLUOC  KOMXQT.tlSr 
INCLUOC  RXBOCr.UST 

C LOCAL  OCCLARATIONS 

INTCOCR  IRRTOrtll 
INTCOCR  IPLBIN 
INTCOCR  IPHBIN 
INTCOCR  NBINLO 
INTCOCR  NBINNI 
INTCOCR  NBNOAT 
INTCOCR  NUNIT 


a eoHnoN  prooram  cxccution  shitchcs.  countcrs 
a POINTCRS  OCriNINO  buffcr  structurc 


a arol'ncnt 
a LOM  BIN  IN  BurrCR 
a NION  BIN  IN  BUrrCR 
a LOU  BIN  IN  UNIT 
a NION  BIN  IN  UNIT 

a NUHBCR  or  BINS  IN  PRINT  BUPPCR  U/  DATA 
a ALTCRNATC  PRINT  PILC  NUHBCR 


N-fH7 


1 


OAN  PACKA0C  A0ACNOIX  N 0RO¥ri 

UTIL  ITT  KOUriNCS  003 


INTCOCW  N0IN0O  • NUNICR  Or  lINt  ACR  RAOC  rOR  DATA 

INTCOCR  NALTM  A NUHRCR  Of  AtT  MINT  fUCt  TO  MINT  turrCR 

INTCOCR  LUNir  A LAtT  VALID  ALTCRNArC  RRINT  FILC 

INTCOCR  NROLCN  A LCNOTN  OF  RIOHT  HAROIN  (ZCRO  FOR  NO  NAROINI 


e 

e 

e FROCCOURC 

c — 

e 

e 

e CNCCK  FOR  VALID  DIN  TVRC 
C 

IFIIFRrOFIRXOINTt .NC.'INTM  CALL  NOFATL f 

• 'IIRRTOF  DIN  TYFC  NOT  INT  IN  PROVFII*! 

C 

C 

C CNCCK  FOR  data  IN  BUFFCR 
C 

NDN0A'«IPRr8r(PXH8INI •IFRrBPIFXLDINI »t  A NUNBCR  OF  BINS  IN  BUFFCR 

IFINONOAr.LC.OI  CALL  N0FATL( 

• MIPRTBF  CMPrv  IN  PROVFI)*) 

C 

C 

C CNCCK  FOR  INVALID  HAROIN  LCNOTHISI 
C 

IFKLCNHL. LT. 01  .OR.  (LCNHR.lt. 0>  > CALL  HOFATLI 
> MNCOATIVC  HAROIN  LCNOTH  IN  PROVFII‘l 

C 
c 

C CNCCK  FOR  VAIIO  PRINTCR  UIOTN 
C 

IFiKPAOC.Or. 1301  CALL  HDFATLC 

• MKPAOC  > 130  IN  PROVFI  I *1 
C 

e 

C CNCCK  IF  LCFT  HAROIN  AND  TWO  NCAT  LINC  CHARS.  NNICN  ARC  RCOUIRCO 
C CXCCCO  TNC  PRINTCR  WIDTH 

C 

NBINPO*KPAOC-(LCNHL*OI  A CONPUTC  THC  NUNBCR  OF  BINS  PCR  PAOC  FOR  DATA 
IFINBiNPO.LC.Oi  CALL  HDFATLI 

• * (HAROIN  TOO  HIOC  IN  PROVFII*! 

C 

c 

C CNCCK  IF  TNC  CNTIRC  BUFFCR  CAN  BC  PRINTCO  ON  TNC  HAXlHUH  NUNBCR  OF 
C ALTCRNATC  PRINT  FILCS  ALLOUABLC 

C 

NALTPRXNBNOAT-I  l/NBINPO«l  A CONPUTC  NUNBCR  OF  ALTCRNATC  PRINT  FlLCS 
ifinaltpr.ot.naltni  call  N0FATL( 

• MIPRTBF  NCCDS  NORC  THAN  HALTN  PRINT  FILCS  IN  PROVFI I M 

c 

c 

e CNCCK  FCR  VALID  UNIT  NUNBCR 
C 

LUNIT-8 

IFIIUNIT.C0.8I  00  TO  SOB 
lunit«io«haltn*i 


N*ONO 


o u u u 


( 

OAN  ^ACKAOC  AmmiX  N 
UTlLITt  ROUrtNCt 


. irmuNiT.Lr.toi.OR.ciuNir.oT.LUNtrn  call  norArLi 

• *l*.CM«ltN(tUNlT.ltll.*  ts  tAO  UNIT  IN  MOVril‘1 

^ 800  irtNOrOTL.NC.Ol  00  TO  800 

e 

e 

C OCRARATC  IPRT8r  INTO  ALTCRNATC  ORINT  UNITS 
C 

• NUNIT«IUNIT 

INL8IN«INRTartNXL0INI 
^ INN0lN«IMTBriNXN8INI 

00  800  NOINLO-INLOIN. INNOIN. NOINNO 

N8INHI«HINO(NOINLO*NSINNO-I . INNOINI 
HN0LCN*0 

irt INSINHI-NOINLO^t )•LCNNN.LC.N8INP0i  NROLCN-LCNHA 
CALL  NR0V8Y ( NUN I T . HR0LC8. LCNNL . NRORCS. HROLCN . NTLCHR . JRSRCC . 
A IRRTBrtRXOINOI .NOINLO.NBiNHi I 

NUNIT«NUNIT*t 

iP(NUNir.or.LUNiri  NUNtr>io 

800  continue 


RETURN  TO  CALL  I NO  ROUTINE 

000  RETURN 
ENO 


« 


MOVPI 

00« 


N*e«8 


PAN  PACKAOC  ANl*CNOlX  N 
UriLITT  NOUriNCt 


•01 


•uPNOuriNC  ONOvoYf  • ooiNr/OYCNMiNr  OYHOOL  turrcN 
I luNir.  • ourour  unit  nunpcn 


e 

c 

c 

e 


I NAOLCt, 
I LCNNL. 

I NAOOCS. 
I LCNNA. 

I NYLCHN. 
I 4MKC. 


I lAoror. 
f NHOLO. 
t NHONI I 


A Lcrr  MAAOIN  CNANACrCN  tTRINO 

• LCNOTN  (IN  CHAAOi  Or  NNOLCt 

• NIOHY  NAROIN  CNANACYCR  tTRINO 

• LCNOTN  (IN  CNAROI  Of  HRORCt 

• NCAT  LINC  CNARACTCR 

• RRINT  tOCCt  (0  CHARt—l  OCR  tYNOOL  ROtITIONI 

NUNCRie  CNARACTCRt  — 

NUMOCR  or  LINCt  TO  AOVANCC  tCrORC  ARINTINO 
NON'NUHCRIC  CNARACTCRO*- 
OON'T  rOINT 

• ourrcR  NOT  in  rxoocr  fornat 
a LON  MONO  IN  ourrcR 

a HI  ON  MONO  IN  ourrcN 


Nl STORY 


C H SCNLOSSCR 
J C CRISP 


LCC  00/CS/7S  ALOORITHH  COOINO 

Lcc  10/17/79  Revise  ouppeR  sTRucruRe 

ANO  INCLUOe  VARIAOLe  HARO  I NS 


neTHoo 


INTIlALiZe  ALTCRNATe  PRINT  PILP  NANS.  eXAHlNP  PIRST  PRINT  SPSC. 
PLACe  cePT  NAROIN.  NSAT  LINS  CHARACTeR.  SVNOOLS  ANO  NPAT  LINS 
CHARACTeR  INTO  PRINT  OUPPPR.  CHPCK  RIGHT  NAROIN  leNOTH.  IP  <>  0 
INSCRT  RIOHT  NAROIN  INTO  PRINT  OUPPeR.  IP  PRINT  SUPPPR  IS  ALL 
•LANKS.  LOOP  OACK  POR  NCXT  PRINT  SPeC.  eLSe  CHeCK  UNIT  NUNOPR 
ANO  URITe  PRINT  OUPPPR.  LOOP  OaCK  POR  NPXT  PRINT  SPPC.  CONTINUP 
UNTIL  ALL  PRINT  SPPCS  HAVP  OPCN  APPLIPO. 


NACHlNP'OePPNOeNT  COOP 


ASSUNPS  0 CHARACTPRS  PPR  MONO 

utilizps  uni  vac  exec  o pr  prints  ano  cr  prntas 


CXTPRNAL  rcpprcncps 


CRPRNT  a PRINT  INAOC  ON  TTV/CRT/LINC  PRINTPR 

CRPRTA  a HRITP  INAOC  TO  ALTPRNATC  PRINT  PILP 

CSTNIN  a CNARACTCR  STRINO  FOR  INTCOCR 

OCTICC  a INTCOCR  CNARACTCR  CQUIVALCNT  PRON  CNARACTCR  STRINO 

NOVeST  a NOVC  CNARACTCR  STRINO 

PUTCNR  a PUT  CNARACTCR  INTO  CNARACTCR  STRINO 

HOVCNR  a NOVC  CNARACTCR 


N>C90 


e*N  MCKAOff  AMCNOIK  M 
UritlTT  ROUriNCt 


MIOVtV 

•M 


e 


NOfATL  • MINr/tOO/eoUNT  TATAL  CMROA*  NCttAOCt 
iurcocR  tec  a intcocii  CNAiiAcrcR  cquivalcnt 

tNrCOCR  Nt*»NC  • NUHtCA  Of  iNtCOCIIC  fOR  CNARACTCRt 

INTCOCR  LCNNNC  • kOCATC  CNARACrCII  NOT  KQUAk 


CXeCRTIONt 


1.  tr  THC  NUHCCR  or  oiNt  re  oc  MiNrco  riut  tmc  lcnotn  or  tnc 

kCrr  ANO  NIONT  HAROINf  RLUO  TnC  TMO  NCAT  LIHC  CHARACTCRS  CXCCCOS 
KRAOC.  A QUCUCO  rAfAL  OUONOSriC  HILL  OC  ttSUCO. 


OLORAl  OCCIARATIONS 


iNCLuoc  KOHxor.Lisr  a connoN  rroorah  exccurtoN  auiTCHca.couNrcRS 


; LOCAL  OCCLARATIONt 

INTCOCR 

IRRTBf 

III 

INTCOCR 

NANflL 

(Cl 

INTCOCR 

jorouT 

(C3I 

INTCOCR 

ICCZCR 

INTCOCR 

LOCOUT 

INTCOCR 

Nice 

INTCOCR 

NBRCe 

INTCOCR 

NUOIN 

• AROUNCNT 

• ALTCRNATC  RRINT  riLC  NANC 

• OUrruT  RRINT  OUrrCR  RLUS  blank  RAOOtNO 

• ICC  or  rcRO  charactcr 

• ourruT  ourrcR  rointcr 

a INTCOCR  charactcr  CQUIVALCNT 
I RRiNT  tree  root r ION 

• BIN  CONTAININO  CHAR  BCINO  RACKCO 


RROCCOURC 


CNCCK  roR  ourrur  BurrcR  ovcrclou 

ir  <l(NMONI«NHOLO*tl*LCNHL»LCNHR*ai.LC.KRAOCI  00  TO  100 
CALL  NOrATL  IMOUTRUT  BUrfCR  OVCRruOM  IN  RROVS-i'i 
00  ro  BOO 

iNTiriALizc  rue  nahc 

too  CALL  cbtnin  iNANru.iii.tiai.  luNir.iiii 
iNiriAUtZC  INTCOCR  CHARACTCR  CQUIVAkCNr  OF  ZCRO 

teczcR«tec  c*o*i 

cxANtNC  tree  roR  Ncxr  bynboi  ruotrioN 


N-tSI 


n o n f> 


MN  ^ACKAOC  *mNOI»  N 

vriurv  MufiNCt 


••I 


00  000  Nom*i.o 

LOCOUT*! 

CALL  OCTieC  (Nice.  JPOPCC. IWtOCCI I 
NAov«Nicc-temii 

If  INAOV.Lr.O.OA.NAOV.Or.Ol  00  TO  000  0 NOT  NUItCRIC'OON'r  MINT 


Move  Lcrr  haroin  ano  ncat  unc  CNARAcrcR  re  ourrcR 

If  NA0V*0.  RRINT  $RACCO*CLOC  RRINT  RAROtN  ANO  CNARACTCR 


If  INAOV.CQ.OI  CALL  NOVCOT 

tr  INAOV.NC.OI  CALL  NOVCOr 

LOCOUT«LOeOUr*LCNHL 
If  INAOV.CO.Ot  CALL  PUTCHR 
If  INAOV.NC.OI  CALL  RUrCMR 
LOCour«LOCour*t 


(^OUr.Itt.lLCNNtt. 

• *1 
(joreur.m.iLCNNLi. 
RROLCO.in.tLCNHLI.*  *t 

I jorouT. iLOCOuri . • *i 

I joreur. iLOCouri . NfLCHRi 


RACK  CMARACrCAO  INTO  RHlNT  OUCfCR 
00  300  NHOIN-NHOLO.NUONI 

CALL  NOVCHR  I JOrOUr.lLOCOUtl . IRNTOriNUOINI.INORCCII 
LOCOur>Locour«i 
300  CONriNUC 

c 

c 

c NOVC  NCAT  LINC  CHAR  ANO  RIOHT  NAROIN  MC  LCNOTMOOI  TO  OurrCR 
C 

ir  INAOV.CQ.OI  CALL  RUTCNR  UOrOUT . I LOCOUT I . * *1 

If  INAOV.NC.OI  CALL  RUTCMR  I JOfOUT . ILOCOUTI . NTLCHRI 

L0C0UT*L0C0UT*| 
tr  ILCNNR.CQ.OI  00  TO  300 

tr  INAOV.CQ.OI  CALL  NOVCOT  IJOfOUT . ILOCOUT I . ILCNNRI . 

• * '.MI.ILCNHRI.*  *1 
tr  INAOV.NC.OI  CALL  NOVCOT  IJOrOUT . ILOCOUT I . ILCNNRI . 

• NRORCO.I II. ILCNNRI.*  *1 
LOCOUT  «L  OeOU  T »L  C NHR 


CHCCK  roR  olank  ourrcR 

300  tr  ilcnrnci jorour.ii I .iLOCouri . • *i.co.oi  oo  ro  ooo 


INOURC  OLANK  RAOOtNO  IN  OUTfCR 

CALL  NOVCOT  IJ0r0UT.IL0C0UTI.l0l.  * *.<ti.m.*  *1 


HRtTC  MINT  LtNC  CRON  OUTRUT  RUrrCR 

tr  ftUNtT.NC.OI  00  TO  000  0 ALTCRNATC  RRtNT  rtLC 

CALL  CRRRNT  fNAOV.NtANCILOCOUT-tl . JOrOUTt 
00  TO  000 


N'CflC 


OAN  ^ACKAOC  AMCNOU  M 

MTUirY  MOtiriNCt 

•00  CAti.  ciiMtA  niAnrtt.MAOY.iH'meitocMf-n.Jifou^* 

e Loo^  •ACK  roN  Ncxr  skc 
too  eONTINUC 

c NOAHAA  AC TURN 

too  ACruAM 
CNO 


MOVtY 


N*C«1 


OAH  ^ACKAOC  AmttOIX  N 
UmtTY  KOUriNCS 


MSVHL 

001 


OUOROUTINC  ORSYNLt  0 PRINT  SYNOOL  LCOCNO 


I NUNtn  I OUTPUT  UNIT 


e N SCMLOSSCR 
C H OCHLOSSCR 
e N SCNLOSSCR 


c — — 

e 

C HISTORY 
C 

e 
c 
c 
c 
c 
c 

c ncthoo 

c 

c 
c 
c 
c 

c HACHiNE-oepeNoeNT  cooe 

C — 

c 

C NONE . 

c 

c 

C EXTERNAL  REPERENCES 

C 

<* 


LEC  00/I3/7H 

LEC  ta/09/79 

LENSCO  OS/20/00 


HRiTE  the  character  svnool  leoeno  on 


orioinal  cooe  in  SYHTAO 

RENAHE  A DELETE  PLO  PUNCTION 
CHANGE  RANOE  PORHAT  PROH  Ji  TO 


NUNIT. 


HOUNir  a PRINT  HEA3IN0  ON  TOP  OP  NEXT  PAOE 

C HOVCST  a MOVE  CHARACTER  STRING 

C OETCHR  a OET  CHARACTER  PROH  CHARACTER  STRING 

INTEGER  LENCST  a LENGTH  OP  CHARACTER  STRING 


C 

c 

C EXCEPTIONS 

C 

C 

e NONE . 

c 

c 

C GLOBAL  declarations 
C 

c 


INCLUDE  KOHXOT.LIST  a COMMON  PROGRAM  EXECUTION  SNITCHES.  COUNTERS  ' 

INCLUO*'  KONKLS.LIST  a COMMON  CL  ASSI  Pl  C AT  I ON  INPO 

iNCLUOt  KONSYM.LIST  a COMMON  SYMBcL  TABLE 


C 

c 

e LOCAL  DECLARATIONS 
C 

c 

INTEGER  KURSYM 
INTEGER  NEXSYM 
INTEGER  KSYLEN 
INTEGER  KURCHR 
INTEGER  KVALLO 


a CURRENT  SYMBOL 
a NEXT  SYMBOL 

a length  in  characters  op  current  symbol 
a CURRENT  character  IN  CURRENT  SYMBOL 
a LONESr  RAO/OEN/CLA/COUNT  VALUE  UITH  CURRENT  SYMBOL 


N*es*» 


OAN  PACKAOC  AMCNOtX  N 
UTILITY  ROUTINCS 


ratVHL 

OOR 


INTCOCR  KVALNI  A NIOHCST  RAO/OCN/CLA/COUNT  VALUC  MITH  CURRCNT  STHROL 

RRoeeouRC 


CALL  TRACe 


C PRINT  SYMBOL  LCOCNO  MCAOINO  ANO  NON 'CHANOe ABLE  SYMBOLS 
C 

IPCNUNir.NC.St  CALL  HOUNirm.NUNITI 
IPIKriPlX.NC.OI  HRITECNUNir.nS) 

IIS  FORMAT! 

A ’OSTM60LS  FOR  COUNT  OF  PIXELS  OETECTEO  WITHIN*) 

IFIKTIPIX.EQ.OI  HRITEINUNIT. I8S) 

IBS  FORMAT! 

A *OSYMBOLS  FOR  PIXELS  DETECTED  WITHIN*) 

IFIKLSTYP.EQ. ‘RAD* ) WR I TE I NUNI T . I 33 ) LCVLOl .LCVHI I 
133  FORMAT! 

A * spectral  limits  and  radiance  range  ! * . J3. *-* . J3. * ) * ) 
IFIKLSTYP.EQ. ‘DEN* ) HR  I TE ! NUN  I T . I <*3 ) LC  VLOl  . LC  VH I 1 
INS  FORMAT! 

A ‘ spectral  LIMITS  ANO  DENSITY  RANGE  ! * . J3. * - * . J3. ’ ) ’ ) 

URITEINUNIT. 133) 

133  FORMAT! 

I '0  SYMBOL  NUMBER  MEANINO*// 

B ‘ : NO  DATA*/ 

N • • PRIMARY  TICK*/ 

3 * * SECONDARY  TICK*) 

C 

C 

C PRINT  USER-SPECIFIED  SYMBOLS 
C 

KVALLO*0 

KURSYM** 

NEXSYM-*  * 

CALL  MOVCSTIKURSYM. ! I ) . IN) . 

• KSYM!KVALLO*'l  ) . ! I ) . IN)  , * *) 

00  NOO  KVALHI-0. ISVHHI 

CALL  MOVCSTINEXSYM. ! I I . IN) . 

• KSYMIKVALHI «B) . I I ) . IN) . * *) 

IFINEXSYM.EQ. KURSYM)  00  TO  NOO 

KNOTEI**  * 

KNOTEB>*  * 

IFIKURSYM.NE. ’ *)  00  TO  160 
KNOTEI*’ IBL  * 

KURSYM-  *A‘ 

KNOTEB-  *NK)* 

IBO  IFIKVALLO.EQ. KVALNI)  00  TO  TOO 

NRI TE ( NUNI T. ITS)  KNOTEI .KURSYM. KNOTEB.KVALLO. KVALNI 
I7S  FORMAT! IX.A3.AI .A3. IX. J3. . J3) 

00  TO  BBS 

BOO  NRITEINUNIT.EOS)  KNOTEI .KURSYM. KNOTEB.KVALLO 

BOS  F0RMATIIX.A3.AI.A3.3X.J3I 

BBS  KSYLEN-LENCSTCKURSYM.N) 


OAN  ^ACKAOC  AMCNOI 
UmiTY  NOUriNCS 


triKSYLCN.LT.a)  0»  TO  880 

00  880  KSYL0C«8.KSYLCN 


888 

CALL  oerCNRtKURCNR.  KURSYH.  <KSYL0Cn 

HRireCNUNir.888t  KURCNR 
rORNAr(***.3X.AI> 

880 

CONMNUe 

880 

KVALLO*KVALHl*l 

•*  CJNTINUC 

KURSYR-NCXSTn 

AC TURN 
CNO 


MOYNL 

OOS 


UOUUUUUUUOUOUUCIUOO 


uriLiry  nouriNCs 


I 


MrCHR 

Ml 


SUMOUriNC  MTCNRC  a MRITC  BOX  CNARACrCRS  C7  LINCS  HION) 
I lOMIT.  a OOTRUT  UNIT  NUNSCR 

t NCMAR.  a NUNSCR  OF  CHARACTCRS  IN  STRINO  (HAX  IS) 

t JtTRNOI  a CNARACrCR  STRING 


fC  M SCHLOSSCRt 


CXTCRNAL  SUBROUriNCS/rUNCTIONS  CALICO 


CRCsr 

CRRCAO 


SYNBOLIC  CLCNCNTS  RCrCRCNCCO 


OAN.BOX'CHR 


C 

c 


INTCOCR  JBX(6>»i  ,K(  19 
CQUIVALCNCC 
1 (KCOII.KOn.  IKIOet 
f (KCOBt.KOB).  (KC07) 
3 CKI  1 1 I .Kll  ) . (K(  to 
t CKM6I.KI6I.  (K(t7l 
CALL  TRACe 


II  . JSTRNOt  I I 

.KOO.  (K(03).K03). 
.K07).  (KtOei.KOei. 
•K12).  (KttSI.KtSI. 
.KI7).  (KUai.KIBI. 


NBir>o 

NUO-I 

00  ISO  l-l.ts 

irit.or.NCHARi  00  ro  i3o 

K( I )«rLO(NBI T.o. JSTRNOCNUOI I 
NBir-NBIT«e 

irCNBI T.LT. 36)  00  TO  ISO 
NSIT«0 
NU0*NH04’I 
00  TO  ISO 

130  Kiii«*aaaaa  **i 

ISO  CONTINUC 

c 


(K(OH) .KO^I . 
(K(39) .K09I . 
(K(t>*i  .Ktm  . 
(K( 191 .KtS) 


CALL  CRCSr(NAO.*aAOO.C  OAN.BOX-CHR  . •! 

toe  CONTINUC 

00  SCO  NMO-I .97.6 

CALL  CRRCAOtfSOO. JBX(NNO) . 1 1 
teO  CONTINUC 

URITCMUNIT.3C0) 

I JSXIKOI I . JBXIX06I  .UBX(KC3I  . JBX(K0*»l  .UBXIK09I  . 
* JSXIK06I . JBX(K07I . JBX(K06I . JBXCKOS) . JBXCKIOI . 

J MXIKII  I . JBXIKICI  .JBX(KI3)  . JBX;kI<*I  . JBXCKISi  . 

•»  MX(KI6t.UBX(KI7l  .JBXfKIO)  .JSXIKISI 

ICO  rORHAT(A6.IOItX.A6ll 


(K' OSI .K09I . 
IKMOI  .KIOI  . 
(K( 151 .KI9I . 


N-BS7 


OAH  ^ACKAOC  AMCNOIX  N 
UTILITY  ROUTINCS 


IHITCMR 

OOR 


C 


00  TO  too 

000  RETURN 
CNO 


u u u 


DAN  PACKAOC  A^KNOIX  N 

ttTUtrv  MouriNCs 


MTINC 

001 


e 

c 

e 

c 

e (C 
c 

c 


ouMOurtNC  MTiNCt  a spccirY  print  lincs/inch  a how  controllco 

I NUNir.  a LOOICAL  UNIT  NUNOCR 
t LPRtlN.  a PRINT  LINCS  PCR  INCN 
I KONPRTI  a TYPC  Of  PRINTCR  CONTROL t 

*AUT*  ••  AUTONATIC  SOfTMARC  CONTROL 
*NAN*  ••  HANUAL  OPCRATOR  CONTROL 


N SCNLOSSCRt 
IHTCQCR  LINCTLCSI 
CALL  TRACC 


LINCTL(tl>‘ 

iriKONPRT .CQ. ’Aur * ) CNCOOec IIS.LINC.D  NUNtr. LPRtlN 
1 1 5 f ORHA rue.IOX.'B.'.II.ISX) 

IPtKONPRT .CO. ’NAN' I CNCOOC I 135 .L I NCTL I NUNlT.LPRItN 
125  P0RHAT(J2.I0X. 'S.CHANOC  TO  '.I2.‘  LPI') 

IPfLINCTL ( n .CQ. ' ‘I  00  TO  900 

iriNUNIT.eO.O)  CALL  eRPRCNIS.LINCTLISII 
irtNUNIT.NC.et  CALL  CRPRCA(5.L1NCTL( n ) 

900  RETURN 
CNO 


N'CSO 


u 


OAN  MCKAOC  AMCNOI 
utility  NOUTINCS 


MTNM 

001 


e 

c 

e 

e 


c 


ouooouriNC  poTNOof  a oer  point  naooins 
I NUNir.  a looical  unit  nunoco 
I LOOIOO.  a POINT  UNCO  PCO  PAOC  (TOTAL 
1 LPOTOP.  a POINT  LINCt  IN  TOP  NAOOIN 
I LPOOOTI  a POINT  LINCS  IN  OOTTON  NAOOIN 


a LINES  PCO  PAOC 
INCLUOINO  LPOTOP  I LPOOOT) 


(C  N SCNLOSSeOI 

INCLUCC  K0HXQT.LI8T 
iNTCOeo  NAOOCNO»I 

CALL  TOACe 

CNCOOet I IS.NAROCNi  NUNI T .LPOtPO. LPOTOP. LPROOT 
IIS  POONATC ja. lOX. *N. • . J3.2( • . * 

iPfNUNir.eo.ei  oo  to  aoo 

CALL  COPRCACH.HAOOCNC I ) ) 

00  TO  900 

too  CALL  CRPRCNtt.HAROCNOn 
NLTOPS-LPRTOP 
900  RETURN 
CNO 


N*eoo 


I 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOUOOO 


OAN  PACKAOC  AP^CNOtX  N 
UriLITY  NOUriNCt 


MTAIir 

001 


tUMOUriNC  MTAlirC  • INiriALIZe  MOOMAH 
1 NANMOl  a PROOMAH  NAHC  AND  VCRSION  (CHAR  OTRINO  t«»  CHARS  OR  LCStl 


HttrORT 


E 

H 

SCHLOSSER 

LEC 

OS/IC/73 

ORIOINAL  CODE 

e 

H 

SCNLOSSER 

LEC 

0B/07/7H 

AOO 

OAH  LOO  FILE 

e 

H 

SCHLOSSER 

LEC 

01/07/79 

ADO 

nacoah  file 

E 

H 

SCHLOSSER 

LEC 

OS/ZS/79 

AOO 

OIAONOSTIC  QUEUE  FILE 

HCTHOO 


iHiTiALize  axQT  nooes.  loo  file  fackct.  oiaonostic  Queue  nee  packet. 

ASSIOH  LOO  FILE  AND  UPDATE  POINTERS  IN  HEADER  TO  RESERVE  •*  LOO  FILE 
RECORDS  FOR  CURRENTLY  EXECUTINO  PROORAN.  IF  FIRST  PROCRAH  OF  RUN. 
APPEND  CHARACTERS  FRON  RIOHT  OF  ORIGINAL  RUNIO  TO  RIGHT  OF  ORIGINAL 
QUALIFIER  AND  iUSE  NACOAN  FOR  TPFS  IF  NO  OTHER  HACOAH  IS  ASSIONEO. 
INITIALIZE  PROORAN  I 0/ DATA/ T I HE/HEAD I NO  A LOO  RECORDS. 


HACHINe-DEPENOENT  CODE 


unfortunately. 


EXTERNAL  REFERENCeS 


ERPCr 

EREXir 

ERPRCN 

ERIOH 

ERCSF 

ERREAO 

ERTHAT 

NOUARN 

NOFATL 

EROATE 

ERPRNT 

ERCRR 


RESTRICTIONS 


I.  The  first  CxeCUTAiLe  STATENENT  in  every  OAN  package  NAIN  PROORAH  NUST  BE: 
CALL  PSTARTI *PR00RAH>NANE«AN0-VERSI0N* I 

«.  NAXINUN  size  for  PROORAN-NAHE-ANO-VERSION  is  characters  (PERIODS  NOT 


N-BOl 


onoo  noon  oooo  nnonn 


uTuirv  RourtNCs 


tx  N 


MTAIir 

ooc 


ALLOMCOI 1 1 ) 

3.  THC  LAST  tTArCNCNr  CXCCUTCO  IN  CVCRY  OAH  RACKAOC  HAIN  RROORAN  NUST  SCi 
CALL  RSTOR  ••0N«-  CALL  RAaONT 


OVCRLAY  NCtTRICrtONt 


XOr  A LOO  LABCLLCO  CONHON  IfORNROCSI  HUST  RC  IN  THC  ROOT  SCOHCNT. 


C 

iNCLUOe  KONXQT.LISr 
iNTcocR  pcrsecceei . jrct(8S) 

eOUIVALCNCe  (PCTSCCUI  .LOROLOI.  (PCTSCCIHI  .JPCT(  II  1 
INCLUOe  XQTOCP.LtSr 
, INCLUOe  KOHLOO.LlSr 
INCLUOe  K0HI0.LI8T 
include  PACBIT.LIST 
INCLUDE  ASHOEr.LISr 
INTEGER  NANPROMI 


SET  nOOES  PRON  XQT  OPTIONS 


CALL  SETQUO  8 OAH  PACKAGE  MUST  BE  IN  QUARTCR>H0R0  NOOElit 

CALL  ERPCTCSS.  JPCn 
NBATCH-XOTOPT ( 'BATCH*) 

iriASNSBc jPCTcasi i . ne.yi  hbatch«i 

NCHECK«XQTOPT( 'CHECK* 1 
NOATAC>XQTOPT( *OATA’l«nCHECK 
ntrace*xqtopt ( * trace  * I 
CALL  TRACE 


CHECK  IP  XOT  OPTION  E IS  SET  ANO  IP  PREVIOUS  PROGRAM  ERROR  TERHINATEO 
IPCXQTOPTI 'ERROR* I .EO. 01  00  TO  110  8 NO  E OPTION 

IPIASNTIIUPCTI 171  I .EO.B)  00  TO  110  8 PREV  PROO  TERHINATEO  IN  ERROR 

IPIHOATAC.NE.O)  call  ERCSPCNAO. *8A00  OAH.OATa-CHECK  . ‘I 
CALL  EREXIT 


CHECK  IP  OAH  PROORAH  PILE  IS  ASSIONEO 

110  CALL  ERCSP(NAO.*8A$O.A  OAH.  . 'I 
iriALREOVCNAOl .EO.OI  00  TO  117 


CHECK  IP  PROORAH  HAS  INITIATED  AS  A PROCESSOR 

CALL  ERCSPINAO.'SAOO  OAH.EOP  . *1 
CALL  ERREAOtSiaO.LBUPR. ITEHPI 
CALL  ERREA0!SII7.LBUPR.ITEHP) 


N-«et 


u u o u 


OAN  PACKAOC  AMCNOIX  N 

urtLiTY  nouriNCt 


117  CALL  CRPHNr(i.3.*MOOKAn  Nor  rouNO‘1 
irtNCATCM.NC.OI  CALL  CRCKM 
CALL  CRCXir 

e 

c 

C OCriNC  INTCRNAL  NANC  fOR  LOO  flLC 

c 

ISO  trcLocsrcc) .CO. *utc  i.*i  oo  ro  iso 

CALL  NOrATLf 'RROORAM  CRROR  ••  Ot'CONO  CALL  TO  ROrARTM 
OO  ro  790 

ISO  CALL  CRCSPINAO.LOCSn 


INiriALIZC  I/O  RACKCr  rOR  LOO  riLC  NCAOCR 


l09IZClL00RKn>9 

lOAODRCLOOPKn-LOCILOUPRI 

iosccr(LooPKr)«o 

c 

c 

C ASSION  OlAONOSnC  OUCUC  PILC  A INirULIZC  I/O  PACKCT 

c 

CALL  CRCSriNTHP. ’AASO.r  HOQUCUC.  . *) 
lottzeiLuoPKn-oo 
lOAOORILUOPKTI -LOCILBUPRI 
iosecrcLuoPKn*o 
c 
c 

C try  to  ASSION  OLO  LOO  PILC 
C 


LOPHI-0 

LOCSP(ti«’ASO.A* 

IPILONSCC.LT. 1001  LOCSPCd • ‘ ASO. T • • NO  PCRHANCNT  LOO  PILC 

CALL  CRCSPINASOA.LOCSPI 
IPIROLOUTINASOAI .NC.OI  CALL  ROLLIN 
IPILONSCC.lt. 1001  00  TO  600 


IP(RCJCCT(NAS0AI I . .too 
190  IPINCHLYINASOAII . .300  • 

IPIXOrOPT I 'ZAPLOO* i I . .700 
00  TO  300 
C 

c 

C ASSION  NCH  LOO  PILC 
C 

too  LOCSPitl-'ASO.CP* 

CALL  CRCSPINASOCP.LOCSPI 
IPIRCJCCTcnASOCPI I . .900 
IPIPRVCATINASOCPt I . . I 90 
LONAX-HMLONSCC '•»!•«» 


ALMAVS  LOO  PIRSr  PROORAN  OP  RUN 
0 DON'T  LOO 


0 OlVC  UPl 

1 PRCVIOUSLT  CATALOOCO  I7««0 


L0PL0**3t«L0NAX 

LOPHI**«> 

LOROLO*-N  0 PIRtr  PROORAN  OP  PIRST  RUN 
LORNI-LOPNI 
00  TO  NOO 
C 

c 


RtTART 

001 


N*tOS 


u u u u 


MTAIir 

00* 


OAN  ^ACKAOC  AMCNOt 
MriLirv  RouriNCt 


OCT  CXCLUtlVC  HRirc  ACCCOO  TO  LOO  riLE  HCAOCN  ONLY 

m Lmv*o 

ito  iramv.or.si  oe  ro  ooo  o oivc  uoi 

LOCAO«0 

Ito  iraoCAO.or.ioi  oo  ro  iio  • ronec  acccoo 
toruNCiLoooKrta'iK*  a ncao 

CALL  CRIOHtLOOOKri 
LRCAD«LRCAO*l 

iriLRUNlO.NC. *«NONeO‘l  00  TO  100 
ISO  Lriiy*LrRY*i 

LRUNI0«JRCT(0I  A OCNCRATCO  RUNIO  IS  UNIQUE 

toruNCiLoooKrt«*se*  a uRirc 

CALL  EmOM(LOOOKT) 

loruNCiLooPKTia'aK’  a aeao 

CALL  ENIOUtLOOPKn 

irikRUNio.NC. jpcrion  oo  ro  no  a has  ANorHCR  run  cnanoeo  it? 
ioruNC(LOOPKri«’aK'  a reap 

CALL  ERIOMILOOPKn 

IPILRUNIO.NE. jpcrton  00  TO  IIO  a CHECK  AOAIN  TO  SE  SURE  I 


UPDATE  PROORAN  POINTERS  TO  RESERVE  V LOO  RECORDS 


LOPLO*NOOCLOPLO.LONAXI 
LOPHI*NOO(LOPHI .LOHAX) *4 

c 

c 

C UPDATE  RUN  POINTERS  (ONLY  FIRST  PROORAN  OF  RUNI 
C 

IFIALREOVINASOAI ) . .400 

LOROLO-LORHI 

LORHI-LOPHI 


C 

c 

C HRITE  UPDATED  POINTERS 
C 


*00  LRUNIO«‘aNONES* 

IOFUNC(LOOPKTl«*aC* 
CALL  ERIOUILOOPKTl 
C 

c 

c cataloo  new  loo  file 
c 


RELINQUISH  EXCLUSIVE  HRITE  ACCESS 


a UNITE 


IF(ACCEPT(NASOAII..OOO  a olo  loo  file 
L0CSFICI«*FRLE.R*  A RETAIN  INTERNAL  FILE  NAME 
CALL  ERCSFINAO.LOCSFi 
LOCSF(CI«‘ASO.A  * 

CALL  ERCSFINAO.LOCSFI 

tFIACCEPriNAOl I . .800  a catalooeo  properly 
c 
c 

c FLAO  LOO  FILE  CONFLICT 

c 


800  CALL  NOUARNI’LOO  FILE  CONFLICT’! 
LOPNUO  a DON’T  LOO 


N>tO* 


OAN  ^ACKAOC  A^MNOIX  N 

urairr  RouriNtt 


MTAIir 

•os 


e 

e 

C CXrCNO  INITIAL  OUALiriCR  HlTN  ORIOINAL  NUNIO  TO  HAKC  UNIOUC  A RCOCATAaLC 

c 

•••  irULRCO^fNAtOAII  ..700 
LOCtritl«*«UAL* 

LOCsrrxiajRcrnti  • itr  no  or  ouAtiricR 

ioetr(i»t«jrcTf  itt  i sno  no 

loctns)**  . • 

00  iSO  NNO«N.S.-i 
00  OtO  NOIT«SO.O.-0 

irtrLOINOir.O.LOetrCNHOil.NC.'AAAAA  *1  00  TO  0«0 
fLOCNOIT.O.LOCSrtNNOl l•NAXO(rLO(N•lr.•.Jrcr(n I .‘laAiAAM 
•to  CONTI NUC 
•10  CONTI NUC 

•*»0  CALL  CRCSrfNAO.LOCtri 

MRirCtO.OHSi  (LOCtriNI .N-I.Hi 
•<»•  rONNATC  •OtaOUAL  ’.tAO.’I'/l 

irCLOCOSri’NACOAH*.*  ‘I.LT.OI  CALL  CNCSrr 
a NAO.’ausc  nacoah. .rm.  .*i 
c 
c 

C INITIALIZC  LOO  roiNTCNt 

c 

700  LOrCr«LONNI 
LOriOT>LOrCT*l 
LONOrc-LOrCT*t 
LOHAAN>LOrcr*t 
LorArL*Lorcr*t 
LOTCAH>LOrCT*S 

c 

c 

C HNITC  NUN  rOINTCNt  ANO  MOOAAN  CONTROL  TaRLC  IN  LOO  RCCORO  * LONCT 

e 

irrLarcT.LT.m  oo  ro  7to 
IOOIie(LOORKTt«tO 
I OOCC T ( L OORK T I «L ore r 
I 0 aOOR ( L OORK n -L OC ( L OROL 0 i 

ioruNC(LooRKTi«'ac'  a mritc 

CALL  CRIONILOORKTI 

c 

c 

e INITIALIZC  RROORAN  IO/OATC/TINC/HCAOINO 

c 

700  00  7<»0  N<t.*» 

irCNANRROfNI .CO. •0>  00  TO  700 
* jrrooini«nanrroini 
7N0  CONTI NUC 

7S0  CALL  OATINC  a CAUTION  CAN  ONLT  OC  CALLCO  ATTCR  RCT  ICCTOR  If  HRITTCN 
CALL  CRCtrtNAO.JRRIOn  a RUT  RROORAN  IO/QATC/TINC  ON  TAIL  SNCCT 

CNCOOCf I0.70S.JRUNI  JRCTit I .JRCTItl 
708  rORNATIU.AO.w.AOl 
CALL  CRRRCNill.JRRTCNI 
C 

c 

C INITIALIZC  RCNAININO  1 LOO  RCCOROS 


N>COS 


0AM  OACKAOC  AMMCNOIX  N 

uruiTT  MOUriNCt 


9 


C 

e 

e 

c 


iraoMior.Lr.«i  oo  ro  7to 

lOtlZCtLOOMRTIalt  I turrcii  size  mOH  hcmc  on 

I OAOOR r L OOMK r t *1 OC I JM I 0 n 

lotccriLOOMKri •lOMior 

toruNCfLOOMKri«*ae*  • uni  re 

CAiL  CRIOMILOONKn 

IOAOONILOOMKTl*CdC(LOUMI  • OUfrCN  A&ONCtt  rOOH  HCNC  ON 
00  700  N-t.lO 
700  LOUfNfNI*' 

I OKC  r I L OONK  T t •!.  or  A r L 
ioruNCtLOOMi(n«‘«c*  a uni  re 

CALL  CRIOMCLOONKTI 
lOOCcriLOorKTivLorcRN 

loruNetLOorKTi^'ic'  a unitc 

CALL  CNIOUILOOMKT) 


UNI  re  MOONAN  lO/OATC/rinC  ON  UNIT  0 


790  UNirC(0.79SI 

799  rORHATlOX/’t  *>  a AAOC  CJCCT  (A  9ATCH  HOOl 
iriN9ATCH.CO.OI  HAirCIO.7971  JNMIOr  a OCNANO  HOO 
797  rONNATMOAOi 


NNCNARC  TO  NCAO  OCrAULt  C0NHAN09 


NCAN0«-9999 


NCrUNN 


OUONOUriNC  NOLLIN 

HlNir9*9*N9ATCM«tO 
DO  too  N*l .MINI  TO 

uNiTcio. test 

IC9  roNNAri*  WAIT  --  LOO  rue  unloaoco*) 

CALL  CNTUATl 300001 
UNITCIO.  t*»9l 
l«9  rONNATlOX* 

CAU  CNTUATISOOOOI 
CALI  CNCOriNAfOA.LOCOrt 

iriNoiouTfNASOAt.eo.oi  oo  to  ooo 
too  continuc 

L0C9riti**rNCC.N‘  a out  oom*t  NCceAtc  tnc  aute.i. 

CALL  eUCSriNAtOA.LOCSr) 

LON9eC*0 

LOCtric>«‘ASO.T* 

CAU  eNcsriNAtOA.LOcsn 


NtTANT 

009 


NofOO 


0*11  OACKAOC  AOWNOIX  N 

urtitrv  RouriNCt 


nrAor 

•09 


•••  ocrumi 

tuoAouriNC  OArtnc 
e 

CALL  CROArcrjNOY.JNNtl 
fLO(OO.It.JONNI*riOM>.lt.  JNOri 
not  19.  It.  JONH* •fLOIOO.lt.  JNNtt 
flOltY.lt. JONNI-fLOl lt.lt. JNnOI 
CNCOOC 1 1 • . 1 00 . JHOYNff  I jnOY  . JONH . JNOY  . JMN« . JOHN 
100  rOAnAr(IX.At.*/*.At.*/ ‘.Rt.XX.At.*>  *.At.lXi 
RCruRN 
CNO 


N>t09 


onoooooonoooooooonononooooooononooooo 


OAN  PACKAOC  APWNOIX  N 
UTILITY  ROUTINCS 


RtTOR 

001 


u 


OUOROUTINC  ASTORt  0 rCRntNATC  AROORAN 
I NCOAOC)  a NCSOAOC  triROT  CHAR  It  AORTRAN  CARRIAOC  CONTROL) 

(C  N SCNLOStCRI 

THIO  SUOROUrtNC  HANOI  CO  AROORAH  lOeNTIFICATtON/OAre/TlHe  ANO  LOO  FILE 
CNTRies  FOR  AROORAH  rCRHlNATION. 


RCSTRICTIONS 


I.  the  first  EXECUTAOLE  STaTENENT  in  every  OAN  AACKAOE  NAIN  AROORAH  Husr  BE: 
CALL  ASTARTI  ‘PROORAH-NAHE-ANO-VERS i ON ’ i 

a.  the.  LAST  statehent  exECureo  in  every  OAH  PACKAOC  HAIN  PROORAH  HUST  BE: 
CALL  PSrOP  ••OR"  CALL  PABORT 


EXTERNAL  SUBROUT  I NES/FUNCT I ONS  CALLED 


ERSUPS 

ERIOH 

ERCSF 

ERTRAN  a UNIVAC  SYSTEH  ROUTINE 


OVERLAY  restrictions 


XQT  a LOO  LABELLED  COHHON  (FORPROCSI  HUST  BE  IN  THE  ROOT  SEOHENT. 


INCLUDE  KONXQT.LIST 

EQUIVALENCE  I JHOY.LOROLO>  I PCT  SECTOR  - LOROLO.  . .UPCTfll.  . . .jACTfCS) 

INCLUDE  KONLOO.LIST 

INCLUDE  KOHIO.LIST 

01  HENS  I ON  HESAOECtl 

OIHENSION  JTERHI3) 

data  JTERH/*  ABORT*.*  ERROR* . *N0RHAL */ 

CALL  TRACE!  *PSTOA*l 

c 

c 

c 

e 

NTERH*S-NINOINOFATL.I ) 

00  TO  000 


N*tOO 


uuuu  ouou  uuoo 


DAN  PACKAOC  AmNOIX  N 
UTILITY  MOUTINCS 


nt» 

OOt 


e 

e 

e 

e 


CN 


iH 


CALL  TXACCt  ’PABORTM 
NTCRH-I 

ircnOATAC.NC.OI  MTCRN»C  « CRROII  INSTCAO  OF  ABORT  IN  OATA/CHCCKOUT  HOOC 


c 

e 

e MOusexeepiNo 
c 

BOO  CALL  CRTRANt  Y.NTeRHI  • PUT  TCRniNATtON  STATUS  IN  T3  OP  CONDITION  HORO 
IPfNCARO.OT.OI  CALL  CLOSC*»(  NCAROI  • TCHP  RECALL  PILE  USED  BY  READS 
CALL  OAT I HE 


WRITE  TERHINATION  ENTRY  IN  DAN  PACKAGE  LOG  PILE 
IPtLOTERH.LT.m  GO  TO  BEG 

ENCOOEISe.aSS.LBUPRt  JTERHfNTERNi . JHOYHN. NOPATL 

CALL  ERSUPS(LSUPR( 161  > A ACCUHULATEO  SUPS  (200  USCC  INCRI 

I0SIZEIL00PKTI«16 

lOSECTILOOPKTI-LOTERN 

IOPUNC(LOOPKTI«’aC*  • WRITE 

CALL  ERIOW(LOOPKT) 


WRITE  standard  TERHINATION  HESSAOE 

B20  WRITE(6.82S> 

BBS  PORHATI *0*/ *0*  I 

HRITEie.BSS)  JTERNINTERHt .UHOYHH. NOPATL 
B3S  PORHATdX.AB.'  TERHINATION’ .SX.3A6. 

I 3X.I2.’  PATAL  ERRORS’) 

MRITE(6.SSSI 
SSS  PORHATI’O’/’O’/’O’I 


WRITE  SPECIAL  TERHINATION  HESSAOE 
00  B70  NHOS*O.I8 

IP(HESAOE(NHOS»t I .EQ. *01  00  TO  8S0  8 STOP  WORD  IS  -0 

870  continue 
00  TO  800 

BBO  IP(NWOS.EQ.O)  00  TO  BOO 

WRITEIG.BBSI  (HESAOEIN) .N«l .NWOS> 

BBS  P0RHAT(l6A6i 
C 

c 

C TERHINATE 
C 

BOO  CALL  ERCSPfN.  ’OPREE.A  I.  . ‘I  0 RELEASE  ’OUSE  I.  . .’  ONLY 
IPINTERH.EO.BI  NTERN«S  0 00  NOT  USE  EXEC  8 ERRS  TERHINATION 
IPINOATAC.NE.OI  CALL  ERCSP(N.  ’OAOO  OAN.OATA-CHECK  . *) 

CALL  ERTRANI  NTERHI 


N'tBB 


o Aonn  A 


DAN  PACKAOC  AI>KNOIX  N 

uriLirv  ttouriNCi 


#trop 

oox 


RCTURN 


tuMouriNC  OATint 

CALL  CRTRANCR. JHOY.JHNSt 
riOCOO.  IR.JOHHI-rLOdt.lS.  JNOYi 

rLOnC.  t«.J0HNl«rL0(00.t».JHN8l 
rL0(e*».l8.J0NHi«rL0f  tC.tC.JHHSi 
CNCOoe ( I e . 1 00 . jhoyhh i jnoy . jonn . jhoy . jhhs . johh 

100  rORNATdX.Aa.  ’ / • ,A8.*/*.fl2.3X.A8.  *i  • .R8.iXi 
CNO 


N«C70 


nnonoonooono 


OAN  ^ACKAOC  APKNOIX  N 
UTILITY  ROUTINCt 


ratONR 

001 


ouoROuriNC  oxooHRt  • ouNO  oxooer  orcaholc  a lou/hioh  oin  valucs 
I iRxouri  0 ourrcR  in  Rxoocr  fornat 


N I STORY 


C N SCHLOSSCR  LCC 

J e CRISR  LCC 


It/OO/YO  RONTS/OeSION 
11/07/79  eooe/resr 


ncthoo 

CNCOOe  CONTCNrs  OP  PIXEL  SUPPER  PREAMBLE  ANO  PRINT  THEN  OUT. 
MACHINE -OEPENOENT  CODE 


NONE. 


EXTERNAL  REPERENCES 


ERPRNT  a PRINT  ON  TTY  OR  LINE  PRINTER 

caiNiT  a initialize  character  supper 

CSHIN  a CHARACTER  BUPPER  POR  INTEGER 

CBHCST  a CHARACTER  BUPPER  POR  CHARACTER  STRING 

INTEGER  NIHNC  a NUMBER  OP  INTEGERS  POR  NUMBER  OP  CHARACTERS 

INTEGER  LENCST  a LENGTH  OP  CHARACTER  STRING  OR  CHARACTER  BUPPER 


EXCEPTIONS 


I.  RESULTS  ARE  UNOEPINEO  IP  IPXBUP  IS  NOT  IN  PXBOEP  PORMAT. 


GLOBAL  DECLARATIONS 


INCLUDE  PXBDEP.LIST  a DEPINE  STRUCTURE  OP  PIXEL  BUPPER 
INCLUDE  ICBUPl.LIST  a DECLARE  CHARACTER  BUPPER 


LOCAL  DECLARATIONS 


INTEOER  IPXBUPfll 
INTEOER  IPXLO 
INTEOER  IPXHI 


a AROUNENT 
a VALUE  OP  LOU  BIN 
a VALUC  OP  HION  BIN 


e 


N«07l 


u u u u u u u u 


OMI  PACRAOC  APKNOU  N 
UriLITY  ftOUriNCt 


raiON^ 

oat 


ttOCCOURC 


CAtL  TRACC 


MINT  NANCt  or  riCLOS  IN  OUrPCR  rOCANOLC 
CALL  CRPONTM  .NI<»NCIT9I  . 

•*  RCCN  LINO  CHAN  QUAL  OINT  LOIN  LS/C  NOIN  Nf/C  NOIN  NOOA  LJOl  NJOl 
A LVAL  NVAL‘1 


CNCoor  coNrcNTs  OP  eupPCR  PRCAHeLC 


CALL  CeiNirilCOUPII 
CALL  C8HIN  ( I COUP  I . 
CALL  C8<*IN  (I court. 
CALL  C04IN  IICOUPI. 
CALL  COHIN  MCeUPI. 
CALL  COHCST IICOUPI . 
CALL  COHCSrilCOUPI . 
CALL  Ce*»lN  IICOUPI. 
CALL  COHIN  IICOUPI. 
CALL  COHIN  IICOUPI. 
CALL  COHIN  IICOUPI. 
CALL  COHIN  IICOUPI. 
CALL  COHIN  IICOUPI. 
CALL  COHIN  IICOUPI. 
CALL  COHIN  IICOUPI. 


IPJteuPIPXRCCNi  .1911 
IPXBUPIPXLINOI .1911 
IPXOUPIPXCHANI .19)1 
IPXOUPIPXQUALI .1911 
• • . I n . I III 
IPXOUPIPxeiNTI . I I I . IHII 
IPXBUPIPXLBINi  . I9M 
IPXBUPIPXLSANI .191) 
IPXBUr IPXHBINI . 191  ) 
IPXBUPIPXH8ANI . 191  ) 
IPXBUPIPXNOINI .19)1 
IPXBUPIPXNOOA)  . 19) ) 
IPXBUPIPXL JOI ) . 19)  ) 
IPXBUPIPXHUOl ) . 19) ) 


CNCOOe  CONTCNTS  OP  LOU  A HION  BINS 


IPIIPXOUPIPXBINri  .NC.  *CHR‘)  00  TO  MO 

CALL  OCriCCi IPXLO.  IPXBUPIPXBINS) . I IPXBUPIPXLBIN) ) ) 
CALL  oericci IPXHI . IPXBUPIPXBINS) . I IPXOUPIPXHBIN) ) ) 
00  TO  too 

MO  IPf IPXOUPIPXOINT) .NC. *Brr* ) oo  to  bho 

CALL  OCTBYTI IPXLO.  IPXOUPIPXOINS) . I IPXBUPIPXLBIN) ) ) 
CALL  OCTBYTI IPXHI . IPXBUPIPXBINS) . I IPXBUPIPXNOINI ) I 

00  TO  too 

tHO  IPIIPXOUPIPXBINTI.NC. 'INT'I  00  TO  MO 
IPXLO-IPXOUPIPXOINS-WPXlOINI 


IPXNI«IPXOUPIPXBINSo| *PXHOINI 


too  CALL  COHCSTIICOUPI. 

IPIlAOOl IPXLOl .OT.OOBOl 
IPtlAOOl IPXLO) .LC.OOOO) 
CALL  COHCSTIICOUPI. 
ipiiAOOtiPXNii.or.ooool 
IPI lAtSI IPXNI I .LC.OOOO) 


’.III. 11)1 

CALL  COHCSTIICOUPI . 

CALL  COHIN  IICOUPI. 

*.ll).ll)l 

CALL  COHCSTIICOUPI. 

CALL  COHIN  IICOUPI. 


IPXLO. 1 1 ) . IHI I 
IPXLO. IHI) 

IPXNI . 1 1 1 . IH) I 
IPXNI . IHI ) 


UTILITY  ROUTINCt 


I 


PXIONP 

out 


e PRINT  CNCOOCO  CONTCNTt  OP  tUPPCR  PRCANRLC 

c 

SOO  CALL  IRPRNTIt.NI«»NC(LCNCtT(ICtUPI.ROn.tCRUPtl 
C 

e 

C OONC 

e 

RCTURN 

CNO 


OM  MCKAOC  APWNOIX  N 
UTILirv  MUtlNCS 


l»K<»AII 

eei 


e 

e 


tUMOUriNC  I>X<IAN(  A MtOCr  PRCANILC  FOX  NOX  AN  f UNCORRCC TCO  NS«I  SUrrCR 
0 NNXXM.  I NXIOCr  rORMAT  MCANRLC 
0 irtTAT.  a I/O  tTATUt  COOCt 

* * NORNAL  CONRLCriON 

*COr*  DATA  OUTtlOC  riLC 


I HANRUr.  a Ntt  RIXCL  RUfrCR  IN  NOR  AN  RORNAT 
I Ntior.  a NUNtcR  or  intcocro  in  ourrcR 

I NCNAN  . a CNANNCL  NUNOCR 
I NtAOLO.  a LOU  AOJUtrCO  SANRLC  NUNOCR 
I NtAtNII  a NlOH  Aouuarco  SANRLC  NUNOCR 


NiSrORY 


c 

MARY 

TOMPKINS 

LCC 

07/27/79 

RCOUIRENENTS 

c 

J C 

CRISP 

LEC 

09/12/79 

ALOORITHN  OESION 

C 

J C 

CRISP 

LEC 

09/13/79 

aloorithn  coding 

NCYNOO 


acr  rxBOCr  rncahblc  rictos  as  roLLousi 

(RXeiNTI  • 'BYT*.  (PXNOOAi  * 129.  (PXNOINI  • 128.  (RXLJOII  • 0 
ANO  (RXHUOl*  - 0.  BASeO  ON  CHANNEL  NUMBER.  BUrrER  LENOrH.  AND 
NUMBER  or  OEriNEO  PIXELS  ASCERTAIN  THE  RANOE  OF  SAMPLES  IN  THE 
MAMBUr  BUrrER.  COMPARE  the  RANOE  OP  SAMPLES  REQUESTED  MITH 
TNC  RANOE  OF  SAMPLES  AVAILABLE  ANO  SETi  (PXLBINI . (PXLSAMI . 

(PXNSAMI.  IP  THE  NUMBER  OP  BYTES  IN  BUPPER  >•  SSB7.  THEN 

NPXIL  • PIBirCS  SSB9  A SSBBI  ELSE  NRXILi  • MINQI 3000.NBYIB-( I S*7**ll . 


BIN  UITH 

1ST 

BIN  UITH 

LAST 

BIN  UITH 

SIN  NUMBER 

SAMPLE  1 

OCPINCO 

1ST 

OEPINEO 

1ST 

AS  PUNCTION 

IN 

SAMPLE 

OEPINEO 

SAMPLE 

OEPINEO 

OP  SAMPLE 

AN 

•AN 

SAMPLE 

IN 

SAMPLE 

NUMBER 

BUPPER 

BUPPER 

AN 

AN 

AN 

BUPPER 

BUPPER 

BUPPER 

CNAN 

1 

I3*S9 

7 

13*79 

NPXIL*B 

I3*79*NPXIL 

-1  *9*13*79-7 

CNAN 

2 

13*69 

8 

13*73 

NPXIL *7 

I3*73*NPXIL 

-1  *S*I3*73-S 

CNAN 

I 

11*69 

3 

13*71 

NPXIL *2 

I3*7I*MPXIL 

•1  *S*l3*7l-3 

CNAN 

13*69 

1 

13*69 

NPXIL*0 

I3*B9*NPXIL 

-1  *9*13*69-1 

CNAN 

9 

13*69 

1 

13*69 

NPXIL 'SB 

I3*00*NPXIL 

-1  *3*13*69-1 

« 

lONORINO  LOU 

RESOLUTION  CHANNEL 

9 

IP  NUMBER  OP  BYTES  >•  2907.  TnCN  (PXOUALIt  • P( BYTES  S9S7I 
CISC  (RXQUAU  • •» 


NACNINC-OCRCNOCNT  CODE 


CxrCRNAL  RCPCRCNCCS 


N-B7R 


OMI  PACRAOC  AMCNOtX  N 
VmiTY  MOUrtNCt 


mpiAii 


Mtmr  • ocr  non-nco  intcocr  rnon  tYrc  in  xyyc  syrino 

OCYOtY  • OCR  NORoNCO  IRYCOCR  fRON  OUAORURLC  RYTC  IR  RYYC  SYRIRO 

IRYCOCR  RRRRI  • RURKR  QT  RYTCt  fOR  RUHMR  Or  iRYCOCRt 


CxeCRTtORt 


t.  ir  YRC  RCQUCtrce  tAHRkCt  ARC  IRtlOC  YNC  rikC  RUT  owrtioc  tnc 
•urrcR  ter  rxqual  • c.  mtAn.  rrhcah.  rxlcir.  rxncir.  aro 

RXNCIR  CQUAL  TO  ZCRO.  tCT  irtfAT  • *COr*. 
t.  If  TRUNCAriOR  or  RCQUCtrCO  CANRLCt  OCCUR  rXHSAH  IS  AOJUtreO 
ro  RcriccT  tnc  NiOHCsr  availaolc  rixcl. 

X.  ir  nrXRRCCRXOUALi  > S or  < O.  TNCR  HRXrRCtRXOUALl  • •» 


OLOtAL  OCCLARATIONt 


INCLUOC  KONXOr.Lltr  • eOHRON  PROORAH  CXCCUTION  SUirCNCS.  COUNTCRS 
iNCLuoe  Rxtoep.ktsr  a ocriNirioN  or  iNrcRNAL  aurrcR  structurc 


LOCAL  OeCLARAriONt 


iNrcoCR 

INTCOCR 

iNreocR 

iNrCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 


NANOurcNi  ten 

HRXRRC ( 1 1 

Ntvitr 

NRXtL 

ItYT 

IQUALO/OOOO/ 

I OUAL 1/0077/ 

IOUALt/0007/ 

IQUALl/0070/ 

Niororioi/7o.73.7i 

NtOtANISt/7.8.3.1. 

LSOrtT(9i/0.**.t.O. 


AROUNCNT 

AROUNCNT 

NUNOCR  or  ovret  in  i turrcR 

NUNtCR  OP  RIXCLO  IN  ONC  LINC 
VALUC  or  tYTC  IN  ovre  strino 


quality  • 0000  oata 

quality  • DATA  RAOCO  ON  SUROTITUTCO  LINC 

quality  • riLLCO  LINC  ON  INPUT 
quality  • riLLCO  LINC  ON  OUTPUT 
.09.00/  a NUNOCR  or  rytcs  oppsct 

1/  a NUNOCR  or  pirst  ocpinco  oahplc 

•09/  a LAOT  OAHPLC  OPPOCT 


PROCCOURC 


ocr  otatuo  ano  pointcro 

itotat  • • • 
npxprccpxquali  • •» 

RPXPRCIPXRINTI  • *RYT* 
RPXPRCtPXROOAl  • 100 

npxprcipxnoin*  • ita 

RRXPRCfPXLUOn  • 0 
RPXPRCfPXNUOII  • 0 


R'OTO 


DAN  MCKAOff  APKNOIX  N 

uruirv  RouriNct 


•cr  RceoRO  nunkr 

CALL  OCrQRYfNRXRIICCRxmeNt.  HARturiRXRINtl.il 


c eoHRurc  nunicr  or  tYTCt  in  turret  --  ir  AVAiLAtic. 
e OCT  ouAkiTY  eooc  AND  • or  rixcLt  ret  linc 
e 

Nivttr  • NtiNiiNiitri 
iriNOYtir.Lr.ttoYi  oo  ro  too 
e 

CALL  OCriYTMOUAL.  NAHtUrttXtlNtt  . 3SOYI 
imouAk.eo. louALOl  nrxrtccrxouALi  • o 

trtiQUAL.eo. iQUALit  nrxrftCcrxQUALi  - i 
irtlQUAL.CQ. IQUALOI  NrxrAe trXQUAl I •» 
iniQUAL.eO.  IQUALSi  NPxrAeirXQUALi  - 3 

c 

CALL  OertYTINrxiL.  HAMOurirxtINSI.SSOSi 
CALL  OertYTMOYr.  HAHtUr  I rxOINSi  . 3S08t 
NtXIL  • <NPXIL<0<«e>  * ItYY 

00  ro  too 


CLtc.  ter  NtxtL 

too  NRXIL  • NINOtSOOO.  (NOYlOr  • (t3*7<»lll 


C ter  LOW  ANO  NION  tAHtLCt  ANO  tINf 

c 

180  NrxrtCIPXLtAHI  • NAXOtHtAtLO.HtOtAHtNCHANn 

NrxrtetrxLtiNt  • HrxrtctrxLOAHi^nt^NtortriNCNANi i 'NiotAHiNCHANi 
NPXrtCCrXNtAHI  • NINO(NtAtHl.(NrXIL»LtOrtr(NCNANIII 
NtXrtCirXHtlNI  • NrxrtC(rXNtANI*f l3»NI0rSTfNCHANt l•NIOtAHINCHAN) 

c 

e 

e CHCCK  rot  teouctreo  tANPLCt  ourtioc  or  turret 
c 

too  irtNPxrteirxLtiNi  .Le.NtYitn  oo  to  no 
NtxrtecrxtiNTi  > *nul* 

NrxrtetrxQUAL*  > o 
NtxrtetrxLtANi  • o 
NrxrteirxMtANi  • o 
NtxrteirxLtiNi  • o 
NtXMetrXNtlNI  • 0 
irtTAT  • *eor‘ 

e 

too  terutN 

e 

eNo 


tXtAN 

tot 


N-t7t 


ou 


OAN  ^ACKAOC  AmNOlX  N 

uriLirr  nouriMct 


pmAR 

Ml 


•UMOUriNC  PXtIAfM  • ^XtKf  MCANtLC  rOR  HOR  AR  (UNCORRCCrCO  RRVI  iUrrCR 
0 RRXRRC.  • RXROCr  fORNAT  RRCAHRLC 
0 ITtfAT.  • I/O  tTATUR  COKt 

* * NOR  HAL  eONRLCnON 

*cor*  DATA  ourttoc  rue 


I NANRur.  • Ntt  RlXCk  iUrrCR  IN  NOR  AH  rORNAT 
I NIttr.  I NVHKR  or  INTCOCRO  IN  RurrcR 

t NCNAN  . • CHANNCL  NUNOCR 

I HtAOLO.  • kOM  AOJUfTCD  tAHRkC  NUNtCR 
I NtAOHtl  A NION  AOJUOrCO  SAHRkC  NUNOCR 


NitrORV 


NARY  rONRKINt 

kCC 

07/t7/7t 

RCQUIRCHCNTt 

kCC 

/ 

/ 

ALOORITHH  OCtlON 

kCC 

/ 

! 

AkOORITHN  cool  NO 

NCTNOO 


ITOTATi  • • • 

ter  RXROer  RRCANtLC  riCLOt  At  rOLLOUti 

iRXilNTI  • 'ivr*.  IRXNOOAI  • tCt,  IRXNOINI  • tCt.  (RXLJOM  - 0 
AND  (RXNJOn  • 0.  tAtCO  ON  lurrCR  kCNOTH.  CHANNCL  NUHRCN.  AND 
NUNOCR  or  oertNCo  rixckt  AtcctrAiN  thc  ranoc  or  tAHRiet  in  thc 
OUrrCR.  COHRARC  thc  ranoc  or  tANRkCt  RCQUCtreO  HITH  thc  ranoc 
or  tANRkCt  AVAIkAOkC  ANO  tCri  (RXLOINI.  IRXHtINi.  (RXLtANI . AND 
IRXHtANI.  ir  NUNtCR  Or  OYTCt  >•  ttOt.  THCN  IRXQUALi  • riOYTC  SStOt 
CktC  (RXO'JAkI  • •». 


CXTCRNAk  RCrCRCNCCt 


HOrATL  A RRINr/LOO/COUNT  TATAk  CRROR*  HCttAOCt 


CXCCRTIONt 


I.  ir  TNC  Rcouctrco  tANRkCt  arc  iNtioc  THC  rue  tur  ourtioc  thc 
OurrcR  ter  rxqual  • t.  rxlaan.  rrhcan.  rxloin.  rxhoin.  and 
RXNOIN  eouAk  ro  ccro.  ter  irtrAr  • *cor*. 
c.  ir  TRUNCATION  or  Rcouctreo  tAHRkCt  occur  RXHtAH  It  Aojutreo 
TO  RCrkCCr  thc  NIONCtr  AVAUAIkC  RlXCk. 

X.  ir  NRXRRCiRXQUAkI  > S OR  < 0.  TNCN  NRXRRCIRXQUAk I • N 


lONt 


N*tt7 


0*11  MCKAOt  AOOCNOIX  N 

uriLtrv  oeurtNCt 


omAO 

•M 


INCIUOC  KONXQT.LItr  • COMHON  AAOOAAN  CXCCUTION  tHiTCNCX.  COUNTCAS 

iNCiuoc  Axmcraiir  • ocrtNirioN  or  iNrcoNAt  iurrcn  trouerunc 


LOCAt.  OCCLAXATIONt 


tNTCOCA  HAHturtNttOri  • AAOUNCNT 


MOeCOUAC 


CACL  TAACC 

CALL  HOfATLC  *AXAAA  NOT  YCT  tNALCHCNfCO* I 
too  AC TUAN 
CNO 


N«*70 


I 


•Ml  MCRAtC  A#KNOI»  N 
HriLITT  WUTtNtt 


mpiMi 

••I 


tUMtOUTINC  AXAMf  • AXAOCf  MtCANfiC  fOR  NOR  RN  ICORRCeTCO  Ntfl  •urfCR 

• NRXRRC.  a raaocr  romiAr  miCANaLC 

• ITSTAT.  a I/O  tTATUt  COOCt 

e * NamiAL  eenALcnoN 

e *car*  data  ourtioc  rue 

• 

I imiaur.  a ma  rixcL  aurrcR  in  nor  an  roRNAr 
I Niiar.  a mmnn  or  intcocro  in  aurrcR 

I NCNAN  . a CNANNCL  NUNOCR 
I NtAtLo.  a LON  Aojuorco  oantlc  nunocr 
I NtAONII  a NION  AOJUtreO  oanolc  nunocr 


Nl STORY 


CNANLCa  NCLHKC 

LCC 

OY/07/70 

acouiacaeNTo 

u c caiaa  * 

LCC 

Oa/08/70 

ALOoai raa 

OCOION 

j c CRiaa 

LCC 

00/07/70 

ALOOaiTNN 

COO 1 NO 

NCTNOO 


iriTAT  . • 

scr  rxaocr  racANOLC  riciot  as  roLLOutt 

(rxaiNTi  > ’OYT'.  (rxNOOAi  > its.  cpxnoini  > tea.  irxMjon  • o. 
ANO  (rxaccNi  • no#  accoro  Nunaea.  conaurc  aojustco  arc.  ir  Nunaca 
or  arrea  in  an  aurrea  >•  isao.  tmcn  arc  • arc.  cite 
arci  • NAXocarc.isaO'Niiari .acr  irxLOiNi . taxHiiN* . laxLaAH). 
irxNSANi  or  rxaocr  raCANOtc  raoN  Lcrr  ruL  count  ano  aiOHT  rui 
COUNT  or  Nor  ra  racAHate  as  roLLOusi 


IN  ON  aurrea  in  ra  aurrea 

ON  aurrea  oin 

ASSIONCO  TO  SAHRLe  I 10*1  10*1 

1ST  ocriNCO  SANate  are*n  NAxo(Lrc*i.NaASLut 

aa  aurrea  oin 
containino 

1ST  ocriNCO  SAaaie  io*arc*ii  io*aAxo(Lrc*i.aaAaaii 

LAST  ocriNCO  OAHaLC  (iSAs-aoxi  aiNeiia«a«arc.aaAaNii 

aa  aurrcR  oin 

CONTAININO 

LAST  ocriNCo  OAHaLC  issaa«arci*io  NiNO(a8NO-are.HaAaNit*io 

aa  aurrcR  oin 
ASSIONCO  TO 

SANTLC  NUmCR  0 0*10  0*10 


N«OTS 


OAH  ^ACKAW  AP#«NOIX  N 

VTItUT  ffOUriNCt 


•M 


NACNINC-OCKNOCNr  COM 


CXTCRNAL  «CrCACNC(« 


MTIvr  a ACT  NON'MCO  IKTCOCA  mON  IVTC  IN  tYfC  tTNINO 

•CTNiT  a ocr  NM-NCo  iNrcacN  taon  nvilc 

otrotT  a OCN  non*nco  intcoca  taon  ouAOAunc  tyre  in  tyre  trAiNO 

INTCaCA  NtYNI  a NUKACA  Af  AYrCA  fAA  NUHACA  Af  INTCACAA 


CXCCATIANA 


I.  If  ACAuctreo  aanalca  aac  iNtioR  tnc  rue  aut  Awraioc  tmc 

AU'tTA  ter  AXAUAL  • A.  AXLtAH.  AKMtAN.  AXlAIN.  AXNAtN.  A lO 
AXHAiN  eauAk  TO  zeAA.  ter  irtTAt  • *cor*. 
t.  If  TAUNCATIAN  Of  AeAUetTeO  tANAket  OCCUA  AXHtAH  It  AOJUtteO 
ra  Aerkecr  tna  NiANetr  AVAUAaLe  Aixet. 


ALAAAk  AeCLAAATtONt 


iNCLuoe  KONxor.Litr  a cannon  anooaan  execurioN  twtrcNet.  eouKreat 
iNCkMoe  Axaoer.Litr  a oeriNirioN  or  iNreANAi  AurreA  trAucruae 


LACAk  OeCkAAATIktt 


INTeOCA  NAHAUriNI lArt 
INTeACA  NAXAAeftt 
INTCACA  lAUAk 
INTCACA  NAYIAT 
INTCACA  NANkre 
INTCOCN  NAHAre 
INTCOCA  lOUAkO/ASOO/ 
INTCACA  lAUAkl/OOtl/ 
INTCACA  lOUAkt/OOCa/ 
INTCACA  lOUAkS/ASSS/ 


a AAAUNCNTt 
a AAAUNCNT 

a ouAkiTY  eooc 
a nunaca  or  oytca  in  aurrcA 
a kcrT  rikk  count 

a AIONT  rikk  COUNT 

a ouAkiTY  • 0000  data 

a OUAklTY  - DATA  OAtCO  ON  tUOtTITUTCO  klNC 
a OUAklTY  • rikkCO  kiNC  on  inaut 
a OUAklTY  • rikkCO  kiNC  on  outaut 


AAOeCOUAC 


ACT  ATATUA  ANA  AAlNTCAt 

ITATAT  • * • 
NAXAACfAXOUAU  • A 
NAXAACIAXAINTI  • *AYT* 


N*CAA 


o u u u 


0AM  MACKAOC  AMKNOIX  N 
iiTiLiTv  nouriNCS 


MXUMN 

MS 


NMXMRCCPXNOOAI  • ttO 
HMXMMCCMXNOINI  • ISO 
NSXMIIC(SXLJOI)  • 0 
HSXMRCtSXHJOII  • 0 

C 

•« 

e scr  RccoRo  nunocr 
c 

CALL  OCraOYINMXMMeCMXReeNI  . Honour  tl»XB  I MSI  . 1 1 

e 
e 

c scr  QUALITY  eooe 
c 

CALL  OereYTMQUAL.  NOHBUrcOXBINSI  .91 
in IQUAL.CQ. lOUALOl  nOXPHC(PXaUAL)  > 0 
iniQUAL.CQ.  IQUALtt  HPXPRCIPXQUALi  • I 
in IQUAL.CQ. lOUALSI  HPXPRC C PXQUAL ) * S 
iniQUAL.CQ.  IQUAL3I  HPXPRC  (PXQUAL  > • 3 
C 

c 

c scr  Lcrr  pill  count 
e 

CALL  OCTBYTCnPHLrC.  NPHOUnPXeiNSt . lOt 
CALL  OCTNYBCNYBLC.  HPHBUPCPXBINSI . 1 1 . 1 1 
HPHLPC  • (nPHLPC«S**<»l  ♦ NYBLC 
C 
C 

C scr  RIOHT  PILL  COUNT  ANO  ADJUST  IP  NCCCSSARY 

c 

CALL  OCTNYBCNYBLC.  HPNBUPCPXBINSI . 1 1 .SI 
CALL  OCTBYTCIBYT.  HPNBUPCPXBINSI . IS) 

HPNRPC  • (NYBLC«S«*BI  « IBYT 
NBYIBP  • NBHNI (Nl IBP) 

IPINBYIBP.LT.SSBO)  HPNRPC  • HAXOC HPNRPC. 3960 -NBYIBP I 

C 

c 

C scr  POINTCRS  TO  LOU  ANO  HlOH  SANPLCS  ANO  BINS 
C 

HPXPRC I PXL 8 AH I ■ HAXO (HPHLPC* I .NSASLO) 

HPXPRC (PXLB IN)  > NPXPRC(PXLSAN)  * IS 
HPXPRC (PXHSAHI  - NINOCSSIS-HPHftPC.HSASHI I 
HPXPRC (PXHB IN)  • HPXPRC (PXHSAHI  * IS 


CHCCK  POR  RCQUCSrCO  SANPLCS  OUTSIOC  OP  BUPPCR 

SSO  IPIHPXPRC(PXLBIN) .LC.NOYIBPI  00  TO  900 
HPXPRCIPXBINTI  • *NUL* 

HPXPRC I PXQUAL I • 9 
HPXPRC (PXL 8 AH I • 0 
HPXPRC (PXHSAHI  • 0 
HPXPRC (PXLB IN)  • 0 
HPXPRC (PXHB INI  • 0 
irSTAT  • ‘COP* 

c 

BOO  RCTURN 


N*SB1 


OAN  MCKAOC  AMCMOIX  N 

uriLirv  RouriNCt 


c 

CNO 


»x«ra 

00« 


UUOUUOOUUOOOOOUUOUOUUUUOUOOUUUWUUUUUUUOOUUUtoU 


OAN  PfCKAOC  AmiiOIX  N 
UriilTT  ROUrtNCS 


PV^Mt 

OOt 


sumouriNC  Px«Mt  a meoer  pncanblc  rox  hop  px  (coxxerreo  xevi  surrex 
0 NPxpxc.  a pxxoer  poxnat  pxcahslc 
0 irsfAT.  a I/O  srarus  coocs 

* * NOXMAl  COnPLCTION 

*cop*  DATA  ourstoe  pue 


I HPXiup.  a ms  PixcL  oupppx  in  nop  an  poxnat 
I NItOP.  a NUHBCX  OP  INTCOeXS  IN  OUPPCX 

I NCNAN  . a CHANNCL  NUH8CX 
1 NSASLO.  a LOW  AOJUtreO  sahplc  nuhbcx 
I NSASNit  a nion  Aojusreo  sanpcp  nuhscx 


HISroXY 


HAXY  TOHPKINS 

LCC 

07/07/79 

REQUIREMENTS 

J 

C 

CRISP 

LCC 

09/05/79 

algorithm 

OESION 

J 

c 

CRISP 

LCC 

09/07/79 

algor 1 thm 

COOING 

mcthoo 


itstat  • • •. 

SCT  PXeOCP  PRCANBLC  FtCLOS  AS  POLLOUS: 

(PXBINTI  • *BYT*.  (PXNOOAI  - IBS.  (PXNOIN)  - IBS.  (PXHJOl > - 0. 

ANO  (PxxecNi  • HOP  xecoxo  NUHsex.  conputc  aojustco  rpc.  ir  number 
OP  BYTES  IN  PX  supper  >-  3337.  THEN  XPC  • RPC.  ELSE 
XPC:  • NAX0CAPC.S33*»>Nl  IBP)  .SET  (PXLBI  N)  . (PXH8I  N>  . (PXLSAH). 
rpXHSANI  OP  PXBOEP  PREAMBLE  PROM  LEPT  PILL  COUNT  ANO  RIGHT  PILL 
COUNT  OP  HOP  PX  PREAMBLE  AS  POLLOHS: 

XEQUESTEO  ANO 

IN  PX  BUPPEX  IN  PR  8UPPER 

PX  BUPPEX  BIN 

AS8IONEO  TO  SAHPLC  I 10*1  10*1 


1ST  OCPINCO  SAHPLC 

PX  BUPPEX  BIN 

CONTAININO 

1ST  OCPINCO  SAHPLC 

LAST  OCPINCO  SAHPLC 

PX  BUPPCX  BIN 

CONTAININO 

LAST  OCPINCO  SAHPLC 


«LPC*l» 


NAXOILPC*! .HSASLO) 


tO*(LPC*l)  IO*HAXO(LPC*l .HSASHI I 

(S3SR-X0XI  HIN0<S33*»-XPC. HSASHI  ) 


(S33H>XPCt*IO  HIN0(S33H-XPC. HSASHI 1*10 


PX  BUPPCX  BIN 
ASSIONCO  TO 

SAHPLC  NUHBCX  S S*IB  S*lf 

IP  NUHBCX  OP  BYTCS  >•  S337  TNCN  fPXOUAD  • PIBYTC  S337I.CISC 

fPXQUALI  • •». 


uuuououououuuuuu 


OAN  PACKAOC  A»#CNOIX  N 

uriLirv  ROuriNCs 


Mum 

00* 


e 

c 

e 

c 

c 

c 

c 

e 

c 

c 

e 

e 

c 

c 


NACNINC-OCKNOCNT  COOC 


NOMC 


CXrCRNAL  NCrCRCNCeS 


ocroYt  • ocr  non-nco  intcocr  froh  ovrc  in  oytc  string 

ocrooY  • ocr  non-nco  intcocr  pron  ooublc  oytc 

OCrOBY  • OCN  NON-NCO  INTCOCR  PROH  OUAORUPLC  OYTC  IN  OYTC  STRING 

INTCOCR  N8HNI  • NUHOCR  OF  OYTCS  FOR  NUH8CR  OF  INTCOCRS 


CXCCPTIONS 


I.  IF  TNC  RCQUeSTCO  SANPLCS  ARC  INSIOC  THE  FILE  BUT  OUTSIDE  THE 
BUFFER  SET  PXQUAL  - S.  PXLSAH.  PXHSAN.  PXLBIN.  PXHBIN.  ANO 
PXHBIN  EQUAL  TO  ZERO.  SET  ITSTAT  • ’EOF*. 
t.  IF  TRUNCATION  OF  REQUESTED  SAMPLES  OCCUR  PXHSAN  IS  ADJUSTED 

TO  reflect  the  highest  available  pixel. 

3.  IF  NPXPREI PXQUAL I > 3 OR  < 0.  THEN  NPXPRC (PXQUAL I - H 


GLOBAL  declarations 


INCLUDE  KONXQT.LIST 
INCLUDE  PXBOEF.LIST 
C 
C 

C LOCAL  DECLARATIONS 


C 

c 

INTCOCR 

integer 

INTCOCR 

INTEGER 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

C 

c 

C PROCCOURC 

C — 

c 


NPRBUFINI IBF) 

NPXPRC 1 1 1 

IQUAL 

NBYIBF 

HPRLFC 

NPRRF( 

lOUALO/OOOO/ 

IQUAL I ^0077/ 

IQUALf/0007^ 

IQUAL3/007Q/ 


CALL  trace 
C 

c 


• CONNON  PROGRAM  CXCCUTION  SNITCHES.  COUNTERS 

• definition  of  internal  buffer  structure 


a arouncnts 
a arounent 
a quality  code 
a NUMBER  OF  BYTES  IN  BUFFER 
a LEFT  FILL  COUNT 
a RIGHT  FILL  COUNT 

a quality  - GOOD  data 

a quality  - data  based  on  substituted  line 
a quality  - filled  line  on  input 
a quality  - filled  line  on  output 


N-«ON 


noon  onoo  onoo 


OAH  PACKAOC  APKNOIX  N 
UrtilTY  ROUrtNCt 


RXi»M 

003 


e OCT  orATuf  ano  rointcrs 

e 

ITOTAT  • • • 

HRXRRCCRXQUALI  • •» 

NRXRRCtRXilNT)  • *4VT* 

NRXRRCfRXNOOAl  • ttO 
NRXRRCtRXNOtNI  • ISO 
NRXRRCfRXLJOn  • 0 
HRXMCtRXHJOn  • 0 

c 

c 

c ser  RccoRo  nuhocr 
e 

CALL  OCTQBYCNPXPftetPXReCNI . NPftSUriPXBtNSI . t I 


ser  LEFT  FILL  COUNT 

CALL  OCTOBTIHPRLFC.  NPRBUF C PXBI NS ) . 9 1 


ser  RIGHT  FILL  COUNT  ANO  ADJUST  IF  NECeSSART 

CALL  OerOBYCNPRRFC.  HPRBUFC PXBINSI . I 1 1 
NBVIBF  • NBNNI (Nl IBFI 

IFINBYIBF.lt. S3371  HPRRFC  • HAXO  < HPRRFC . 533>» -NSY 1 8F t 


SET  quality  code,  if  available 


IFINBYIBF.lt. 93371  00  TO  100 
CALL  OETBYTIIQUAL.  HPRBUFIPXBI NSI .9337) 
I F 1 1 DUAL . EQ . I QUAL  0 > NPXPRE ( PXQUAL I > 0 
IFtlQUAL.EQ.IQUALI)  NPXPRE (PXQUAL I • t 
IFIIQUAL.EQ. IQUAL2)  NPXPRE ( PXQUAL I -2 
IF( IQUAL.EQ. IQUAL3)  NPXPRE (PXQUAL)  - 3 

C 

c 

C ser  POINTERS  TO  LON  ANO  NlOH  SAHPLES  ANO  BINS 

c 

too  NPXPRE (PXLSANI  - HAXO ( NPRLFC^I . NSASLOl 
NPXPRE (PXLBINI  • HPXPRE(PXLSAHI  • 12 
NPXPRE (PXNSAHI  « NlN0(S33>»«NPRRFC.NSASHn 
NPXPRE (PXNBIN)  • NPXPRE (PXNSAHI  « 12 

c 

c 

C CHECK  FOR  RCQueSTEO  SANPLES  OUTSIDE  OF  SUFFER 

C 

290  IF(NPXPRE(PXLOIN) .LE.NSYIBFI  00  TO  BOO 
NPXPREIPXBINT)  - *NUL* 

NPXPRE (PXQUAL I • 9 
NPXPRE I PXLSANI  • 0 
NPXPRE (PXNSAHI  • 0 
NPXPRE (PXLBINI  • 0 
NPXPRE IPXHB INI  • 0 
ITSTAT  - *eoF* 


N>2BS 


MN  MCKAOC  Af>KNOIX  N 

Mmirv  ftouriNCt 


l»X*M 

M* 


e 

too  MCrURN 
e 

CNO 


N*>ta 


DAN  PACKAOC  AMCNOtX  N 

umm  RouriNCs 


tUMOUriNC  QUAOt 
t XVAL. 

I TVAL. 

0 A. 

0 •. 

0 e. 

0 xTRcnct 

c 

e ' 

e CH  L IMOUNI 

e 
c 

OINCNSION  XVALI 1 1 .YVALI I I .XTACHCdi 
00U8LC  AACCISION  X( 31 . Y( 31 . OCL . AA.8S.CC 
CALL  TRACe 
C 

DO  too  1*1.3 
X(|t*XVALm 
too  Ym*YVAL<n 
c 

OCL*Xlt l••8•(X(^l-X(3t  t-X( t >• 

I txt*l*«f-xe31*«8»  *(X(2)««8«XI3>  « 

8 -X(3I**8*X(8> 
iriOCL.NC.OI  00  TO  800 
CALL  HOUARNf ‘OerCRNINANT  * 0 IN  QUAD* I 
00  TO  900 
c 
e 

C CALCULATE  FIRST  COCrr  OF  QUADRATIC 

c 

800  AA*YI  tl•(X(8l-X(3n-xm•(Yt8l 
|•Y(3I i *1 YI8I*X(3I -YI3I *XI8ll 
irCAA.NC.OI  00  TO  300 

CALL  NOHARNC 'EXTREHUN  UNOEFINEO  IN  QUAD* I 
00  TO  900 
C 
C 

C CALCULATE  SECOND  COCFF  OF  QUADRATIC 

e 

300  •D*Xlli««8*TT(8l«YC3>l>Y(|M 

1 (X(8)*«8-X'3>*«8I *X(8I«*8«YI3> 

8-XI3I ••8«YI8I 

C 

c 

C CALCULATE  THIRD  COEFF  OF  QUADRATIC 
C 

CC*Xm*«8«CX(8l«Y(3>*X(3l«Y(8n-X(|l«fX(8l**8*YISi 
I •XISI*«8«Y(8i l*Y( I I « 1X181 «*8*XI3I-X( SI<<8<XI8I  I 
A-AA/OCL 
i*ii/OCL 
e*ce/ocL 
c 
e 

c OCrCRNtNE  X VALUe  AT  EXTRENUN 

e 

xrRCNC**M/(t.<AAI 


0 rir  Y • A«x««>  ♦ t«x  * c A solve  for  cxtrenun 

• ARRAY  CONTAINS  S VALUES  OF  X 
0 ARRAY  CONTAINS  S VALUES  OF  V 
t A COEFFICIENT 

• i COEFFICIENT 
0 C COEFFICIENT 

0 X VALUE  AT  EXTRENUN 


aiMO 

SRI 


OAN  PACKAOC  APMNOtX  N 
UTIUTY  ROUrtNCS 


QUAD 

Mt 


e 

e 

•00  OCTURN 
CNO 


N-Cii 


OAN  PACKAOC  AMCNOU  N 

urttiTv  RouriNCt 


c 

c 


RCAL  rUNCriON 

0 • NORHALIZCO  QUARriHAX  ttOfAriON  CAirCRlON 


• OUARTNC 
t ANAT. 

( NNUtC.NeutC. 

( NAOIN.NCOIN. 

( NCtraO.NCtMOi 


A tlNOLC  ANCeitlON  HATNIX 
• NUNICR  or  RONS  A eOLUNNO  UtCO 
I NUNiCR  or  ROMO  A COLUHNO  OiNCNtlONCO 
A eOLUNN  NUntCRO  or  COLUHNO  ro  RRoceot 


(C  N tCNLOSSCRI 


OINCNOtOH  ANArtNROIN.NCOint 
CALL  rRACC 


QUARTN>0. 

00  AHO  NR*I.NRUSC 

QUARTN-QUARTN^CANAr INR.NCIPROI •*«*ANAr(NR.NC2PR0l ••HI / 

A (ANAriNR.NCIPROM^e*ANAr(NR.NCAPROI  ••A)  ••A 

AHA  continue 
RE  TURN 
ENO 


OUARTN 

001 


N«AM 


DAN  PACKAOC  AWCNOIX  N 

umirv  RouTiNct 


c 

c 


ACAL  rUNCTlON 

0 a UN'NORNALIZCO  QUARTINAX  ROTAriON  CAITCRION 


• OUAATUI 
1 AHAT. 

C NRUaC.NCUtC. 
f NROtH.NCOin. 

( NCtPAO.NOMOl 


a tlNOLC  MCCtttON  HATRIX 
a NuniCR  or  rohs  a colunno  uaco 
a NUNRCR  or  ROMS  a colunns  oinCNtiONCo 
a eOLUNN  NUHRCRO  or  COLUHNS  to  RROCCSt 


(C  N SCNLOtSCRI 


OlNCNtlON  AHArCNROIN.NCOINi 
CALL  TRACe 


QUARTU-0. 

00  a<»o  NR«t.NRuse 

OUARTU«QUARTU*AHAT ( NR. NC 1 PROI • «H  t ANAT  f NR. NC2PR0I • «H 

e<»o  ccNTiNue 

RCrURN 

CNO 


QUARTO 

001 


OAN  ^ACKAOC  APMNOIX  N 

utility  AOUriNCt 


iiosta 

Ml 


•UMOUTINC  AOMILC  • RCAO/CONVCAT  tlL  rOANAT  TAOH  TAAC  TO  AXtOCr  fOAHAT 
0 NAXtUr.  A Nt«  AIXCL  AUffCA  IN  AXtOCT  rOANAT 
f NMIAF.  A NUNACA  Of  UOAOt  IN  I tUrrCA 

0 IATAT,  a I/O  tTATUt  COOC  * ' NOANAL  CONKCTION 

*cor  * CNO  or  rac  oa  Acoutorco  data 
our  or  rac 
*OAOA*  UAO  ACCOAO 
*UAor*  UAO  rac 
*orL  * uurrcA  ovCArLOu 

• 

1 NtaiN.  A NOf  AOJUtrCO  LINC  NUNOCA 
I NCNAN.  A CNANNCL  NUNiCA 

I HSASLO.  A LON  AOJUCTCO  AANALC  NUHOCA 
I NSAONI)  A NION  AOJUATCO  AANALC  NUHOCA 


Ml  STONY 


CNAALCS  HCLNKC 

LCC 

07/C9/79 

ACQUIACNCNTS 

N 

A 

TONAKINS 

LCC 

09/OS/79 

ALOOAITMN 

OCSION 

N 

A 

TONAKINS 

LCC 

09/07/79 

ALOOAITHN 

cool  NO 

NCTHOO 


CNCCK  NAALIN  <•  0 AND  NHI Ar< t AXAINS*St . IT  TAUC  ACTUAN.  CISC 
eoHAurc  oiACcrioN  and  nuhaca  or  accoaos  to  nove  tapc  to  acqucstco 
SCAN  LINC  ANO  CNANNCL.  IT  COr  IS  CNCOUNTCACO  HNILC  NOV I NO  TAAC 
CALL  CATSHA  rOA  NCXT/AACVIOUS  TAAC.  ACAO  ACCOAO  INTO  HAXOUr.  SCTt 
rXNOIN>ICA.  AXN00A«I»9.  AXLJOI-O.  AXHJOI-0.  AXilNr«‘SYT*  ANO  ACHAIN- 

OCA  or  ourrcA  aacahalc  aointcas  toa  that  aaat  or  acoucstco  sahalc  aanoc. 
ir  ANY.  unich  is  INSIOC  THC  riLC. 

HACNINC'OCACNOCNT  cooc 


NONC. 


CxrCANAL  ACrCACNCCS 


CATMAT  A TINCO  WAIT  UA  TO  TO  SO  SCCONOS 
OCTQOY  A OCT  INYCOCA  ANON  OUAOAUALC  OYTC  IN  BYTC  STAINO 
NOrATL  A AAINT/LOO/COUNT  ‘AATAL  caaoa*  ncssaocs 

rSHAAS  A SNAA  TAAC 

AXNAN  A AXSOCr  AACANSLC  AOA  NOA  AN  lUNCQAACCTCD  NSS*  SurrCA 

AXNAN  A AXSOCr  AACANSLC  AOA  NOA  AN  (COAACCTCO  NSS I SUAACA 

AXAAA  A AXSOCr  AACANSLC  AOA  NOA  AA  tUNCOAACCTCO  ASVI  SUAACA 

AXAAA  A AXSOCr  AACANSLC  AOA  NOA  AA  (COAACCTCO  ASVI  SUACCA 

NONOrC  A ANINT/LOO  *NOTC*  NCSSAOCS 

DOUBLC  AACCISION  CSS*»IN  A VAAI A0LC»LCN0TN  (<«S  CMAAi  STAINO  AOA  INTCOCA 


N*CSI 


OAN  TACKAM  APPCNOU  N 

umirv  RourtNCt 


wniL 

oot 


c«eci>Tioiit 


I.  TNC  roLiOHiNO  cxecPTioN  eoNOtrioNt  Moouec  thc  ourrwrt  snohn  tCLoui 
eoNOiTiON  nraeur  n^xiur  NAxiur  nMtur  itrAr  oiAONOtrte 

(raaUALt  IPICLtANt  lAXLtlNI  (AXNOINI 
(MNtANI  lAXMlINI  (AXNOOAI 

NNtir<iMiiNS*9t  uNOcriMCo  uNocriNCo  unocriNCO  unocrtuffo  ‘OfL*  NorAn. 


HtALlN.LC.O  • 0 

LOST  potmoN  (*LOtr*i  9 0 

RCC  NOT  IHAOC  9 0 

9A0  rue  -3  0 

9A0  NCC090  « 0 

UNCxrccTco  cor  o o 

9CQUC9TC0  9AN9LC9  IN9I0C  9 0 

rue  9ur  oursioc  xurrcR 
Neee99ARY  tapc  not  srcci-  9 0 

rico  ON  AStlON  CARO 
N9ARCC.OC.LUmOCLUSVOLt  9 0 

•TtRTOL  AND  N9AReC<LUSRL0 
RCCORO  rORRAT  NOT  9 0 

turroRreo 


uNOcriNCo 

•cor* 

NOrATL 

uNocriNCo 

*OAOR* 

Queueo 

» LINC 

NONorc 

# 

UNOCriNCO 

•OAor* 

QUCUCO 
• LINC 

noNorc 

0 

UNOCriNCO 

*OAor* 

NONC 

UNOCriNCO 

*9A0R* 

NONC 

UNOCriNCO 

•cor* 

QUCUCO 
* LINC 

nONorc 

0 

UNOCriNCO 

•cor* 

NONC 

UNOCriNCO 

•cor* 

QUCUCO 
* LINC 

HONOrC 

0 

uNOcriNCo 

a a 

NONC 

uNocriNco 

•OAor* 

NOrATL 

C.  ir  truncation  or  RCOUCOTCO  tAHRiet  occur  RXHSAH  It  AOJUtTCO  TO  RertCCT 
TMC  NIONCtT  AVAUAILC  RlXCL. 


0C09AL  DCCLARATI0N9 


INCLUOC  KONXOT.kItT 
INCLUOC  KONLU1.1.I9T 
INCLUOC  RXIOCr.LItT 
INCLUOC  KOHlO.LIfT 
INCLUOC  KOHNCR.LitT 


• CONNON  MOORAH  CXCCUTION  9UITCHC9.  C0UNTCR9 

• rackct/rointcrc  rOR  unit  s 

a ocriNiTioN  or  intcrnal  ourrcR  strulturc 
a rORTRAN  NANIRULATION  or  AttCnOLCR  I/O  rackcts 
a CONHON  CRTt/fCCNC  RARANCTCRt 


LOCAL  0CCLARATI0N9 


INTCOCR  NRXtUriNWIOrt 
INTCOCR  HtARCC 
INTCOCR  RVRCe 
INTCOCR  NVOIR 
INTCOCR  NLOtr 


e 

c 

e 9R0CC0URC 


a AROUNCNT 

a RCCORO  NUNtCR  rOR  N9ALIN  A NCHAN 

a NUNOCR  or  rccoroo  to  nov 
a OIRCCTION  to  novc  TARC 

a NUNKR  or  ATTCNRT9  TO  LOCaTC  RCQ(«tTC0  RCCORO 

a NNCNONic  roR  octal  too  mhaoc  rcc  ttrci 


N«COt 


nnnoAon  nnno  n n nnoA 


OM  ^ACKAOC  AmnOtX  M 

wriLiTv  muriNCt 


ROMli 

•01 


c 

e 

NLOtr«0 

IOMAimuSMTt«0  A NO  TINCO  HAIT  iCTMCCN  MAO0 


QcrcimiNC  ir  ourrco  tt  aocquatc  to  contain  nncaniic 

irCNOOtNtALIN.fOl.CO.OI  CALL  TNACCCCOtNINtNiAt. tN.01  > 

10TAT«*Ori* 

If  tNHICr.LT.(NX0lN0*0nCALL  NOfATL ( *HNX0Wr  TOO  SNAIL  IN  NOStlLM 
ir  INHItr.LT.IM0INS*8n  00  TO  too 

lfTAT»*tor* 

tr  INtALIN.LC.OI  CALL  NOfATL ( *Nf At  IN  <•  0 IN  NOSilL*! 
tr  INSALIN.LC.O*  00  TO  tOO 


coNNurc  RceoNO  At  ruNcrioN  or  inrut  scan  linc  ano  cnanncl 

NtAme«(NtALIN*l  >«NCNCHA*NCNAN 


OCrCNNiNC  If  tarc  SMAR  is  NCCCSSANV.  NOTCi  in  tmc  casc  that  tmc 
NCOUCSTCO  NCCONO  IS  ON  A RNCVIOUS  TARC.  TMC  NCOUCST  (I.C.  TaRC  SUARI 
IS  NOT  NONONCO  UNLCSS  TnC  NUHtCN  Of  NCCONOS  ROLLOHINO  THC  NCOUCSTCO 
NCCONO  IS  ONCATCN  THAN  A SCT  TOLCNANCC  (TSNTOLI. 

ISO  ir  I NSANCC.LC.LUSNNI ILUSVOLI  .ANO.  NSANCC.OC.LUSNLOILUiVOL * > 

A 00  TO  CNO 

If  t NSANCC.Or.LUSNNKLUSVOLI  > 00  TO  COO  0 SUAR  RONUANO 
If  I NtANCe.LT.lUSNLOaUSVOLt-rSNTOL  I 00  TO  COO  0 SMAR  tACKHANO 
00  TO  too 
c 

C LOCATC  TARC  that  CONTAINS  NCCONO 

c 

coo  00  CCO  1*1. t 

LUIVOL*! 

If  I NSANCC.OC.LUSNLOaUSVOLt  .ANO.  NSANCC.LC.LUSNNI  (LUSVOL I * 

0 00  TO  CSO 
CCO  CONTINUC 

CALL  NOrATL I ’NCOUCSTCO  LiNC* .CtSNININSALIN.t* . 

0 * NOT  ROUND  IN  LUSilL** 

00  TO  too 

CSO  CALL  TtNARS«ITSTAT.f.;;V0L> 

IR  MTSTAT.NC.'  *'  CALL  N0N0TC<  ‘i  TARC  iONTAINlNO  LINC  «•*. 

S CttNlNINtALIN.tt .*  NCr  ASSIONCOi*  * 

IR  lITtTAT.NC.*  *100  TO  tOO 
C 

c 

C CONRUTC  OINCCTION  ANO  NUNtCN  OR  NCCONOS  TO  NOVC  TARC 
C 

CNt  00  Ntt  l-l.c 

NVNCC-NtANCC  HUSNOR 
IR  INVNCCt  Ctt.CTO.Cti 


Ann  A 


( 


MR  RACIUM  ARRCROIX  N ROMIk 

RTU.ITT  ROIfftRCt 


CAtc  or  RVRce  nco 

too  RVRCe«NVRffC*l  • WCORO  iffOM  RtOMOTCO  NCeo«0 

If  CRVOIR.NC.-II  CAiL  CRTHAritOOOi  • RCVCRtC  lArCO  CARCrULkT 
RVOIR«-l 
00  TO  >00 

c 

c 

e CAtc  or  Nviite«o 
e 

070  nvocc *071100 >t  0 Rceoiio  ocrooc  ocouctrco  occooo 

ir  (ovoio.NC.-ti  CAkk  oorMArtcoooi  • rcvcaoc  TAOCt  CAiicruL;.Y 
nvoio**t 
00  re  ISO 
e 
0 

c CAte  or  HvRce  roe 
c 

too  CONTtNUC 

tr  iNvom.NC.  II  CALL  coruAritooot  • rcvcooc  rAOCs  CARcruLLv 

e 

nvoiR*i 

c 

e 

0 OCAO  RceoRCtfi  until  noqucotco  nccoao  It  IN  ourrcR 
e 

ISO  DO  700  HV  • HVOIN.HVOCC.NVOIA 

LUSROr*LUtAOr»NVOtN 

CALL  iisnicc(Nrxouf<rxotNti.iNuior>rxoiNt*n.ttTAT.  nvom. 
0 000.100.00* 

iriiotAr.cQ. *cor*i  call  nonotci 
I *(  uNCxrccrco  cor  uhilc  rcaoino  to  lino  •*. 

0 C0S7INtNSALIN.0t.*t*l 

ir  iisrAT.co. *cor*i  oo  ro  770 
in iotat.co. *OAor*i  oe  to  too 
700  continuc 

ir  iLumor.cQ.NOAiiccioo  ro  700 
700  continuc 

CALL  HOrATL  ( ’ iLUIROrONOANCC i tCCONO  ATTCHAT  IN  A010IL  >*  I 
00  TO  000 

c 

c 

c RCCovcRY  MoccouRC  roN  UNCxACCTCo  *cor* 
c 

770  ir  INVOIO.CO  II  LUlll0r*LUt«N|fLUX70L* 
tr  INVOIR.CO.'II  LUSII0r*LUlNL0ILUI70Lt-l 
NV0III*-NV0IR 

CALL  osTRce(NrxounrxoiNsi.iNHior«rxoiNO«it.iOTAT.  nvoir. 

0 000.100.00* 

NLOOT*NLOOT*t 

ir  tNLOOT.LC.OI  00  TO  ISO 

IOTAT«*COr* 

00  TO  000 


N>007 


o o o o o o o o n o o o 


N 


Nona 

aos 


OAN  ^ACKAOC  APKNOI 
utility  ROUriNCt 


e 

c eoNRurc  currcnt  linc  in  turrcn 
e 

«tO  LU3Lir«(LU3Rir>IWNeNCNA  ♦ I 


CNCCK  rOR  NONRCCOVCRARLC  RCAO  STATUS 

tr  (ISTAT.CQ. *LOST*l  CALL  HONOTrt'tAT  LINE  •* .C8S<»IN(NSAL INI . 
S *ORCRATQR  INOUCCO  LOSTI * I 
tr  (ISTAT.ea. *LOST*l  ISTAT«*SAOr* 
tr  (ISTAT.CQ. ‘RAOr* I 00  TO  SOO 


OSTAIN/VCRirv  TAPC  TYPC  ANO  RCCORO  NUNBCR 

CALL  OCTBYTINRCCTY.  HPXBUr(RXBlNSI .61 
IPtNRCCTY.CQ.OSSSi  00  TO  H8S 

CALL  nONOTC(  *(  NON-INAOC  RECORD  HHILC  REAOINO  TO  LINE  •*. 
I C8S*»IN(nSALlN.SI  . *1  * I 

tSTAT  • ‘BAOr* 

00  TO  800 

•»B8  CALL  OETQBYdREC.  NPXSUF (PXBlNSi  . I > 

IP  (LU3RBP.EQ. IRECI  00  TO  SOO  0 RECORD  IS  RCQUCSTEO  RECORD 
IP  (ISTAT.EQ. *BAOR‘l  00  TO  ISO 


RECOVERY  PROCEDURE  POR  'LOST'  WITH  '0000'  STATUS 


LU3RBP«IREC  a SET  CURRENT  RCCORO  IN  BUPPCR 
NL0ST-NL0ST»I 

IP  (NLOST.LC.ai  00  TO  ISO  a ATTCHPT  TO  LOCATE  RCCORO 
ISTAT»*BA0P' 

00  TO  SOO 

c 

c 

C RECOVERY  PROCEDURE  POR  'LOST*  UlTH  'BAO'  STATUS 
C 


•»80  CALL  TRCCVR( ISTAT.  NPXBUP(PXBINSI . (NHtBP>PXBINS«li .HSARCCI 
IP  ( ISTAT. NE.*  *1  00  TO  SOO 
NL0ST«NL08T»I 

IP  (NLOST.LE.ai  00  TO  ISO  a ATTCNPT  TO  LOCATE  RCCORO 
SOO  IP  ( ISTAT.CQ. *BAOR* I 00  TO  900  a RCCORO  RCQUCSTEO  IS  A BAO  RCCORO 


c 

c 

C establish  PRCAHBLC  op  BUPPCR 

c 

IP  (LUSRCPdt.NC.  *AN*I  00 
CALL  PX**AH(NPX8UP.ISTAT. 
00  TO  SOO 

SIO  IP  (LUSREPdI.NC.  *PN*I  00 
CALL  PXYPNINPXBUP. ISTAT. 
00  TO  SOO 

sao  IP  (LUSRCPdl.NE.'AR'l  00 
CALL  PXRAR(NPXBUP. ISTAT. 


TO  SIO 

NPXBUP. (NUIBPI .NCHAN.NSASLO.HSASHI S 
TO  980 

NPXBUP. (NUIBPI .NCHAN.NSASLO.HSASHI I 
TO  S30 

NPXBUP. (NUIBPI .NCHAN.NSASLO.HSASHI I 


NoRBS 


OAH  PACKAOC  AVKMOU  N 
UTIUTT  ROUriNCS 


flso  ir  aMSRcrm.NC.’RR*!  oo  to  «i»o 

CALL  RXHRRtNRXBUr.tSTAT.  HRXBUr . CNUIBFI .NCHAN.NSASLO.NSASHI I 
OO  TO  BOO 
S*»0  tBTAT«*BAOr* 

CALL  nOFATL  ( ’UNSURRORTCO  RCCORO  rORHAT  IN  ROSBILM 
BOO  RETURN 
END 


ROXBIL 

BOB 


N-tBB 


ooooooooooooooooooooooooooooooooooooooooo 


OAN  PACKAOC  AWNOIX  N 
UTILITY  ROUTINCS 


mstiu 

Ml 


tumouriNC  rosuipi  a rcao  nr  not  in  eurreRt  fron  sir  tapc  to  rxbkf  fry 

0 NRXBUF.  • NSS  RIXCL  BUFFCR  IN  PXBOCF  FORNAT 
( NNIBF.  • NUNBCR  OF  HOROS  IN  I BUFFER 
0 ISTAT.  A I/O  status  COOCSt 

* NORHAL  COHPLCTION 

*COF*  END  OF  FILE  OR  REQUESTER  DATA  OUTSIDE  FILE 

*BAOR*  BAO  RECORD 

*BADF*  BAO  FILE 

*OFL'  BUFFER  DVERFLOH 


I NSALIN. 
I NCHAN. 

I NSASLO. 
I NSASNI) 


A NSS  ADJUSTED  LINE  NUNBCR 
A CHANNEL  NUNBCR 
A LON  ADJUSTED  SANPLC  NUNBCR 
A HION  ADJUSTED  SANPLL  NUNBCR 


history 


NARY 

TOMPKINS 

LEC 

07/BS/79 

REQUIREMENTS 

NARY 

TOMPKINS 

LEC 

09/17/79 

ALOORITHN  OESION 

NARY 

TOMPKINS 

LEC 

09/19/79 

aloorithn  coding 

NARY 

TOMPKINS 

LENSCO 

OB/IB/BO 

STOP  reading  on  *BA0F' 

NETHOO 


CHECK  NSALlN<-0  AND  NHI BF< C PXBI NS*S I . 1 F TRUE  RETURN. ELSE 
CONFUTE  direction  AND  NUNBER  OF  SCAN  LINES  TO  NOVE  TAPE 
BLOCK(S>  until  REQUESTED  LINE  IS  IN  BUFFER.  IF  NECESSARY. 

READ  tape.  UN-InTERLEAVE  PIXEL  DATA  FOR  DESIRED  CHANNEL 
INTO  HPXBUF.  SET:  PXNOOA  • IBS.  PXNOIN  • IBB.  PXLJOl  • 0 
PXHJOl  > 0.  PXBINT  > *BYT’.  AND  REHAINOER  OF  BUFFER  PREANBLE 
POINTERS  FOR  THAT  PART  OF  REQUESTED  SAHPLE  RANOE.IF  ANY. 

UHtCH  IS  INSIDE  THE  FILE.  UPDATE  ISTAT  AND  PXQUAL  AS  REQUIRED. 


NACH I NE •DEPENDENT  CODE 


none 


EXTERNAL  REFERENCES 


NOVCST  A HOVE  CHARACTER  STRINO 

ERHAIT  A HAIT  FOR  COHPLCTION  OF  I/O 

ERTHAT  A tired  WAIT  UP  TO  SO  SECONDS 

ERiD  A initiate  I/d 

NDFATL  a PRINT/LOO/COUNT  'FATAL  ERROR'  NCSSAOES 

HOVOBY  A HOVE  DOUBLE  BYTE  TO  ONE  STRINO  FRON  ANOTHER 
NONOTE  A print/loo  'NOTE*  NCSSAOES 

INTCOER  NSNNI  A NUNBCR  OF  BYTES  FOR  NUNBCR  OF  INTCOCRS 


N-BST 


OAN  MCKAOC  APKNOIX  N 

UriLlfY  ROUrtNCS 


PASSIM 

Mt 


OQ(m.C  PMCCtStON  CMHIN  • VAKI AlAe-LCNOTH  !<«•  CHAR)  STRtNO  fOR  INTCOCR 


C CXCCRTIONS 


e 

I.  TNC  rOLLOHiNO 

EXCEPTION 

C0N0ITI0N9  PROOUCC 

the  output 

SMOHN 

BCLOHt 

c 

CONOIT'ON 

NPXBUr 

MPXBUF 

MPXBUF 

MPXBUF 

ISTAT 

OlAONOSTie 

e 

(PXQUALI 

(PXLSAN) 

(PXLBIN) 

(PXNOINI 

e 

IPXNSAN) 

(PXMBIN) 

(PXNOOAI 

c 

NHIBP<(RXBINS*S) 

UNOCFINCO 

UNOCFINCO 

UNOCF 1 PCO 

UNOCFINCO 

•EOF* 

NOFATL 

c 

NSALIN<«0 

B 

0 

0 

UNOCFINCO 

•EOF* 

NONE 

c 

END  or  FILE 

9 

0 

0 

UNOCFINCO 

•BAor* 

NONE 

C 

LOST  POSITIONI 'LOST’I  9 

0 

0 

UNOCFINCO 

*BAOF* 

QUEUED 

nONort 

C 

» LINE 

• 

e 

BAD  RECORD 

9 

0 

0 

UNOCFINCO 

’BAOR* 

QUCUCO 

NONore 

C 

• LINE 

# 

c 

BAD  FILE 

9 

0 

0 

UNOCFINCO 

*BAOF* 

QUCUCO 

tal 

e 

z 

o 

c 

c 

» LINE 

9 

c 

NO  RCOUCSTCO  SAMPLES 

c 

ARC  IN  MPXBUF 

9 

0 

0 

UNOCFINCO 

•EOF’ 

NONE 

c 

c 

e 0L06AL  OeCLARATIONS 

C 

c 


tNCLUOC  KOnXQT.LIsr 
include  K0HLU3.LIST 
INCLUDE  PXBDEr.Llsr 
INCLUDE  KONIO  .LIST 
Include  uiNDEr.Lisr 
INCLUDE  KONIUH.LlSr 


a COHNON  PROORALN  EXECUTION  SNITCHES.  COUNTERS 
a PACKET/POINTERS  FOR  UNIT  t 
a OEFlNtTON  OF  INTERNAL  BUFT  c'R  STRUCTURE 
a fortran  NANIPULATION  of  assembler  I/O  PKT 
a DEFINE  STRUCTURE  OF  UlNDOU  PACKET 
a INPUT  HI  NOON  packet 


c 

c 

C LOCAL  OECLARATIONS 


C 

C 


C 

c 


inteoer 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 


INTCOCR 

C 

c 

C PROCCOURC 

c — 


HSARCC 

HVRCC 

NPXBUFINHIBFI 

NINO 

NSNPAK 

LOCOUT 

LOCIN 

NPXL8A 

NPXMSA 

NSSBUFI8Z3BUF 
HVOIR/Q/  a 


a RCQUCST  RECORD  FUNCTION  SCAN  LINE  AND  • CHANNEL 
a NUMBER  OF  RECORDS  TO  MOVE 
a AROUMCNT 

a NEXT  AVAILALC  POSITION  AFTER  READ  OF  RECORD 
a NUMBER  OF  samples  TO  UNPACK 

a NUMBER  OF  BYTES  TO  INCREMENT  PER  PAIR  SAMPLES 
TO  PACK 

a NUMBER  OF  BYTES  TO  INCREMENT  PER  PAIR  SAMPLES 
TO  UNPACK 

a MIN.  SAMPLE  AVAILABLE 

a MAX.  sample  available 

)/SZ3BUF«0/  a INPUT  BUFFER  ALWAYS  CLEAR  WHEN  LOAOINO 
IN  OVERLAY. 

INPUT  OIRCCriON  ALWAYS  CLEAR  WHEN  LOAOINO  IN 
OVERLAY 


N>C98 


OAN  MCKAOC  APPCNOIX  N 
UTtktTY  KOUrtNCS 


e 

e 

irCHOOtHSALlN.SOl.CQ.OI  CALL  TRACC(CM«lN(HSALIN.8n 

e 

c 

c CNCCK  lurrcii  size 
e 

i*tat  • ‘ort* 

ircNMier.LT.tpxiiNS^sn  call  NorATLC'NPxsur  too  shall  in  rossip 

irCNNlSP.LT.  CPXBINS»Sn  00  TO  900 

c 

c 

c CNCCK  roR  NCOArtve  or  zcro  linc  nuhbcrs 
c 

istat  • ‘Cor* 

IPCNSALIN.LC.OI  CALL  HOFATLt  'HSALIN  <*  ZCRO  IN  R03BIP*) 
trCNSALIN.LC.Ot  00  T9  900 

c 

c 

C ON  SIP  tapcs  linc  and  rccoro  nuhbcr  arc  CQUAL 

c 

NSARCC  • NSALIN 

c 

c 

C CONPUTC  OIRCCriON  AND  NUNBCR  OF  RCCOROCSt  TO  HOVC  TAPC 
C 

100  00  300  I > t.B 

HVRCC  • NSARCC  - LU3R8F 
IFINVRCCMHO.lSO.teO 
C 

C CASC  OF  NVRCC  NCOATIVC 
C 

l<»0  HVRCC  > HVRCC  - I • RCCORO  BCFORC  RCOUCSTCD  RCCORO 

if(hvoir.nc.-i)  call  crthatiboooi  0 RcvcRsc  tapcs  CARCFULLY 
NVOIR  • - I 
00  TO  BOO 
C 

C CASC  OF  RCCORO  ALRCAOY  IN  BUFFCR 

c 

ISO  CONTINUC 

IFIHVOIR.CO.Ot  00  TO  tVO  • NCU  OVCRLAY BUFFCR  CMPTY 

istat  • JSTAT  0 use  status  of  initial  rcao 
00  TO  360 
C 

C CASC  OF  NVRCC  POST  I VC 

c 

160  IF(HV0IR.NC.«II  call  CRTUATIBOOOI  0 RCVCRSC  TAPCS  CARCFULLY 
HVOIR  • I 

c 

c 

C SCT  TIHCO  WAIT  TO  10  NILLISCCONOS  OCTUCCN  CONSCCUTIvC  RCAOS 
C (THIS  IS  A FIX  FOR  A SYNCHRONIZATION  SUO  WITHIN  THC  UNI  VAC • 
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iNCiuoc  KONxor.Lisr  a connon  nnoonah  cxeeuriON  sutrcNes.couNrcRS 
INCLUPC  Rxaocr.Lisr  a ocriNirioN  or  intcrnal  eurrcR  structurc 
INCI.UOC  KONLUS.LlSr  a RACKCr/ROINrCRS  FOR  UNIT  3 


LOCAL  OCCLARAMONS 


iNreocR  HRxaurfNHteri 

INTCOCR  NSIPtX 


c 

c 

C PROCeouRC 

c - 

e 


CALL  TRACC 


AROUNCNT 

NunacR  or  sinulatco  pixels 


c 

c 

c CHECK  eurrcR  lenoth 
c 

ISTAT  - ‘OrL* 

ircNHiar.LT. (PxeiNS*si I call  HorATLt *aurpER  roo  shall  in  ro3nul*i 
IPCNHier.LT. IPXBINS^SI I 00  ro  900 

c 

ISTAT  • 'Eor* 

irtHSALlN.LE.OI  CALL  NOEATLI  *NSALIN  <>  0 IN  R03NUL * I 
triHSALIN.LE.OI  00  TO  900 
C 

c 

C SIHULATE  data  FOR  REQUESTEO  NUNBER  OF  SAHPLES  FOR  BUFFER  LENOTH 

c 

N9IPIX  - HIN0(NB<*NI  fNHI8F-PXBIHS*n  .MSASHI ’HSASLO*!  i 
00  too  NPIX  • t.NSIPIX 

CALL  PUT8rT(NPxeUF(PXBINSl . (NPIX) . NCHANI 

100  continue 


c 

c 

c 

c 


1NITULI2E  BUFFER  POINTERS 


NPXBUFIPXaiNTI 

NPXBUF(PXQUAL) 

NPXBUFCPXLSANI 

NPXaUFIPXHSANI 

NPXaUFIPXLBINI 

NPXBUFIPXHBINI 

NPXBUF(PXNOIN) 

NPXaurCPXNOOAt 

NPXBUF(PXLUOI) 

NPXBUFIPXNJOli 


•BYT* 

0 

NSASLO 

NSASLO  * NSIPIX 
1 

NSIPIX 

IE9 

tfS 

0 

0 


I 


N-SIO 


OAN  MCKAOC  APKNOIX  N 

uriLiTv  ROurtNCs 


AOINIIL 

003 


c 

c 


ism  • • • 

900  RCTUON 
CMO 


Aooonoooooonoooooooooooonoooonnnn 


OAN  PACKAOC  AMCNOIX  M 
uriLITY  ROUriNCS 


RCAOtN 

001 


SUMOUrtNC  RCAOONt  A RCAO  ONC  CMANNCL  FOR  t SCAN  LINE  FRON 
e oerecrioN  Fitecst 

0 HFXBUF.  • HS8  FlXCL  RUFFCR  IN  PKOOCF  FORHAT 
t NNIRF.  A NUHOCR  OF  MOROS  IN  I BUFFER 


0 ISTAT. 

A I/O  status  code  * 

NORNAL  CONPLETION 

C 

•EOF  • 

END  OF  FILE  OR  REQUESTED  DATA 

c 

OUT  OF  FILE 

c 

•BADR* 

BAD  RECORD 

c 

•BAOF‘ 

BAD  FILE 

c 

•OFt  • 

BUFFER  OVERFLOU 

I HSALIN. 
I NCHAN. 

I NSASLO. 
I NSASHli 


A H8S  AOUUSrEO  LINE  NUHOCR 
A CHANNEL  NUHOCR 
A LON  AOJUSrCO  SAHFLC  NUNSCR 
A HI  OH  ADJUSTED  SANPLC 


HISTORY 


C H SCHLOSSCR 
CHARLES  HCLNKE 
CHARLES  HCLNKE 
C H SCHLOSSCR 


HCTHOO 


LEC  07/JR/79 
LEC  lS/tO/79 
LEC  12/19/79 
LENSCO  OS/ 16/80 


REQUIRCNENTS 
ALOORITHH  DC SI  ON 
ALOORITHH  COOINO 
SUPPORT  HULTIPLC 


DETECTION  CHANNELS 


CHCCK/FLAO  DETECTION  RECORD  AVA I L AOI L I T Y . READ  REQUIRED 
RECORO(S)  FRON  detection  fileisi.join  then,  and  return 
requested  detection  data  for  line  HSALIN. 


HACHINE'OEPENOCNT  CODE 


NONE. 


external  references 


NOFATL  * A PRINT/LOO/TaLLY  ‘FATAL  ERROR*  NESSAOES 
NONOTE  A PRINT  AND  LOO  ’NOTE'  DIAGNOSTIC  NESSAOES 
J0IN2N  A JOIN  density  OET  RCC  AND  CONCATENATE 

ERIOH  A initiate  I/O  AND  MAIT  FOR  CONPLETION 

INTEOER  NINNO  A NUHBER  OF  INTEGERS  FOR  NUNBCR  OF  BYTES 

INTEOER  NINNC  A NUHBER  OF  INTEGERS  FOR  NUNBER  OF  CHARACTERS 

DOUBLE  PRECISION  CBS«IN  A VARIABLE  LENGTH  STRING  FOR  INTEGER 

DOUBLE  PRECISION  CBSHCS  A VARIABLE  LENOTH  STRING  FOR  FIXED  STRING 

C 

e 

C EXCEPTIONS 

C - 


N-312 


OAN  MCKAOC  AFf»CNOIX  N 
urii.m  AourtNCt 


MCAMN 

sot 


e 

e t.  rw  roLLOuiNO  excetrioN  conoitions  prooucc  thc  outputs  shown  sclohi 
c 


e 

CONDITION 

NPXSUP 

HPXSUP 

HPXSUP 

HPXSUP 

istat 

OIAONOSTIC 

e 

(PXQUAL) 

(PXLSAHt 

IPXLBIN) 

IPXNOIN) 

e 

AS 

tPXNSANI 

CPXHSINI 

CPXNOOAt 

% 

e 

NCHAN  OUT  QP  RANOC 

0 

0 

0 

UNOCPINCO 

•COP* 

HOUARN 

c 

NSASLO  > NSASNI 

s 

0 

0 

UNOCPINCO 

•COP* 

nONOTC 

c 

NO  RCQUESTCO  S^HPLCS 

c 

IN  ANY  STRIP 

9 

0 

0 

UNOCPINCO 

•COP* 

NONE 

c 

■UPPER  TO  SHALL 

c 

TO  NOLO  STRIPCSI 

9 

0 

0 

UNOCPINCO 

•OPL* 

nopatl 

c 

■AO  RECORD 

9 

0 

0 

UNOCPINCO 

•BAOR* 

QUCUCO 

HONOTC 

c 

* LINE 

NO 

c 

■AO  PILE 

9 

0 . 

0 

UNOCPINCO 

•BAOP* 

QUCUCO 

HONOTC 

c 

* LINE 

NO 

c 

WRONG  RCCORO/L INC/CHAN 

c 

RCTRICVCO 

9 

0 

0 

UNOCPINCO 

•SAOP* 

HOPATL 

c 

INVALID  BIN  type 

9 

0 

0 

UNOCPINCO 

•BAOP* 

HOPATL 

c 

ERROR  PROH  UOINSN 

9 

0 

0 

UNOCPINCO 

•BAOP* 

HOPATL 

c 

c 

C OLOSAL  OeCLARATIONS 

c 

c 


INCLUOe  KONXQT.LtSr 
INCLUOe  KOHtZN.LISr 
INCLUOe  KOHIO.LtSr 
INCLUOe  KOHNER.UST 
tNCLUOe  KOHKLS.LlSr 
iNCCuoc  Konrtr.Lisr 
INCLUDE  KONOET.LIST 
INCLUOE  HINOEr.LISr 
INCLUDE  Pxaocr.Ltsr 


a COHHON  PROCRAN  EXECUTION  SWITCHES.  COUNTERS 
a COHHON  I/O  PACKETS  POR  DETECTION  PILES 
a COHHON  I/O  PUNCTIONS 
a COHHON  ERTS  SCENE  PARAHETERS 
a COHHON  CLASSIPICATION  INPO 
a COHHON  ADUUSThENT/REOISTRATION  parancters 
a COHHON  DETECTION  PILE  WINDOWS 
a DEPINC  STRUCTURE  OP  WINDOW  PACKETS 
a OEPINE  SUPPER  STRUCTURE 


C 

C 

C LOCAL  declarations 

C — - 

C 


INTEOER  NPXBUPfNWtSP) 
INTEOER  tSAHLO 
INTCOER  ISAHHI 
INreSCR  NCCTLO 
INTCOER  NCCTHI 
INTCOER  NWOLO 
INTCOCR  NUOMI 
INTCOCR  NBINS 
INTCOER  NNDBIN 
INTCOCR  NRCC 


a AROUHENT 

a HSASLO'i 
a NSASHl-t 

a LOWEST  STRIP  NCeOCO  TO  SUPPLY  RCQUeSTCO  data 
a NIONCST  STRIP  NCCDCO  TO  SUPPLY  RCQUESTCO  DATA 
a WORD  IN  HPXSUP  TO  BCOIN  I/O  AT 
a WORD  IN  HPXSUP  POR  END  OP  READ  SUPPER 

a NO  or  NIONCST  sin  used 

a NO  OP  WORDS  RCOUIRCO  TO  ACCOHOOATE  SINS 
a RECORD  NUHBCR  IN  OCTCCTION  PILE 


PROCCOURC 


N'SIS 


o o o o o n o o o 


/ 

V, 


OAH  PACKAOC  AmNOIX  N MAOtW 

uriUTY  KOUriNCS  oos 


e 

c 

c 

e 


ir(HOO(HSALIN.90l .CQ.OI  CALL  rRACe(Ctt«tNtHSALIN.9ll 


INiTtALIXe  status  to  cor 
istat  • *cor* 


CHCCK  RCQueSTCO  CHANNCL  ANO  SAHPLC  RANOC 

ir((NCNAN.LT.|1.0ll. 

A fNCNAN.OT.NCRCMAI I CALL  NOHARNt 
• *BAO  OCTCCTtON  CHANNCL  IN  RCAOCN’I 
iriHSASLO.OT.nSASHl I CALL  HONOTCl  'NSASLO  > HSASHI  IN  RCAOCN'I 
triNSASLO.OT.NSASHlI  00  TO  830 

ISANLO  - NAXOIHSASLO'I . I I 1 LOU  SAHPLC  RCQ.POR  JOIN  HSASLO-t 
ISANHI  • NIN0(H8A$HI*I.NCRSAHI  0 HlOH  SAN  RCQ.  TOR  JOIN  NSASHl^t 


OCTCRHINC  LCPTNOST  ANO  RIOHTNOST  STRIPS  Nceoco 


00 

00 

00 

00 


TO 

TO 

TO 

TO 


800 

800 

800 

800 


NCCTLO  • 0 
NCCTHI  ■ 0 
00  800  1*1. H 

IPfHSALIN.OT.NSAOHHtULIN.HNAX, I I ) 
iriNSALIN.LT.NSAOUMIULIN.UHIN. I ) ) 

IPf ISANLO. OT.NSAOUUIUSAN.HNAX, I I I 
IP ( ISANHI .LT.NSAOUUIUSAN.UNIN. I ) t 

IPINCCTLO.CQ.OI  ncctlo-i 
NCCTHI  - I 
800  CONTINUE 

iriNCCTLO.eo.oi  oo  to  oso  a no  data  por  this  line 
c 
c 

C LOOP  TO  euiLO  SUPPER  PRON  RECORDS 
C PILES  POR  OtPPCRCNT  CCT  STRIPS 

c 


IN  detection 


NHOLO  * I a HORO  IN  NPXBUP  TO  SCO  IN  I/O 
00  300  NCCT  • NCCTLO. NCCTHI 
C 

c 

C CHECK  IP  SUPPER  HILL  HOLD  THIS  STRIP 
C 

NUOHI  • NUOLO  * LOCTRSINCCTKSB  * I 
IPINUOHI .LC.NUISPI  00  TO  810 

CALL  NOPATLI  *RCA08N  DETECTS  SUPPER  OVCRPLOH’I 
istat  • 'OPL* 

810  IPINOTOTL.NC.OI  00  TO  S30 

C 

c 

C COMPUTE  RECORD  NUMBER.  READ  INTO  SUPPER  AND  CHCCK  I/O  STATUS  CODE 
C 

NRCC* ( MSAL I N*NS AOHU I HL I N . UN I N . NCC  T II « NERCNA  *NCMAN 
CALL  RCA0CTCL8SPKTM.NCCTII 
trilSTAT.EQ. * *1  00  TO  SIS 


N-3IN 


OAN  MCKAOC  AMCNOIX  N 
UriLlTY  AOurtNCS 


irntTAr.ca. *tAON*t  call  honotcc 

• *f|AO  RCCOAO  AT  L tNC«*  .Ctt«»lN(l1SAL  IN.6)  . 

A • or  OTAir'.CMHiNiNecr.oi.'iM 

irC ISTAT.CQ. *OAOr*l  CALL  nONOfCt 

• MiAO  rtLC  AT  LtNe**.eit«»tN(N8ALIN.6l . 

A * or  ATRtP'.CSSAlNCNCCr.Ol.'Ct 

00  TO  010 

e 

c 

C CHCCK  RCCORO  NUNOCR  AND  LINE  NUHtCR  IN  OUrrCR  PRCANSLC 

e 

CIO  ir(NPXBur(NHOLO«rxRecN>ti.Ne.NReci  call  norATLi 

- ’RCAOCN  RCAO  RECORD*. 

A C8S*»INCHPXBUr(NU0L0*rXReCN>n  .61  . * rOR*  .CBSHININRCC.BI . 

A ’ ON  STRIP*  .CBSHININCCr. Bn 

c 

ir(NPXBUr(NHOLO*PXLlNO-t I .NE.NSALINI  CALL  HOPATL ( 

• *RCAOBN  READ  LINE*. 

A CBSHIN(nPXBUr(NHOLO»PXLINO-l  I .B> . ’ FOR  * . C8SH I N ( NSAL I N . 6 ) . 

A * ON  STRIP*  .CBSHININCCT. Bn 

C 

c 

C CHECK  CHANNEL  NUMBER  IN  BUFFER  PREAMBLE 
C 

IF(NPXBUF(NHOLO*PXCHAN-n .NE.NCHAN)  CALL  MOFATLf 

• *REAOBN  READ  CHANNEL*. 

A CBS>»IN(MPXBUF(NHOLO»PXCNAN-n  .3)  . * FOR  * . C8SH  I N ( NCHAN . 3>  . 

A * ON  strip*  .C8S**ININCCT,B)  > 

iriNOTOTL.NE.OI  00  TO  8B0 
C 
C 

C CHCCK  BIN  TYPE  IN  BUFFER  PREAMBLE 
C 

ir(HPXBUr(NUOLO*PXBINT>n .EQ. *BYT*I  00  TO  B30 
IFIHPXBUF(NHOLO*PXBINT>n .EQ. *CHR* I 00  TO  B30 
ir(HPXBUr(NUOLO»PXBlNT-n .EQ. * INT ’ ) 00  TO  B30 

CALL  NOFATLI  *REA0BN  DETECTS  INVALID  BIN  TYPE*. 

A C88**C8(MPXBUF(NH0L0*PXBINT-n  .81  . ‘ ONLINE*. 

A C8SAINCMSALIN.8'  . * STRIP*  .CBS<»IN(NCCT. Bn 

00  TO  BBO 
C 
C 

6 ir  not  LOHEST  strip,  then  join  current  strip  to  previous  ONEfSI 
c 

BOO  IFfNCCT.CQ.NCCTLOi  00  TO  B<*0 

CALL  UOlNBNIMPXBUrm.JSTAT.  MPXBUFI  I) . MPXBUF  ( NUOLOn 

triJSTAT. NC. * *>  00  TO  880 
C 

c 

C ir  MORE  STRIPS,  then  UPDATE  NUOLO  (HO  TO  BCOIN  I/O  FOR  NEXT  STRIP  ATI 

c 

8*»0  iriNCCT.CO.NCCTHII  00  TO  300 

NBINS  • NPXBuriPXHBINI 
NHOBIN  • NBINS 

iriNPXBUriPXBINTI .EQ. *BTT*INH0BIN  • NIANBINBINS) 
iriNPXBUriPXBiNT) .CO. *CHR*INU0BIN  • NIHNCtNBINSI 


RCAOtN 

BOA 


N-StS 


oof>o  or>oo  fk  €%  €% 


NO  I 


RCAOtN 

000 


vrutrv  RouriNCs 


NHOLO  • OXilNS  « NNOOIN 

e 

c 

300  CONTINUC  • LOON  OACK  TO  CHeCK/RCAO/JOlN  NCXT  OTRIN 


AOJUtr  MCAHOLC  NOINTCRO  TO  NCrLCCT  NCQUCSrcO  OATA  ONLY 

trCNOAOLO.Or.NNXOUrtNXHOANn  00  TO  030 
irCNOAtHI.LT.HNXOUrCNXLSANn  00  TO  030 
iriNOAtLO.LC.NNXOUriNXLOANn  00  TO  300 

NNXOUrtNXLOINI  • NNXOUrCNXLOINI  * HSASLO-NNXOUrcPXLSAHi 
HNXOUriNXLSAHI  • HSASLO 
390  irCHSASKt .Oe.NNXeurtNXHSANM  00  TO  300 

HNxeurtPXHOiNt  > HPxourcpxHBtNi-cnpxauriPXHSAHi-HSASHn 
NPXOUPfPXHSANI  • NSASHI 
300  ISTAY  • • • 

00  TO  900 


status  is  bad  PILC 

OtO  ISTAT  - *BAOP* 


SCT  PRCAN6LC  TO  NO  OATA 

B30  NPXBUrcPXQUALI  - 9 

HPXBUP(PXBINT)  • ‘NUL* 
NPXBUP(PXCHAN)  • NCHAN 
NPXaUP(PXLlNOI  • HSALIN 
HPXBUPIPXLBINt  • 0 
MPXBUPtPXHBlNI  > 0 
NPXBUriPXLSAN)  « 0 
HPXBUrtPXHSANI  • 0 
HPXBUPCPXLJOl I • 0 
HPXBUr(PXHJOI)  - 0 


900  AC TURN 


INTERNAL 

SUOROUTINC  RCAOCTINPKTI 


INTCOCR  NPxrm 


lOStZCiNPKTl 

lOAOORINPXTI 

ioscctinpkt) 

tOPUNCCNPKTl 


LOCTRSINCCTMCO 
LOCtHPXOUflNUOLOl I 
tO«LOeTRSINeCTi<<NRCC>t I 
*BK*  B READ 


f- 


N»3I0 


OAN  PACKAOC  AI>»CNOU  N 

umiTv  RourtNct 


MCAOtN 

OOC 


e 

e 


CALL  CAIOMtNPKn 

itfAf  • locoociNmn 

AC TURN 
CNO 


N'llT 


NCAOJ 

OOt 


OAN  ^ACKAOC  AMCNOI 

umirr  NeuriNCt 


•utnouriNC  acaok  • rcao  onc  rah  cnanncl  for  rart  of  onc  scan  linc 
e FROR  LOOICAL  UNIT  S 

0 RRXOUF.  • Htt  Rim  OUFFCR  IN  RXIOCF  FORNAT 
f NHItF.  • NUNUR  OF  MOROt  IN  I OUFFCR 
0 ISTAF.  • I/O  OTATUt  COOC  * * NORNAL  CONRLCTION 

*COF  * CNO  OF  FILC  OR  RCQUCtTCO  OATA 
our  OF  FILC 
‘OAOR*  RAO  RCCORO 
'OAOF>  OAO  FILC 
'OFL  * OUFFCR  OVCRFLOU 


I HOALIN. 
I NCHAN. 

I NOAOLO. 
I NtASNII 


• NOS  AO JUS r CO  LINC  NUHOCR 

• CNANNCL  NUNSCR 

• LON  AOJUSrCO  SANRLC  NUNSCR 
a NION  AOJUSTCO  SAHFLC  NUNSCR 


NiSrORT 


CO  SCNLOSSCR 

LCC 

07/ IC/7S 

RCQUIRCNCNTS 

NARY 

tonpkins 

LCC 

00/IO/7S 

ALOORI TNN 

OCSION 

NARY 

TONPKINS 

LCC 

0S/II/7S 

ALOORITNN 

cool  NO 

HCTNOO 


IF  NHIOF  is  ZCRO.  position  ro  NAXOINSAL IN-I . II . CLSC  INSCRT  NSALIN 
AND  NCNAN  INTO  NPXBUF I PXL I NO>  ANO  NPXOUF ( PXCNAN I . CHCCK/PLAO  TOO 
FCH  SINS  IN  OUFFCR.  NSALIN  NOT  IN  CNVCLOPC.  NCHAN  NOT  IN  FILC. 
NSASLO>HSASHt . IF  TRuC  RCTuRN.  CLSC  CALL  ROS. . . OCPCNOINO  ON  LU3SCQ. 
ON  RCTURN  FRON  ROS. . . NPXOUFIPXL INOI . NPXOUF I PXCNANI  HILL  SC  UN- 
CNANOCO  ANO  RCHAlNOCR  OF  OUFFCR  HILL  CONTAIN  POINTCRS.  FLAOS.  ANO 
OATA  FOR  that  PART  OF  RCOUCSTCO  SANPLC  RANOC . IF  ANY.  HNICN  IS  INSIOC 
TNC  FILC.  IF  ISTAT  IS  *OAOR*  AOO  I TO  LU3COR.  CLSC  IF  ’OAOF*  lUSCOR 
• LU3NOR.  CLSC  LUSC0R«0. 


NACNINC-OCPCNOCNT  COOC 


NONC. 


Cstcrnal  rcfcrcnccs 


R030IP  a RCAO/CONVCRT/UN-INTCRLCAVC  OIP  FORNAT  TO  PXOOCF  fornat 

ROSOIL  a RCAO/CONVCRT  CIL  FORNAT  FRON  TAPC  INTO  PXSOCF  FORNAT 

RO3OS0  a RCAO/CONVCRT  OSO  FORNAT  FRON  TAPC  INTO  PXOOCF  FORNAT 

ROSOSK  a RCAO  PXOOCF  FORNAT  FRON  01 SK 

ROSNUL  a OCNCRATC  TCST  OATA  IN  PXSOCF  FORNAT 

NOFATL  a PRINT/LOO/COUNf  ‘FATAL  CRROR*  NCSSAOC 

NONOrC  a PRINT/LOO  *NOrC*  NCSSAOC 


N'SIO 


OAN  MCKAOC  AmNOtX  N 

umirv  RouriNct 


MAOB 

••B 


OOlMLt  MCCltlON  CM1IN 


A VARUtLC'LffNOrH  tmiNO  rOR  INrCOCR 


OLORAL  eCCLARATIORt 


tNCLUOC  KOHXOr.Lltr 
INCLUDC  KONRCR.LItr 
INCLUOC  KOHLUS.LISr 
iNCkuoc  MiNOcr.utr 
INCLUOC  KONlMU.LISr 
INCLUOC  RXiOCr.LICr 


• CONNON  RROORAN  CXCCUTION  CMirCNCO.  COUNrCRO 

• CONNON  CRT*  tCCNC  RARANCTCRC 

• I/O  ANO  UNRACKINO  OAfA  COR  Ntt/ROV  ON  UNIT  3 

• ocriNirioN  or  ninooh  rackct  structurc 

• iNRUr  HI  noon  RACKCr 

• ocriNirioN  or  intcrnal  ourrcR  troucruRC 


local  OCCLARATtONS 


RARANCrCR  OUNSI3*rxOINS*S 
iNrcocR  NrxRuriNuiori  i arouncnt 

INTCOCR  NrxOUNIOUNSIZI  I OUNNT  iurrCR  U8C0  rOR  rOSmONINO  TAPC 

c cxccrrioNt 

c I.  rne  roiLouiNO  cxccrtion  conoitions  mooucc  thc  ourrurs  shown  oclohi 


CONOITION  HPXSUr 

NPXBur 

HPxsur 

NPXBur 

I8TAT 

oiAONOsrtc 

IPX0UA4.I 

• SINS  IN  iur  < uNOcriNCO 

(PXLSANI 

(PXHSANI 

uNoeriNCO 

(PXLBINI 

IPXH9INI 

uNoeriNCo 

IPXNOINI 

IPXNOOA) 

UNOCriNCO 

•ort  • 

NOrATL 

(NSASNI •NSASLO*! i 
NSALIN  OUTS IOC  INPUT  9 

0 

0 

UNOCr 1 Nco 

•cor* 

NONC 

CNVCLOPC 

NCNAN  INVALID  9 

0 

0 

UNOCriNCO 

•cor* 

NONOTC 

NO  data  rOR  NCNAN  9 

0 

0 

uNOcriNCo 

•cor* 

NOrATL 

NSASLO  > NSAiHI  9 

0 

0 

UNOcriNco 

•cor* 

NONOTC 

NO  NCQ'jCSrCO  SAMPLCS  9 

0 

0 

uNOcriNCo 

•cor* 

NONC 

INSIOC  INPUT  CNVCLOPC/riLC 
BAD  RCCORO  9 

0 

0 

uNOcriNCo 

•BAOR’ 

OUCUCO 

noNorc 

LUSN9N  CONSC'IUTIVC  9 

0 

0 

UNOCriNCO 

•OAor* 

• LINC 
NONC 

# 

*9A0R*S 

9A0  riLC  9 

0 

0 

uNOcriNCO 

•OAor* 

OUCUCO 

NONorc 

SNORT  BLOCK  lONORCO  NA 

NA 

NA 

NA 

NA 

• LINC 
OUCUCO 

# 

noMorc 

C.  ir  NHIOr^O.  TNI9  OOCS 

NOT  OCNCRATC  AN  'OPL*  STATUB. 

• LINC 
INSTCAO.  IT 

0 

C RCSULTS  IN  TnC  ARMOMIArC  NORNAL  OR  CXCCUMON  STATUS.  OUT  NO  OUTPUT 

C TO  CITNCR  TnC  PRCANRLC  ON  OINS  Or  NPXBUr.  THIS  ALLOWS  POSITIONINO 

C AN  CXTCRNAL  OCVICC  TO  NSALIN  NITNOUT  ACTUALLY  RCTURNINO  ITS  CONTCNTS. 

C PROCCOURC 


N'llf 


n A n o 


0AM  MACKAOC  AMMCNOtX  N 
uriLirv  AOurtNCt 


irfNOOtHtAUN.tOl.CO.OI  CALI  rRAeC(eit*»lMINSALlN.«n 
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1.  CLCNCNT  IN  TCNPORARV  PILC  OOCS  NOT  CXIST 

a.  NCSTCo  aAOo  clcncnt  oocs  not  cxist 

THC  CLCNCNT  NAT  NOT  CONTAIN  ANT  CONTROL  STATCNCNTS  OTHCR  THAN  SAOO. 


CXTCRNAL  SUBROUTINCS/PUNCTIONS  CALLCO 


NOPATL 

CRCSP 

CRRCAO 

CAPRNT 


INCLUOC  KOHXOT.LIST 
INCLUOC  ASNOCP.LIST 

OINCNStON  NANCLTdl  ,KCY(  I I .KOCL  IN(3I . iHAOCtCBl 

DATA  KOCLiN/’aaaaa«’.’aaaaa.*.*saisa/’/  a qual«pilc.clt/vcr 

OCPINC  I iHAOCtNI -iNAOCtNI 
CALL  TRACe 
C 

c 

C NOVC  conplctc  clcncnt  nanc  to  inaoc 

c 

INA0CCfl>* 

00  110  NH0>l .10 
1 HAOC  f NM0»a I >NANCL  T ( NHO  > 

INAOC(NMO»SI-*  a CSPS  STOP  CNARACTCR 

IPIfNANCLTfNHOi.CQ.'Oi.OR.  a CNO  OP  NOLLCRITH  L I TCRAL 

a I NANCLTtNNOi .CO. * **l  00  TO  tOO 

ISO  CONTINUC 

e 

c 

C CNCCK  OUALIPICR/PILCTCLCHCNT/VCRSIO:^  NANCS  POR  ILLCOAL/Cxcess  CHARACTCRS 

c 

BOO  NPART«0 
NCNAR«0 

00  coo  NHO^S.IO 


N-IRB 


OAN  MCRAOC  APACNOIX  N IlirAOO 

uriLtrr  AouriMCt  oot 

00  t«»o  Nitr^o.so.o 

irnrioiNOir.o.iNAOciNMon.cQ. *aa»A«  .ano. 
a (NCNAA.CO.OM  00  TO  t«»0  a MNOOC  LCAOINO  OLANKS 
triiriO(NOir.o.iNAOC(NNOi>.oc.*aaaaaA'i.ANO. 


a (rLO(NOir,o.iNAOC(MMO>).LC.‘aaaaaiM)  oo  re  tso 
iri(rio(Noir.o.iNAOC(NMon .oc. *aaaaao*i .ANO. 
a criO(NoiT.o.iHAOC(NHon.LC.*aaaaao*it  oo  ro  oio 
iri(no(NOtr.o.iNAOciNHon.CQ.  *aaaaa-’i  .00. 
a irio(Noir.o.iNAOC(Nuoti.co.‘aaaaat*n  oo  ro  tso 
NCNAR«0 

<10  NOAor«N^Aor«i 

irtNOAor.or.ii  oo  ro  «o 

irirLOiMoir.a. iHAOCiNuo* i .CQ.KOCLimNAANri I oo  ro  <ho 
00  ro  fto 

«o  rLOiNOir.s. iNAOCCNMOi i>*aaaaa  * a rcoHiNArc  nanc 
00  ro  100 

<30  NCHAR*NCMAR«I 

iriNCNAO.or. Ki  00  ro  «o 
<*»0  eONTINUC 
<S0  CONTINUC 

00  ro  000 
e 
e 

e CNCCK  ir  CLCNCNT  cxitrs 
c 

«»oo  iNA0CMi*‘atrAAr> 

CALL  CRCSrCLSTAr. IHAOCi 
LtrAr«rL0t33.3.LsrATi 
00  ro(soo.a<o.03o.o*»o.e30.sooi .LorAr 
e 
c 

C AOO  CLdtCNT 

c 

900  irciuNir.NC.Oi  oo  ro  eoo 
iNAOcno'aAOo 
CALL  CACtrcNAO. IHAOCi 

00  ro  900 
c 
c 

c RCAO  LINC 
c 

000  inAoeiii«*aAOO.C' 

CALL  CACtrCNAO. IHAOCI 
^ NOLNK*0 

NMNr«0 

0<0  CALL  CAACAOtOOOO. INAOC.NMOHII 
NMONI«AaNN<fNHON|l 
lNAOC(NUOMI*|i«* 

C 

• e 

c CMCCK  ir  soccirico  uoROt  or  linc  NArcN  kcys 
e 

00  o«o  Nuo«i.n.< 

ir((KCYfNMOi.Lr.ii.oii.(KCy(Nuot.or.«M  oo  ro  eso 
ir(ANOiiinAOC(KCYiNuoi>-*a*.KCr(Nuo*ii«*a*i .NC.(Kcr(Nuo*ii«*a*t) 

a 00  ro  «o 

( 


N-r»7 


OAN  ^ACKAOC  APKNOIX  N 

UntITT  AOUriNCt 


•no  eONTlNUC 

e 

e 

C tMClAL  MOeCtttNO  rOR  OCNANO  HOOff  TO  UNIT  0 ONLY 

c 

•so  iriMATCN.NC.Ot  00  TO  070 
trilUNir.NC.oi  00  ro  o7o 

lf(AtN«mflAOC(in.CQ.*AAtAA.*l  00  TO  OtO  A 00  NOT  ARINT 
irtNMONI.NC.O)  00  TO  •••»  A NOT  A OLANK  LINE 
NOlNK«NiLNK*l 

00  T0<0fQ.0At.i70.O0«l .NOLNK 
•Of  irtNMNT.ir.  t«l  00  TO  070 

•OS  CALL  CARRNTd.lS.  A ASCII  < I S*  (NUL  .NUL  .NUL  .NUL  > 

A 

A 

NMNr>NMNT*Sf 
iriNMNT.or. I**!  00  TO  ees 
NRRNT«0 
00  TO  OfO 

•OH  MRRNT«NMNr*NMO 
008  NRLNK*0 
C 

c 

C MRirC  LINE 

c 

•70  MRirEllUNir.A7S>  I IHAOEINMOI .NMO*l .NMOHli 
•7S  rOANATIttAOl 
00  TO  OtO 

c 

c 

C ERROR  RETURN 
C 

•to  CALL  NOrATLI 'RITAOO  EILE  NOT  CATALOOEOM 
00  TO  000 

•SO  00  ro  000  A RITAOO  elenent  does  not  exist 
••»0  CALL  NOEATL  I ‘RITAOO  EUE  NOT  SECCIEIEO’i 
000  RETURN  <• 

c 

c 

C NORNAL  RETURN 
C 

800  RETURN 
ENO 


RITAOO 

••• 


N»S*0 


OMI  MCRAOC  AmNeiX  M 

vrtiirT  ftouriRCt 


tuMouriNC  RLtitxi  • eoNvcxr  mal  ro  kraocnart 
I XL.  • MAL  NUnMX 

0 Itx.  A IWrCACR  ARRAY  CONrAINlNO  tCX*Y  RWNMR  M 

1 RtR.  A RVRRCR  Of  tCX*Y  RLACCt  IN  NUHKR  (NtR>ll 

0 MHAiNt  A Mal  MNAIRMR 

e 

C IC  N tCNLOtKRI 

e 

OIMRSIOR  itxm 
MRAlN«AttlRLI 
00  tOA  N*I.NAR 
tAXINt*iriX(MNAINI 
RCNAlN*(RCNAlN-ltX(NI *•00. 

too  CONTINUC 

RCNAtN«MNAIN/AO. 
ltX(lt«ltiON(IAXm  .RLi 
MTURN 
CNO 


RLttm 

001 


RLACC/MOROi 


N*no 


OAN  PACKAM  AmNOU  N 

uriurv  MuriNtt 


nifn 

••I 


•MROUriNC  AUtfXt 

I m. 

« tx. 

I Nl^l 

c — - 

e 

e (C  H tCNkOttCRI 
e 

OINCMION  «X(|i 
ACNAlNaAMlALI 


• eONVCAT  ACAi  tO  tCXAOCNAAT 

• ACAL  NUNWM 

• ACAL  AAAAV  CONTAININO  CCX*Y  AUACCA  (I  AtACC/MOAOl 
A AUNMA  or  MX*r  AlACCO  lA  NUAOCA  IAtA>|l 


00  COO  N«o.Nfr 

•X(A~t taAlAfiACAAtAt 
ACAAlA«lACAAIN»tX(N«l  IKOO. 
too  COATINUC 

fXINtAI*ACHAlA 


tx(n*«iONisxin.AL> 

AC TUAN 

CNO 


AoIM 


OAN  FACKAOC  APPCNOtX  N 

umtrv  RouriNCS 


001 


rUNCriON  KL«SX(  0 RCAL  rUNCTION  rOR  SCXAOCNARV  AROUNCNT 

t OX.  a RCAL  ARRAY  CONTAINlNO  SCXAOCNARY  NUNBCR  M RLACC/HOROt 

I NSR.  a NUHRCR  OF  SCXAOCNARY  RLACCS  IN  NUNBCR  (NSP>OI 

a SI  a CRROR  transfcr  labcl 

c — 

c 

C (C  H SCNLOSSCRi 

e 

OIHCNSION  sxm 
OCriNC  RCCBAS*! ./BO. 

RL*»SX>ABS(SXC  1 1 1 

RURBAS>RCCBAS 

N-l 

00  ro  aoo 
too  N«N«I 

ipcsxiNi .oe.60. I 00  ro  aoo 

RL*»8X-NLHSX*SX(NI  *PUReAS 
PMRBAS-PHRBAS* RCCBAS 
BOO  tP(N.LT.NSP)  00  ro  100 
RL*»SX«SION(RL<«SX.SX(  t n 
RCrURN 

800  RCrURN  3 
CNO 


uooo  oouu 


UrtLlTY  ROUriNCS 


IX  N 


ROrCNX 

001 


OUMOUriNC  ROrCNXl 
I ANAT. 

I ruNcnx. 

I NRUSC.NCUSe. 

I NROIN.NCOIN. 

I NCtoor.NCXRor. 

0 TNCTA. 

0 RHATI 

C 

e 

C (N  L OROHNI 
C 

e 

C rUNCNX  AROUNCNrSi 
c ( RHA r . NRuse . Ncuse . NRO I n . NC 0 1 n . NC  t Ro  r . ncoro r i 
c 
c 

OlnCNStON  ANATINROtH.NCOIN) . RNA T ( NRO I M . NCO I N > 
OINCNSION  CUMROr (3) .rNAX(3> 

CALL  trace 


0 ROTAre  RAIR  or  COLUNNO  TO  NAXINI3C  rUNCTION 
0 ORIOINAL  SINOLC  RRCCtSION  RATRIX 
0 RARE  or  EXTERNAL  rUNCTION  TO  NAXINIEE 

a nunoer  or  rows  a colunns  used 
a NUHOER  or  ROUS  a colunns  oihensioneo 
a COLUNN  nunoers  or  colunns  to  rotate 
a rotation  anole  in  raoians  mmicn  naxinizes  eunction 
a rotated  NATRIX  (NUST  not  oe  sane  as  ahati 


assign  initial  values  or  rotation  anole  in  oesireo  range 


CUNROTI ll>0.00 
CUHR0T(EI-*.«»S 
CUNROTI 3>-«. 90 


a 0 oEo*- 
a ae  oco»- 
a sa  oEo«- 


CONRUTE  initial  VALUES  OF  FUNCTION  TO  NAXINIZE 
00  aoo  HOOIT-l .3 

CALL  ROTCOL  I ANAT  . ^*<USE  . NCUSE  . NRO  I N . NCO I N.  NC I ROT . NCaROT  . 
a CUNROTINOOITI .RHATI 

FNAX ( NOO 1 T I -FUNCNX ( RHAT . NRUSE . NCUSE . NRO 1 N . NCO I N . NC I ROT . NCEROT  > 

aoo  continue 
c 
c 

C INSURE  that  INITIAL  ROTATION  ANGLES  ARE  NEAR  FUNCTION  NAXINUN 
C 

iriFNAXf  I I .LT.FNAXtan  00  TO  090  S CUNROTMt  IS  TO  LEFT  OF  HAXINUH 

CUNR0T(3I*-.0  a SHIFT  initial  rotation  angles  .*»  RAOIANS  TO  LEFT 
CALL  ROTCOL I ANA T . NRUSE . NCUSE . NRO I N . NCO I N . NC I RO T , NCORO T . 
a CUNR0T(3>  .RHATI 

FNAX I 3 1 >FUNCNX C RHA T . NRUSE .NCUSE . NRO I N . NCO I N . NC I RO T . NCOROT I 
00  TO  300 
C 

090  irirNAXC3l .LT.FNAXiai I 00  TO  300  a CUHROTISI  IS  TO  RIGHT  OF  NAXlHUN 
CUNROTI  I l>«. a a SHIFT  initial  rotation  angles  .*»  RAOIANS  TO  RIGHT 
CAl L ROTCOL I ANAT . NRUSE . NCUSE . NRO I N . NCO I N . NC I ROT . NCOROT . 
a CUHROTI I I .RHATI 

FNAX 1 1 1 •rUNCHX I RNAT . NRUSC . NCUSE . NRO I N . NCO I N . NC I ROT . NCOROT I 
C 
C 

C irCRATC  TO  CONVEROE  TO  ROTATION  ANOLE  HHICN  YIELDS  FUNCTION  EXTRENUN 

c 


N-3S0 


uooo  ooou 


OAN  ^ACKAOC  A^NOIX  N 

UriLITT  KOUrtNCS 


ROrCNX 

ooe 


300  00  *»oo  Nireo>o.so 

Ni roL0*N00f  Ni reo. 31 ♦ i 
NirNCM*H00(Nire0»l.3l»i 
e 
c 

C rir  OUAORAMC  A SOL  VC  rOR  CXTRCnUN  TO  CSriHATC  NEXT  ROTATION  ANOLC 

c 

AVOROTalCUNROTM ) ♦CUNftOTiet  »CUNR0T(3i 1/3. 

CALL  QUAO(CUNROT.rNAX.A.O.C.CUHROT(NITNCUi I 

CUNROTtNITNCUl •ANINOtCUHROTINI TNCMI . AVOROT».CI  • LIMIT  OVCRSHOOTi 

CUNROT(HITNeHI>AHAXO<CunROT(NITNCU> .AVOROT-.OI  A UNIT  OVCRSHOOTI 

c 

C rotate  a compute  FUNCTION  TO  MAXIMIZE 

c 

CALL  ROTCOL ( AMAT . NRUSE . NCUSE . NRO I M . NCO I M . NC I RO T . NCEROT . 

A CUNROTIMITNEHI .RMATI 

FMAX ( M I TNEU I «FUNCMX ( RMA  T . NRUSE . NCUSE . NRO I M . NCO I M . NC I RO  T . NCERO  T ) 


CHECK  FUNCTION  FOR  CONVEROENCE 

IFIAOSIFHAXIMI TNEH) -FMAXCMI TOLOn .LE . ABS( FMAXI Ml TNEH) l«t .E-61 
A 00  TO  900 
•too  continue 


FLAG  NO  CONVEROENCE 

CALL  MOHARNI’NO  CONVEROENCE  IN  ROTCMX*) 
C 

c 

C RETURN  HITH  FINAL  ROTATION  ANGLE 
C 

soo  tneta*cumrot(hitneu> 

RETURN 

CNO 


o o o w o o o o 


OAH  PACKAOC  APKNOIX  N 
UTILITY  MOUrtNCS 


IIOTCOL 

001 


i 

V. 


e 

c 

e 

e 

c 


SUOROUriNC  NOrCOL< 
I OHAT. 

I NKUSC.NCU8C. 

I NROIN.NCOin. 

I NClROr.NCOROr. 

I TNCTA. 

0 CHATI 


• rotatc  pair  op  coluhns  in  matrix 

« ORIOINAL  SINOLC  PRCCISION  NATRIX 

• NUHBCR  OP  ROMS  A COLUMNS  USCO 

a NUHOCR  OP  RONS  A COLUMNS  OINCNSIONCO 
a COLUMN  NUNSCRS  OP  COLUMNS  TO  ROTATC 
a ROTATION  ANOLC  IN  RAOIANS 
a NCH  NATRIX  (MUST  NOT  OC  SAMC  AS  8MATI 


(C  H SCNLOSSCRI 


OIHCNSION  BHAT(NROIM.NCOIMI .CMAT ( NRO I M . NCO I M I 
DIHCNSION  R0T(2.2) 

CALL  TRACCCKHRHINC IPIXCTHCTA* 1000. n t a milli-raoians 


COPY  UNROTATCO  coluhns  prom  OHAT  to  CMAT 

DO  a*»o  NC-i  .NCuse 
IPCNC.CQ.NCIROTI  00  TO  CHO 
IPtNC.CQ.NCaROn  OO  to  C4Q 
00  220  NR-t.NRUSe 
220  CMAT(NR,NC)-eMAT(NR.NCl 
2<»0  CONTiNUe 


FILL  rotation  MATRIX 

ROT( 1 . t I «COSC  7HCTA) 

ROTI t .21 >SIN( THCTAI 
R0T(2. I I ••SIN( THCTAI 
R0TI2,2I-C0S(ThCTaI 
C 
c 

c pcrporh  rotation 
c 

NCROT*NCIROr 
00  •»60  NC-t  .2 
00  HNO  NR-I.NRUSC 
CMATINR.NCROTI >0. 

00  >»20  NIP-1.2 

NCO  CMATINR.NCROTI-CMATfNR.NCROTI -BMAT (NR.NIPI«R0T(NIP.NC) 
NNO  CONTINUC 
NBO  NCR0T-NC2R0T 
C 

c 

RCTURN 

CNO 


N-J8N 


OAN  PACKAOC  AMCNOIX  N 

uriLtrv  routincs 


ROmOH 

«ot 


c 

c 

c 

e 

c 


c 

c 


tUMOUriNC  ROrROMC 

I anAr. 

t NflUtC.NCUSC. 

I NROtN.NCOIN. 

I NRIROT.NMROr. 

I THCTA. 

0 CHATt 


a ROrATC  RAIR  or  ROMS  IN  NATRIX 
a ORIOtNAL  SINOLC  RRCCISION  NATRIX 
a NUN8CR  or  ROUS  a columns  usco 
a NUNSCR  or  rous  a colunns  oincnsionco 

a RON  NUNBCRS  Or  ROMS  TO  ROTATC 

a rotation  anolc  in  radians 

a NCN  NATRIX  (NUST  NOT  BC  SANC  AS  SHAT  I 


(C  N SCHLOSSCRI 


OINCNSION  BNATrNROlH.NCOINI .CHAT ( NRO 1 N .NCOI N) 

OINCNSION  ROTca.ai 

CALL  TRACC(KHR>*IN(iriX(THeTA«IOOO.  > n a HI  LL  I -RAO  I ANS 


C CORY  UNROTATCO  ROUS  rRON  SHAT  TO  CHAT 


C 


00  2*»0  NR«t.NRUSe 
irCNR.eO.NRIROTI  00  TO  2H0 
iriNR.CQ.NRSROTI  00  TO  2*»0 
00  220  NC>I.NCUSe 
220  CNAT(NR.NCI>eHAT(HR.NC) 

2H0  continue 

C 

c 

C riLL  rotation  matrix 
C 

ROTd.n-COSCTHETAI 
ROT( I .2I--SIN(ThETA) 

R0T(2. I (•SINC  THETAI 
R0T(2.2I-C0SCTHETAI 

c 

c 

C PERrORH  rotation 

c 

nrrot-nrirot 

00  I^SO  NR-I  .2 
00  HHO  NC«t .NCUSE 
CNATINRROT.NCI-O. 

00  *»20  NIP-I  .2 

H20  CNATINRROT.NCi-CHATtNRROT.NC) »ROT(NR.NlPi •SHAT (NIP. NO 

•»H0  continue 

•»60  NRR0T-NR2R0T 

C 

c 

RETURN 

ENO 


N-189 


(iriLITT  ROUriNCS 


IX  N 


RSTRCC 

001 


c 

e 

c 

c 


suoRouriNC  Rsmeec  • rcao  onc  ihaoc  rccoro 
0 iTAPor.  • Nfs/Rov  ourrcR 

( NMiOP.  0 NunecR  or  horos  im  t BurrcR 

0 irsrAr.  a i/o  status  cooes 

* * NORMAL  CONPLeriON 

*cor*  CNO  or  rite 
*OAOR*  OAO  RCCORO 
'OAor*  OAO  riLC 


I NvoiR.  a oiRCcrioN  or  rcao 

I NINTRV.NAXfNV.  a MIN.  MAX  • 8YTCS  IN  A TRIVIAL  4CC0R0 
I NAXSNTI  a MAX  « OYTCS  IN  A SHORT  RCCORO 

c 

c 

c 

C HISTORY 
C 


c 

J C CRISP 

LCC 

OB/CB/79 

RCQUIRCMCNTS 

c 

MARY  TOMPKINS 

LCC 

OB/30/79 

ALOORI THM 

OCSION 

c 

MARY  TOMPKINS 

LCC 

08/30/79 

ALOORI THN 

COO  I NO 

C 

C 

C MCTHOO 

C 

C 

C SCT  HX3BLK  TO  S.  I OAOOR ( L U3PKT I > LOCATION  or  BUrPCR  ANO 

C lOSIZCfLCSPKT)  • NHlBr.  CHCCK  NVOIR  POR  OIRCCTION  or  RCAO. 

C RCAO  RCCORO-  SCT  ITSTaT  < iOCOOClLUSPKTl . IP  ITSTAT  * 'COP* 

C OR  *BAOP*.  RCTURN.  CHCCK  POR  TRIVIAL  RCCORO-  A RCCORO  IS 

C CONSIOCRCO  TRIVIAL  IP  ITS  LCNOTH  IS  BCThCCN  NINTRV  ANO  NAXTRV 

C INCLUStVC.  IP  TRIVIAL  RCCORO  I ONORC  IT  ANO  RCAO  AOAIN.  CHCCK 

C POR  SHORT  BLOCK.  IP  SHORT  BLOCK.  ISSUC  QUCUCO  NOTC  ANO  RCAO 

C AOAIN.  IP  NUNBCR  OP  SHORT  BLOCKS  > HXSBLK.  ISSUC  NOTC.  SCT 

C ITSTAT  • ‘SAOP*.  ANO  RCTURN.  CLSC.  IP  LU3BPM  • *B8‘.  CALL 

C eSTVBB. 

c 

c 

C NACHINC-OCPCNOCNT  COOC 
C 

c 

C NONC 

C 

c 

C CXTCRNAL  RCPCRCNCCS 

C 

C 

C CRIOH  a INITIATC  I/O  ANO  HAIT  POR  CONPLCTION 

C NONOTC  a PRINT/LOO/COUNT  'NOTC*  NCSSAOCS 

C tSTVBB  a *BS*  TO  'BST*  lINTCRNALi  PORMAT 

INTCOCR  NBVNI  a NO-BYTCS  POR  NO.  INTCOCRS 

OOUBLC  PRCCISION  CaSViN  a VARIABLC  LCNOTH  char  STRINO  POR  INTCOCR 

c 

c 

C CXCCPTIONS 
c — 

e 


N-3S8 


f*  <*  n n ti  n n n ooooo  nn 


OAN  AACKAOC  AWNOU  N 
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RITRCe 

aoe 


1.  THC  rOLLONlNO  CONOtriONS  OCNCRATC  THC  OUTRUT  SHOWN* 

SHORT  BLOCK  NOrC/LCNOTH/L I NC  NO. 

> THAN  NAX  0 or  SHORT  BLOCKS  NOTC/LINC  NO. 

t.  ir  THC  NUHBCR  Of  HOROS  RCAO  tS  LCSS  THAN  NAXSHT  OR  NOT 

CQUAL  TO  NHISr.  THIS  ROUTINC  HILL  tONORC  THC  RCAO  AS  A SHORT 
BLOCK. 


OLOBAL  OCCLARATtONS 


INCLUOC  KOHXQT.LISr 
INCLUOC  KOHtO.  LIST 
INCLUOC  Rxaoer.Lisr 
INCLUDE  KONLUS.LtSr 


LOCAL  OCCLARATtONS 


INTCOCR  t TAPertNutart 
INTCOCR  NXS8LK 


PROCCOURC 


scr  POINTCRS  IN  LU3PKT  TO  ALLOW  RCAO  Or  ONC  RCCORO 
HXS8LK  • S 

I0A0DRILU3PKTI  ■ LOCdTAPBPt 
tOSIZCILUSPKTl  > NWiar 

c 

c RCAO*  lONORC  UP  TO  NXS8LK  0 OF  SHORT  SLOCKS 

C 

C 

NBLKS«NXS8LK«1 
00  COO  NV  • I .N8LKS 

ISO  irtNVOIR.CQ. I > IOrUNC<LU3PKTI  > ’OK’  0 RCAO  TORWARO 

irrnvoiR.co.-i iiOPUNC(LU3PKn  - ’ol’  o rcao  backward 

CALL  CRI0U(LU3PKTt 
ITSTAT  • IOCOOC(LU3PKTI 

• IP(  (ITSTAT.CO.’COr’I.OR.lITSTAT.CQ. ’BAOr’l  I 00  TOSOO 

NBrTCS*N8**NI  ( I ONWOS(LU3PKTI  i 
irtLUSPfN.CO. ‘88’ t NBYTCS-N8YTCS*8/S 

IP  IN8trCS.0C.HINTRV  .ANO.  N8YTCS . LC . NAX TRV I 00  TO  ISO  0 TRIVIAL  RCC 
IP  (N8YTCS.0T. NAXSHT  .OR.  N0YTCS.0C.N8<*NI  (NUI8PI  I 00  TO  SOO 
CALL  NONOTCI ’ (SHORT  BLOCK’ .COSHININSYTCS.SI . 

. • * 8YTCS  AT  LINC’.COSHINCLUSLBP.SI.’i’  I 

800  continue 
c 
c 

e IP  MAX  0 SHORT  BLOCKS  CXCCCOCO  SCT  STATUS  TO  ’8A0P* 

c 

CALL  NONOTCI * (NAX IHUN  NUN8CR  OP  SHORT  BLOCKS  CXCCCOCO  AT  LlNC  «*. 


0 CONHON  PROORAH  CXCCUTION  SWI TCHCS.COUNTCRS 
0 PORTRAN  NANIPULATION  op  ASSCNBLCR  I/O  PKT. 
0 OCPINITION  OP  INTERNAL  BUPPCR  STRUCTURE 
0 WO  ANO  UNPACKING  DATA  POR  NSS/R8V  DATA 


• HSSIRBV  BUPPCR 

a NAX  NO.  OP  SHORT  BLOCKS  ALLOWED 


N-IST 


U O (*  u 


OAN  PACKAOC  A^PCNOI 
uMLiry  MouriNCS 


mmce 

001 


• eooHiMa.usLor.e».*i*  i 

iroTAT  • *oAor* 

00  ro  000 


e 

c 

c 

c 


CNCCK  ro  ocrcRNiNC  ir  roiWAr  is  in  iNreoNAi.  roonAr 
000  continuc 

ir(LusorN.CQ.*oo‘>CAU.  osr«»ao(irAi>er.  irARor.NONNifNHtorit 

900  NO TURN 
CNO 


« 


N-SSO 


UUUUOUUUOUOUUUUUUUUUUUUUUUOUUUUU  uuuooooououuu 


tCTNOO 
001 

tutfiourtNC  sctHOOt  • ocr/scr  hooc  suitchcs 
I NCONOi  • 0 corn  on  i coni 


OAN  OACKAOC  AMCNOt 

uriLirY  MOuriNct 


HI  STORY 

C 

H 

tCNLOSSCR 

LCC 

06/07/YS 

c 

H 

tCNLOSSCR 

LCC 

06/t0/7t 

c 

N 

SCHLOSSCR 

LCC 

00/03/79 

c 

H 

SCNLOSSCR 

LCC 

10/06/79 

c 

H 

SCHLOSSCR 

LCHSCO 

06/OS/00 

NCTHOO 


ORIOINAL  cooe 

AOO  LCOCNO  NOOe  SUirCH 

Aoo  NuLCsr  k OCLCTC  Acr  ro  CKrios 

AOO  COLOR  HOOC  k SfRCAH  \fO 
AOO  LOCAL  HOOC 


oer/CHCCK  uscr  hooc  sPCciriCArtoN  k scr  irs  switch  to  ncono. 


HACNINC-OCRCNOCNT  COOC 


NONC. 


CxrCRNAL  RCrCRCNCCS 


OCrSKH  OCT  USCR  HOOC  SPCCiriCATION 

WARNS  OCNCRATC  WARNINO  OIAONOSTIC  POR  UNIT  S INPUT 

COINIT  a initializc  charactcr  oupfcr 

co>*csr  a charactcr  ouppcr  por  charactcr  strino 

INTCOCR  NUNC  a NUHOCR  OP  INTCOCRS  POR  NUHBCR  OP  CHARACTCRS 


cxccprioNs 


1.  AN  INVALID  HOOC  SPCCIPICATION  OCnCRATCS  A OIAONOSTIC. 

i.  ANY  NUHOCR  OP  HOOC  SPCCIPICATIONS  (INCLUOINO  NONCi  ARC  ALLOWCO. 


OLOOAL  OCCLARATIONS 


INCLUOC  KOHXQT.LIST  a COHNON  «ROORAH  CXCCUTION  SWITCHCS.  COUNTCRS 

INCLUOC  NULCST.LISr  a OCPINC  NULL  CHARACTCR  STRINO 

INCLUOC  ICOUPI  a OCCLARC  CHARACTCR  OUPPCR 

c 

c 

C LOCAL  OCCLARATIONS 

c 


i 


N*SS9 


OAN  ^ACKAOC  AMCNOt 
umiTY  ftouriNCt 


tCTNOO 

OOC 


e 

INTCOCN  INTCNA  • rCNPOAART 

INTCOCR  KHTCNA  • rCNPOMAMY 

e 

c 

c pftoecouRC 

c 

c 

CALL  TRACC 

e 

e 

e ocr/CNCCK  nooc  nahc  and  scr  swircN  ro  ncono 
c 

too  CONY  I NUC 

KHTCnP**  NUL* 

CALL  OCrSKHIKHTCHP.S.NULCSn 

IPIKHrCNP.CQ. * NUL’ I 00  TO  000  S NO  SPCCirtCAriON 
IPCKHTCNP.NC. 'BAT ’ ) 00  TO  020  I BAYCH 
HBAYCH*NCONO 
00  YO  too 

220  IPtKHYCHP.NC. ‘CHE*  I 00  YO  2*»(t  • CHECKOUT 

NCHECK*OR( NCONO. nOAYACi 

C (YURN  orp  checkout  only  ip  noy  oata/checkouyi 

noyoyl«nouarn*nopatl  »HCHECK 

C (PREVENY8  PROCESSINO  HINOOH  IN  CHECKOUT  HOOEI 

00  YO  100 


2*»0 

IPCKHTENP.NE. ’COL  * 1 
HCOL OR-NCONO 
00  YO  too 

00 

TO 

200 

a 

COLOR 

200 

IPIKHYEHP.NE. ’CON’ 1 
HCPIRN-NCONO 
00  TO  too 

00 

TO 

200 

a 

CONPIRH 

200 

IPfKHYENP.NE. ’OUH’I 
NOUHP  •NCONO 
00  YO  too 

00 

TO 

300 

a 

DUMP 

300 

IPCKHYENP. NE. ’ECH’ ) 
NECHO  •NCONO 
00  TO  too 

00 

TO 

320 

a 

ECHO 

320 

tPCKNYENP.NE. ’LEO’  1 
NLEONO^NCONO 
00  TO  too 

00 

TO 

330 

a 

LEOENO 

330 

IPIKHYENP.NE. ’LOC’  I 

00 

TO 

3«0 

a 

LOCAL 

IP(NLOCAL.^Q.NCONO)  00  TO  100  • NO  CHANOE 

IPINCONO.NE.OI  00  YO  339 
tNYENP«NAOLEV 
NfHYCNI I i>NtHSAVI I I 
H«UYCHC2l*NSUtAVI2l 
NAOLEV-INYENP 
HLOCAL-0 
00  YO  100 

339  continue  • YURN  ON 

NOHOAVI  n^NOUTCNT  I I 
N9MtAV(2>*NSMYCNI2i 
NLOCAL»l 
00  YO  too 

3«0  tPIKHYCNR.NE. *RRO*t  00  YO  300  0 PRONRY 


) 


! 


f 


N-3S0 


u o o u u u u o 


OAN  MCKAOr  Af>ACN01X  N 

umirv  RouMNCt 


tCTNOO 

oox 


nmont-ncono 
90  TO  too 

too  ircKNrcNO.NC.*rRA*t  oo  ro  lOO  a roACC 

NTRACC^NCONO 

00  ro  too 

100  CALL  UANNOC'OAO  NOOC  — *> 


eoNriRN  Hooc  octtinoo 


000  CALL  coiNiTdcourn 
irtNCONO.CQ.OI  CALL 
irtNCONO.NC.Ot  CALL 
ircHOArcH.eo.NCONOi 
I r ( HCNCCK . CO . NCONO  * 
iriNCOLOA.CQ.NCONOI 
ircNcriRn.co.NCONO) 
trtnoutiA  .CQ.NCONOi 

IFCNCCMO  .CO. NCONO I 
trCNLCONO. CO. NCONO) 
irCNLOCAL .CQ.NCONOI 
trCHMONT. CO. NCONO) 
irtNINOINTAACC. I ) .CO 
ir(HCriAN.NC.O)  CALL 


coNCtriicourt.  * orr*i 

coNCsrncourt . * on*) 

CALL  COHCtTMCOUn.  OATC  ^ ) 

CALL  coocsri icourt . *.  chcckout*) 

CALL  COHCSTC icouri . COLOR’) 

CALL  Ce*»CSTMCOUri  . *.  CONriRN’l 

CALL  cooctri iceun . *.  ounr’i 

CALL  coHCsnicouri . *.  ccho'i 

CALL  coHCsrcicourt . *.  lcocno’i 

CALL  COICtTI icoun . *.  LOCAL*) 

CALL  COHCSTMCOurt  . MONAT  * I 

NCONO)  CALL  COHCSTI ICOuri . *.  TRACe*) 

CRARNTII.NlHNCnOOl.lCOUrt)  • arint 


tnc  ourrcR 


NORNAL  RCruRN 

RCTURN 

CNO 


0AM  MACKAOC  AMCNOIX  N 

oriLirT  MouriNCt 


ONAOAM 

001 


tUOnOUriNC  SHAtANI  • SNAAPCN  A RAH  CNANHCL  IM  MVOCf  rORNAt  OUfrCR 
0 NRXtNA.  • RIXCL  OUfrCR  IN  RXiOCr  fONNAT  HITN  CXTRCNA  RlXCLt  tNARRCNCO 


I NRXRAU.  a RIXCL  OUrfCR  IN  RXROCr  roRNAf 

I leerro.  a owrcR  rnarrcnino  riltcr  cocrrieiCNr 
I leocrii  a inncr  rnarrcnino  riltcr  eocrriciCNT 


NItrORY 


c 

A 

NCLNKC 

LCC 

00/lt^7R 

RCQUIRCNCNTR 

c 

A 

NCLHKC 

LCC 

10/01/70 

ALOORI ThN 

OCR ION 

c 

A 

NCLNKC 

LCC 

10/10/79 

alooritnh 

COO 1 NO 

NCTHOO 


CORY  NRXRAN  OUrrCR  TO  NRXtNA  OurrCR.  tCARCN  rOR  CXTRCNA  RIXCLR 

IN  nrxram  yron  nrxranirxloin»ri  ro  hrxrahirxhoin-ci - at  cxtrcha 
RIXCLR  eONRUrC  A RHARRCNCO  VALUC  ANO  RTORC  IN  CORRCRRONOINO  RIXCL 
or  NRXRNA. 


NACHINC-OCRCNOCNT  COOC 


NONC. 


CxrCRNAL  RCrCRCNCCR 


cxrcRNAL  ocrorr 
CXrCRNAL  RurOYT 
CxrCRNAL  OCT  ICC 
CxrCRNAL  RUT  ICC 
CXrCRNAL  OCT  I NT 
CxrCRNAL  RUT  I NT 
OOUOLC  RRCC IRION 
COR%rR  a VAR  I 


a OCT  NON'NCOATIVC  INTCOCR  YRON  OVTC  RTRInO 
a RUT  ONC  NON'NCOATIvC  INTCOCR  INTO  OVTC  RTRINO 
a OCT  INTCOCR-CHAR-CQUI VAICNT  YRON  CHAR  RTRINO 
a RUT  INTCOCR'CHAR’CQUI VALCNT  INTO  CHAR  RTRINO 
a OCT  INTCOCR  YRON  INTCOCR  RTf.iNO 
a RUT  INTCOCR  INTO  INTCOCR  RTRINO 
COROCR 

AiLC  CNARACrCN  RTRInO  ROR  RlXCO  CHARACTCR  RTRINO 


CXCCRTIONR 

I.  If  tnir  rurroutinc  ir  callco  mitn  tnc  ranc  RurrcR  por  nrxrha 

ANO  NRXRAN  TNC  RCRULTR  |N  NRXRNA  ARC  INCORRCCT. 

OLOiAL  OCCLARATIONR 


N-m 


V 


OAN  MCKAOC  AfWNOtX  N 

UMLirT  MOUriNCt 


tNAtAN 

•ft 


♦ 


# 


( 


i 


INCLUOC  KONXOr.Utr 
INCLUOC  MtOCr.Lltr 
INCLUOC  NAXtVr 
INCLUOC  NAXieC 
INCLUOC  NAXINr 


• CONNON  MOOtAN  CXCCUltON  tNlTCNCt.  COUNTCNt 

• ocriNC  tniucruiic  or  rixcL  ourrcN 

• MOC  OCriNINO  NAXINUN  OYTC 

• rxoc  OCriNiNO  NAXINUN  InYROCN  CNAN  COUIVALCNf 

• MOC  OCriNINO  NAXINUN  iNrCOCN 


LOCAL  OCCLANAriONS 


INTCOCN  NrXSHAMI 
INYCOCN  HrXNAHIII 
INTCOCN  ICOCfO 
INTCOCN  icocri 
INTCOCN  NIHONS 
INTCOCN  ICASC 
INTCOCN  LCNOTH 
INTCOCN  K 
INTCOC.<  irtx 
INTCOCN  jrix 
INTCOCN  xrix 
INTCOCN  LNIX 
INTCOCN  NNIX 
INTCOCN  ISHARN 

e 

c 

C NNOCCOUNC 
C 

c 

c corr  NAXNAM  TO  nrxsHA 

e- 

ir  (HNXNAuirxoiNn 


NC 


• ANOUNCNT 

• ANOUNCNT 
0 ANOUriCNT 

• ANOUNCNT 

• NUNOCN  or  INTCOCNS  ACQUINCO  rON  rtXCL  01 NS 

• TYNC  or  OIN  *OYT‘«l.  *CHN‘>C.  *INT*«| 

• icnotn  or  rixCL  ourrcN  in  intcocns 

• NUNOCN  or  SANNLC  to  snvanncn 

« VALUC  or  rixCL  two  ocroRC  xrix 

a VALuc  or  nixcl  onc  ocroRC  xrtx 

a vALuc  or  rixcL  ro  oc  snarncnco 
a VALUC  or  rixcL  onc  actcr  xrix 

a VALUC  or  rixcL  tuo  ArTCN  xrix 

a SHANNCNCO  VALUC 


•OVT‘1  00  TO  »»0 


NlHONS«Nl<»NO(Nf*XNAMirXNOlNI  I 

ICAtC>i 

00  TO  too 


CCO  ir  IHrXNAHirxOINTI .NC. ‘CNN* I 00  TO  tso 


Nl«lfNf*NlVNC(NrxNANirXHOINI  > 

ICASC>t 
OO  TO  too 

tSO  ir  ( HrXNAHI  rxo  I NT  I .NC. ‘I  NT*  I 00  TO  t*»0 
Nl«»ONS«NrXNAUirxHtlNI 
ICASC«I 
00  TO  too 

CNO  CALL  NOrATL  (‘SHAtAH  OCTCCTf  UNKNOWN  OiN  TYNC*.* 

t eosNCS<NrxNAH<NxoiNTt.i.i»i.'  IN  ourrcN*i 


too  LCNOTN>rxOINt*l*N|i»fNS 

CALL  NOVIST  fNNXSNA.I.LCNOTN.NNXNAM.I.LCMOTN.OI 


c 

e 

c 

c 

c 


LOCATC  CXTNCNA  NlXCLS  IN  NAXOAH  OurrCN.  SNANNCN  THCN  ANO 
STONC  ONANACNCO  VALUCt  IN  nrxSHA  OuTrCN 


00  TO  (tYO. too. tool. ICASC 
070  CALL  SNANrNfOCTOrr.ruTivT.NAXOYTI 
00  TO  too 


N>MS 


u u u o 


OAH  MCMOC  APKNOIX  W 
vfiLirv  RourtNCt 


WlAtAN 

Ml 


tM  CAU  tHAMNiocTiec.Rurtec.nAxiect 

00  TO  000 

too  CALL  ONAMN  IOC  TINT,  our  I Nt.  RAX  I Nn 

e 

c 

000  RCrURN 

e 

e 

OUiOOUriNC  ONAAON  I 0 ONAROCN  CXTRCNA  OIXCLO 

t ocroiN.  • NANC  or  tuonouriNC  ra  ocr  a oin  ocroTr/ocrie;/3criNr 

I rgroiN.  • nanc  or  luonouriNC  ro  rur  a oin  rurovr/ouriec/ruriNr 

t NAXOINI  • NAXIHUN  VALUC  rON  A OIN  NAXOrr/NAXICC/NAXlNt 

e 

e 

e initial  ICC  SANOLC  NUNOCN  ANO  OLOOC  OrATC 

e 

K»NrxNAHirXLOlNI *1  • riLTCR  CAN’T  CxTCNb  OUTSIOC  OATAK 

CALL  OCrOINIKriX.NrXRAMINXOiNtI .Kl 

CALL  ocroiNfLrix.nrxRAuirxoiNtt .K*n 
irarix.tr.Krixioo  to  too 
e 

c ti.orc  otatc  It  rotirivc 
c 

790  K*K»I 

iriK.or.NrxNAMirxNOiNi 'Cioo  ro  77o 
xrixaLOix 

CALL  OCTOIN  ILO I X .NOXNAWI 0X01 NSI .K*ll 

ir  iLrtx.oc.KOixioo  lO  790 


OLOre  9TATC  CMAN0C9  fOOH  0091 Tl VC  TO  NCOAT I VC*-9NAA0CN  UO 

CALL  OCTOIN  ( lOlX.HOXRAMIOXO'.NOi  .K*t> 

CALL  OCTOIN  I jOlX.NOXRANIOXOINO* .K«l * 

CALL  0CT9IN  INOIX.NOXNAHIOXOINOI .K*2I 

l9HAN0»K0iX*f  lA09MC0Cr0«IOIX  • ICOCrO«NOIX  * ICOCri«JOlX  • 
I icocri*LOixi  > c*«owt**ic 

CALL  OUTOIN  INOXINAIOXOIN9I .K.NiNOf lOHARO. NAXOINI I 

c 

c 

c 9LOOC  otatc  19  NCOATIVC 

c 

700  K*K*1 

ir  IK.CT.NOXNAUf OXHOINI'CI  00  TQ  770 
KO|X«LOIX 

CALL  OCTOIN  (LOlX.NOXNAHlOXOlMSI .K*l I 
ir  ILOU.LC.KOIXI  00  TO  700 

e 

e 

C SLOOC  otatc  CNAN0C9  rOOH  NCOATIVC  TO  009 I T I vC —ONAROCN  OOMN 

c 

CALL  OCTOIN  I I0IX.N0XRAMI0X0IN9I .N-tl 
CALL  OCTOIN  »jOlX.NOXNAN(r’XOlN9I.K«ll 
CALL  OCTOIN  IN0IX.N0XNAHI0X0IN9I .K*tl 

iONAOo»Koix-iiAOOMCocro*ioix  - icocro«NOtx  • icocrHjoix  - 
I icocrt«Lrixi  • t««owt*«it 


OAN  PACKAOC  AmNOtX  N 
utility  ROUTINCt 


turTtc 

out 


tuMOuriNC  SNrrict 

U IIIAV. 

I NUOt. 

I l•lr•l 


a SNirr  sits  cimulaii  mitnii 

a ANRAY 

a NUHRCR  or  HOROS  IM  ARRAY 
a NUNRCR  or  RITt  TO  RNirTt 


• 

IRITS 

< 0 

••  SNirr  TO  LETT 

• 

iRirs 

> 0 

••  SHirr  TO  RIONT 

• 

. (C  N 
• 

tCNLOSSERt 

• 

AXRt 

t(on  . 

1 -RANK 

SMrroc« 

LA 

A3.*2.Xtl 

DIRECTION  a NUNBER  OF  BITS  TO 

OL 

AO.LErr 

AO-LEFT.  AI-RIOHT 

TN 

A3 

SKIP  Nl  IF  DIRECTION  NEO  (LEFT 

L08L 

AO.  38 

AO-RIOHT 

SA 

AO.SNirr 

INSERT  SHIFT  INSTRUCTION 

LA 

Al .O.Xl I 

ADDRESS  OF  ARRAY 

LA 

A8.«t  .XU 

NUNBER  OF  HOROS 

SHA.HS 

A3.SHtrr 

NUNBER  OF  BITS  TO  SHIFT 

SA.NC 

Al .LOAD 

PUT  ADDRESS  IN  U FIELD 

SA.N2 

A 1. STORE 

PUT  ADDRESS  IN  U FIELD 

J 

TEST 

• 

LOAD 

LA 

A3.0.A8 

« 

LOAD  WORD  FROK  ARRAY 

SMirr 

RES 

1 

• 

RCSERVEO  FOR  SHIFT  INSTRUCTION 

sroRC 

SA 

A3.0.A8 

STORE  SHIFTED  HORO  INTO  ARRAY 

TEST 

JOO 

A3. LOAD 

JUNP  POSITIVE  t OECRENENT 

• 

J 

•».XI  1 

• 

t(OOt  . 

0*BANK 

LETT 

LSSC 

A3.0 

LEFT  SHIFT  INSTRUCTION 

RtONT 

ssc 

A3.0 

• 

RIGHT  SHIFT  INSTRUCTION 

CNO 


N*ite 


^VWtfUUWOUOUUOOUUUOOUUUOU  uuuuuuuuuouu 


OAN  PACKAOC  APKNOIX  N 
urUlfV  ROUTtNCS 


SRAM 

Ml 


tUMOUriNC  SRANSI  A CNARLC^OtURLC  tRANNINO  FOR  UNIT  S 
I NtRANI  A HAXINUN  NUNtCR  Of  LINCt  TO  SRAN  FOR  CURRCNT  COHNANO 


history 


C N tei«.OASCR  kCC 

C N SCHLOStCR  LCC 


AS/OA/70  ORiOlNAL  COOC  IN  RCAOS 

0A/IH/7A  Revise  A NAKC  SeFARATe  SUSROUTINe 


NeTNOO 


STORC  N8PAN  IN  LABCLLCO  COHNON  AND  ADJUST  PaOOINO  OF  CURRCNT  INAOC. 


NACHlNC-OCRCNOCNr  COOC 


NONC. 


CXrCRNAL  RCrCRCNCeS 


INTCOCR  LeNCST  « LCNOTH  OF  CHARACTCR  STRING 

futchr  a put  charactcr  into  charactcr  strino 


CXCCPTIONS 


I.  VALUeS  OF  NSPAN  OUTSIOC  THC  RANOC  FRON  0 TO  SC  OCNCRATC  A FATAL  CRROR. 


OLOSAL  OCCLARATIONS 


C 

e 

c 

c 

c 

c 

c 

e 

F 

c 

c 

e 


INCLUOC  KOHLUS.LIST 


LOCAL  OCCLARATIONS 


a POINTCRS/FLAOS/OUFFCR  FOR  UNIT  S 


NONC. 

PROCCOURC 


IFKNSPAN.OC.OI  .ANO.  (NSPAN.LC.SCM  00  TO  ICO 

CALL  NOFATLI  ’NSPAN  OUT  OF  RANOC  IN  SPANS’) 


N-SA7 


OAN  PACKAOC  AMCNOI 
UriLITY  ROuriNCt 


SRAM 

OOt 


00  TO  000 
I to  LUStRN«MRAN 

LMNAXairNCSrtLUSinO.LUSnAXI 
CALL  RUrCNRtLUOINO.CLUSNAX^tl, 
traU8SRN.CQ.Qi  LUSNAXaUSNAX^I 

e 

c 

C OONC 

c 

000  RCruRN 
CNO 


a CLtNtNATC  rNAlLINO  OLANK.  If  ANY 
• *1 

a RAO  MITN  OLANR  ONLY  IT  NOT  SRANNINO 


N-SOO 


OAH  PACKAOC  APPCNOU  N 

uriurr  nourttict 


tumo^riNC  tmri  • mir  ncal  into  tioN.iNrcocR.occiNAi 

I ARO.  • RCAL  NUNtCR  TO  tC  tRLIT 

0 tSON.  • ttON  or  ARO  (*»*  OR  ‘-*1 

0 tNTCOR.  • ARSOLurC  VALUC  Or  INtCOCR  RART 

0 OCCINLt  • AttOLUrC  VALUC  or  OCCINAL  RARf 

C — — 

e 

e iCMti 
e 

ISON***' 

irCARO.LT.O.)  ISON*’-' 

0CeiNL*AR8(AR0* 
iNrcoR*irixroeciNLi 
OCeiHL*ARS(OCCIML -rLOAri INreORi I 

irdNreoR.or.sssi  oeciNL«oeciNL«t.  • tlao  oveortoMi 

RCruRN 

CNO 


•RUT 

Oil 


N-SiO 


uuuoouuuuuouuooououuooouuuouou  uouooouuuou 


OAN  MCKAOC  AMCNOU  N 
UraiTY  AOUTINCt 

•UMOUriNC  mA08 


tncAOS 

001 

0 OFANNCO  RCAO  Of  UNIT  0 lONLY  CALLCO  OY  OCTO. . OCRtCOI 


NIOrOKY 


C N OCHLOOOeil  LCe  OS/Oi/TO  ONIOINAL  COOK  IN  NCAOO 

C N OCNLOOOCR  LCC  OO/IN/YO  NCViOC  A NAKC  OCPANAfC  OUONOUriNC 


HCTHOO 


IP  Ncxr  FiCLO  Nusr  ee  opannco.  rHCN  span  ir  by  ooino  tnc  roLLOwiNOi 
OeCRCHCNr  » savc  luoopn 

CALL  RCA05  TO  FILL  INAOC  BUFFER  (IT  ZEROS  LUSSPNiil 
RESTORE  LU9SPN 

REHOVE  TRAILINO  BLANK C SI  FRON  INAOC  BUFFER 


nacninc-oepenocnt  code 


NONE. 


EXTERNAL  REFERENCES 


READS  a fill  INAOC  BUFFER  FROM  UNIT  S (ZEROS  LUSSPN  A PADS  UlTH  BLANK 

INTEOER  LENCST  a LENOTH  OF  CHARACTER  STRING 


EXCEPTIONS 


I.  ANY  NON-BLANK  I/O  STATUS  ON  UNIT  S TCRHINATES  SPANNING. 


GLOBAL  declarations 


INCLUDE  KONLUS.LIOT  a POINTCRS/FLAGO/BUFFCR  FOR  UNIT  9 

INCLUDE  NULCST.LIST  » OCFINC  NULL  CHARACTER  STRING 


e 

e 

C LOCAL  DECLARATIONS 

C - 

C 


INTEGER  NEMOPN 
INTEOER  LSSTAT 
INTEOER  NSOOAOlYt 
C 
C 

C PROCEDURE 


a TENP  LOCATION  TO  SAVE  LUSSPN 
a I/O  STATUS  FRON  READS  (SANE  AS  LUSIOS* 

/*  STATJS  MHEN  SPANNING  CONNANO* .NULCST/ 


N-SYO 


OAN  FACKAOC  AmNOIX  N 

utility  MOUrtNCt 


tXCAOt 

OOt 


c 

e 

trcLU8tPN.LC.0t  00  TO  000  A tPANNINO  NOT  ALLOMCO 
iriLU8L0C*LU0LCN.NC.LU8NAXl  00  TO  000  A DON’T  SPAN  NON 
NCM0PN-LU80PN-I 

irauotot.co.  ’ *1  call  MAOtCLStTAT.  NULCtri 

IPCLUttOt.CO. * *1  00  TO  too 

CALL  NOYCOTINOOOAO.C1I.CSI.  LUOIOO. Cl  I . (31 . ' *1 
CALL  NOMANNC  NOOOAOt 
NCH0PN*0 
ICO  LU80PN«NCHtPN 

LUONAXvLCNCOTCLUOlHO.LUONAXt  A CLIHINATC  TRAILINO  OLANK  PROH  INAOC 

c 

c 

C OONC 

c 

900  PC TURN 
CNO 


u o u u 


tWH 

oot 


tuiRQuriNC  ttM(  I eolourc  tunt  % tuitt  or  Mooucrt 


I TATA.  • tlNOkC  MCCItlON  DATA  ftATIIlX 

1 N090.  0 NUNUR  Of  OMCRVATIONt  I DATA  ROHtI 

t NVARt.  • NUNICR  Of  VARlARLCt  JOATA  COLUHNtt 

0 9UN.  I tINOkC  RRCeitlON  VECTOR  Or  tUNt 

0 9RR00.  • tINOkC  RRCetOION  MATRIX  Of  tUHt  Of  RROOUCTf 

t NRCOINI  0 NUHtCR  Of  ROMO  A COLUMNS  OlMCMSIONCO  IN  SRROO 


(C  N SCHLOtSCRI 


OIMCNSION  TATACNOOS.NVARSI 
OlMCNtlON  SUMI 1 1 .SrHOOINRCOlM.NRCOIMI 
CALL  trace 

OATA  NITER  /!/  ••••!  TENR  MATCH 


e initialize  sums  a sums  op  products 
c 

00  no  NR*I.NVARS 
tUNINRI«0. 

00  1 10  NC>t .NVARS 
110  SPROO(NR,NCI*0. 


OAR  RACKAOE  APPENDIX  N 
UflUTV  ROUTINES 


CONPUTC  SUMS  A UPPER  TRUNOULAR  SUMS  Or  PRODUCTS 

00  IVO  l«l. NITER  •>l>a  TEMP  PATCH 
00  I VO  NOO-t.NOOS 
00  130  NR* I. NVARS 
SUN(NRt«SUNINRI »TATA(NOO.NRt 
00  ICO  NC*NR. NVARS 

ICO  SPRODtNR.NCI •SPROOINR.NCt  *TATAIN00.NRI *TATAIN00.NCI 
ISO  continue 
I VO  CONTINUE 

NOSS*NOSS*NITER  0«A>0  TEMP  PATCH 
C 

e 

C COPY  UPPER  TRUNOULAR  SUMS  OP  PRODUCTS  TO  LONER  TRUNOULAR 
C 

00  CXO  NR* I. NVARS 
00  CEO  NC*NR. NVARS 
too  SPROO<NC.NRI*SPROOINR.NCl 

tso  continue 
c 

RETURN 

entry  SSPRITIITERl  0*0*0  TEMP  PATCH 
NITER*ITER  0*0*0  TEMP  PaTCN 
RETURN  0*0*0  TEMP  PATCH 
END 


N'STC 


OAN  MCKAM  APMNOIX  N 

ufiiirv  NouriNCt 


tTNCM 

001 


OUMOUTINC  trocoo  0 trORC  RCOiOrRATION  RARAUCrCIIO  ON  UNIT  0 

• o ................................................... 


NltrORY 


• 

c 

c 

N 

tCNLOttCR 

LCC 

00/01/70 

c 

c 

N 

tCNLOttCR 

LCC 

Ot/IN/7t 

c 

c 

N 

tCHLOttCR 

LCC 

It/ 10/70 

ONtOtNAt.  eooc 

NCOROANIZC  NANCLItr  tPCCS 

CLOtC  A ACUINO  0 rON  HULTIALC  AOJUOT 


nctnoo 


UAire  NCOIOrRATION  AANANCrCIIS  ON  TCHOONARV  disk  riLC  0 IN  rORTNAN 
NAHCLISr  rORHAT.  (NANCLItr  It  UtCO  tO  THAT  THC  FILC  NAT  OC  CXAHINCO 

hith  tnc  trtrcN  rexr  coitor  for  ocbuooino  purposcs  > 


NACNINC'OCPCNOCNr  COOC 


OlHCNtlON  A FORNAT  tPCCIFICAT lONt  AttUHC  6 CNARACTCRt  PCR  MORO. 
NANCLItr  I/O. 


CXrCRNAL  RCFCRCNCCt 


NOHARN  a PRINr/COUNr/LOO  ’UARNINO*  OlAONOtnc  NCStAOC 
NOFArL  a PRINr/COUNr/LOO  ‘FArAL  CRROR*  OlAONOtnc  NCttAOC 
CLOtC  a UNIVAC  FORrRAN  V tYtrCN  ROuriNCi  CLOSC  A RCHINO  filc 


CXCCPtlONt 


1.  IF  rHC  CONFROL  NCruORK  CFFCCriVCLY  COVCRt  LCtt  YNAN  tOt  OF  YHC  tCCNC. 
YNCN  A ‘HARNINO’  It  IttUCO. 

0.  IF  rNC  ROOr«NCAN>tOUARC  IRNti  CRROR  OF  YNC  AOJUtYNCNY  It  ORCAFCR  YHAN 
NOO  NCrCRt.  YNCN  a ’FAYAL  CRROR*  It  IttUCO  ANO  FnC  RCOItrRAFION 
PARANCrCRt  ARC  NOY  trORCO. 


OLOOAL  OCCLARAYlONt 


INCLUOC  KONNCR.LItr 
INCLUOC  KONFir.Lltr 
INCLUOC  LtrLUO.LItr 

e 

c 

C LOCAL  OCCLARAYlONt 

C ——————— 


a CONNON  CRrt  tCCNC  PARANCrCRt 
a CONNON  AOJUtYNCNr/RCOItrRAriON  PARANCrCRt 
a NANCLItr  tPCCIFICAYlONt  FOR  UNIY  0 


N*17S 


OAN  MCKAM  AMCNOIX  N 

unurv  ROuriNCt 


•TRCRt 

tot 


oRoetoutc 


CALI  TRACC 

CNCCK  vALioirr  or  contnol  nctuork  AOJutrncNr 

ir(tntHcr.or.*»ooi  oo  ro  too 
irirercrL.ir.901  call  nomarnc ‘root  eoveoAOC’i 


c uRire  rcoistration  RARAncrcRt  on  unit  • in  NAneusr  roRH 
c 

HRirCd.LtrNCAl 

HRirett.LsroRoi 

HRircCi.LSrSCNI 

HRITCti.LSrriT) 

CNOriLC  • 

CALL  CLOtCi  t.i>  a CLOse  a rchino  ■ so  ovcRMRire  it  rossiBien 

00  TO  900 

e 

c 

C fLAO  UNACCCrrABLe  CONTROL  NCTUORK  AOJUSTHCNT 

c 

BOO  CALL  NOrATLI’RNS  CRROR  TOO  LAROCM 
C 

BOO  RCruRN 
CNO 


N-ST* 


OAN  PACKAOC  AmNOtX  N 

uriLiTT  muriNCt 


•umiN 

•ot 


tUeROUriNS  «UIMIN(  • tnCAK  NIKOOM  INTQ  tUlWlNOOMt  lASCO  ON  NNINANY  TtCKt 

• 

I mrOMN.  • NCAL  OUrOUT  MINOOM  OACKCr  ICOONO  tVtrCH  or  rniHANY  riCKti 
I NXtUIM.  • NAXINUH  NUNtCR  Of  OUiMINOONO 
I NANtUOl  • NANC  Or  tUMOUTINC  TO  OCNCRATC  tUiUlNOOH  NAM 


NttTONV 


C N tCNlOtSCN  LCe 

C N SCNLOOtCN  LCe 


0Y/tt/V3  onioinal  cooc  iintcanal  ouoi 

Ot/tO/70  CONVCNT  TO  CXtCRNAL  SUONOUTINC 


NCTNOO 


TNANfroRN  CNvCLorc  Of  ourouT  HiNOOH  roon  ITS  OWN  cooaoinatc  trorcn  into 
rAlNARY  TICK  UNITS  < AN  INTCOCA  COOROINATC  SYSTCN  WITH  AN  INTCNVAL  Or  I 
tCruCCN  PRIHARY  riCKSI.  ir  this  CNVCLOPC  contains  NOAC  ticks  fSUO'HINOOH 
OAtOlNSi  than  ncoucstco  sv  nxsusm.  thcn  shrink  thc  cnvclorc  to  clihinatc 

TNC  ORIOINS  or  rSACTIONAL  SUS-NINOOUS  AT  THC  COOCS  Or  THC  CNVCLORC. 
eONRurC  ALL  TICKS  fSUO-HINOOU  ORIOINSI  HI  THIN  THC  RCNAININO  CNVCLORC. 
OCNCRATINO  A HAR  AT  CACH  SUO-UlNOOU  ORIGIN. 

SUO'HINOOH  ORIOINS  ANO  VCRTICCS  HUST  SC  STORCO  IN  THC  OUTPUT  HiNOOU  RACKCT 
TO  OCNCRATC  NAPS  TOR  THCSC  SUO-UINOOWS.  THCRCPORC.  THC  ORIOINAL  CONTCNTS 
or  THIS  PORTION  or  thc  output  HINOOU  PACKCr  ARC  SAVCO  ON  CNTRV  ANO  RCSTORC 
ON  CXIT  PRON  THIS  ROUTINC. 


NACHINC-OCPCNOCNT  COOC 


tOOL. 

CXTCRNAL  RCrCRCNCCS 


CALHIN  I CAL^SRATC  OUTPUT  SUO'UlNOOH  CNVCLOPCS  A VCRTICCS 
CXCCPTIONS 


I.  NO  CNCCKS  ARC  NAOC  ON  ANY  Of  TNC  AROUNCNTS. 


OL 


I 


INCLUOC  UINOCr.LISr 
INCLUOC  KONINU.LlSr 
INCLUOC  KONOMN.LtST 


S OCriNC  STRUCTURC  or  uinoou  packcts 
0 eONNON  INPUT  UINOOU  PACKCTS 
0 CONNON  OUTPUT  UINOOU  PACKCTS 


N-m 


DAN  MCKAM  APKMOIX  N 

unu rt  NourtNCt 


fwmiN 

••t 


LOCAL  OCCLAMAriONt 


NtAL  RLrOMM(t.lt  • ANOUNCMT 

AARAHCrCR  HVCAt«MVCM*t  § NUNOCR  Of  MOOCt  mON  RLTOMU  TO  flAVC  IN  OAVONN 

MAL  tAVONNft.MVCRtI  A ANRAT  roR  TCHR  «AVC  Of  RART  Of  RLfONN 

INTCOCR  NtUiN  • NUNSCR  OR  tUt'NlNOOHt  RCNAININO  tO  OCNCRArC 

INTCOCR  RtYORI  • eOOROINAYC  fTtfCN  OR  OurRUT  MINOON  ORIOIN 

INTCOCR  KtYVCR  0 COOROlNAfC  OTOTCN  OR  OUTRUT  NINOOH  VCRTICCO 

INTCOCR  NAX.NOO  • NINOON  RACKCT  AXif.NOOC 

INTCOCR  NTiei.HTICC  • COOROINATCt  OR  TICK  IN  RRIHARY  TICK  UNITS 
INTCOCR  HINfl.NlNTC  A OUTRUT  CNVCLORC  NININUNO  IN  RRINARY  TICK  UNITS 

INTCOCR  NAXri.NAXTf  A OUTRUT  CNVCLORC  HAXINUNS  IN  RRlNARY  TICK  UNITS 

RCAL  riNlN.TCHlN  A OUTRuT  CNVCLORC  NININUHS  IN  RRINARY  TICK  UNITS 

RCAL  TINAX.TCNAX  A OUTRUT  CNVCLORC  NAXINUNS  IN  RRINARY  TICK  UNITS 


RROCCOURC 


CALL  TRACC 


C SAVC  OUTRUT  MINOON 
C 

KSYORI»KSYOMMfHORIOI 
KSYVCR«KSYOMMIHVCRI 
DO  ISO  NOO«HNCAO.HVCRff 
DO  ISO  NAX*I.C 

S A VOHN  ( N AX . NOD  I • RL  T OHM  I NAX  . t.  ^ I 
ISA  CONTINUC 

100  CONTINUC 

c 

e 

e INITIAL  ICC  OUTRUT  SUD'UINOOM 
C 

KSYOMHIMORIOI«KSYOMMIUTICI  a RRINARY  TICK  COOROINATC  SYS7CN 

KSYOHHIHVCR*  •ksyohmihtici 

RLTOMHfUUSCO.HNCAOl*OOOL<UVCRt>  A INTCOCR  IN  RCAL  ARRAY! ill 

I^TOMHI I .UVCR*0l*0.  A CLOSINO  VCRTCX 

RLTOMM(C.MVCR*ei>0. 

RLTOMHI I.NVCR*li«RLTOHHf I.MTiei  A 1ST  VCRTCX  IS  RRINARY  TICK  INTCRVAL 

RLTOHHIt.MVCR*! i•RLrOUUIC.HTlel 

RLTOMMI 1 .HVCR*CI*0.  A CNS  VCRTCX  IS  0 

RL TOUH I t . H VCR *0 I *0 . 

e 

e 

e CONRUTC  OUTRUT  CNVCLORC  IN  TCRNS  OR  RRINARY  TICK  UNI  TO 
C 

TININ«SAV0HH( I .MNiNi /SAVOHMI I .NTICt  *O.SOOCOOI 
TtNAX*SAVOMN<l .MHAXI/SAVOMWtl .NTICI-O.ROOOOOO 
TCNIN«SAVOHHIC.HNINI/SAVOMMlC.MTiei*O.OOOOOei 
TCHAX*SAVOUM( C . HHAX i 7 SA VOMN t C . NT IC I >0 . ROOOOOO 


o o o o 


OAN  ^ACIUM  APMmtX  N 
UnUTT  ROUrtNCt 


c 

c 

e SHU  INK  CNVCLOPC  TO  CLININATC  rNACTIONAi.  tM*NlNO  If  UNNANfCO 

e 

00  100  N«*.I0 

NINTtaftNlN 
NAxri*riNAii 
NINTt*riNlN 
NAXTO«rtNAX 
TtNIN«rtNlM*0. ItO 
riNAx«riNAX«e. ito 
TtNIN*rtNIN*0. Iff 
rtNAx*rtNAx>o. Ito 

irii  irixirtnAXi>irix(riNiNi*iM 
A iirixirtNAXi-irixf rtniNt*! i.LT.nxtuOMt 

A 00  to  too 

100  CONTI NUC 


OCNCAATC  AUO'MINOOH  OAlOlNt 

too  NOUOU*NXSUOM 

00  too  NriCI*NINTt .HAxri 

RLTOMMII  .M0NI0>>NriCt«Ni.*'0UUI  I .MTIC> 

00  tBO  Hriet«NlNTt.«1AXTt 

OLrowMit.HOoio>«nrict«m.roMHit.MTic> 

CALI  CALMiNft.l 

IfintAOMMIHLIN.UHINI.OC.NAAlMUIULtN.HNAXk i 00  TO  CIO 
iriNtAOUHIHL IN.WHAXI .IC.NAAlWHfUL iN.UHtNI I 00  TO  CIO 
If iNAAOHMIMOAN.HNiNI .OC.NOAIUMIUIAH.unAXM  00  TO  tSO 
IffNOAOHUIMtAN.UnAXi .LC.NSAIUNIMAAH.MNINn  00  TO  tSO 
Cl  L NAHOUO 

If (NOTOTL.NC.OI  00  TO  AOO 
NfUBU>NfUOU*l 
If INOUOU.LC.OI  00  TO  AOO 
tBO  CONTI NUC 

too  CONTINUC 

c 

c 

C NCtTONC  OUTfUT  Ml NOON 
C 

«00  KBYOMHIMONIOI-KATOHI 
KtVOUMlUVCNI  •KBTVCO 
00  *00  NOO«MHCAO.UVCNt 
00  *B0  NAX«l.t 

At  r OMM I NAX . NOO  » •OA VOUH I NAX . NOO  > 

*B0  CONTINUC 

*00  CONTINUC 

c 

c 

ncturn 

c 

e 

CMO 


tOONlN 

001 


N-St7 


( 

OAN  MCRAOC  AmNOtX  H TRACC/OAN 

uriLirv  RourtNCs  opi 

tuiPouriNC  TRAcet  a coNOirioNAL  rpAce  or  tuoRouniic  call 

I NANCNn  a NAHC  OF  CMTRV  POINT  fOPTIONAL  P CHAR  AROUNCNTl 


NiproRY 


c 

SCHLOSSER 

LCC 

06/1S/7R 

ORIOINAL  COOC 

E 

H 

SCNLOSSER 

LEC 

1I/OS/7S 

SPACE  BCTUCCN  SUP  NAHC  A 

entry  NAHC 

C 

H 

SCHLOSSER 

LCC 

0I/07/B0 

KOHXQT  HACRO  A CNO  TRACE 

QUERY 

IX  r HOC 


ocTeRNiNe  NunscR  or  AROuneNTs  to  or  i> 

ir  HTRACe  IN  KOHXOr  LAPCLLCO  CONHON  IS  NOT  ZCRO: 

PRINT  THE  CALLINO  SUBROUTINE  NAME  (ANO  ENTRY  POINT  NANEI 
ir  HBATCH  IN  KOHXQT  IS  ZERO  (OENANO  MODE > : 
ir  NAOLEV  IN  KOHXQT  IS  ZERO: 

HTRACE  :•  NOO(HTRACE*t  .6>»l 
ir  HTRACE  IS  ZERO: 

ASKi  *ENO  trace? 

ir  1ST  CHAR  or  RESPONSE  <>  *Y*: 

HTRACE  :«  I 


HACMINE-OEPENOENT  CODE 


HRITTEN  IN  ASSEHBLER  FOR  THE  UNI  VAC  1 100  SERIES  COHPUTERS  USING  6-BIT 
rtCLOATA  CHARACTERS.  THE  ACOUNENTS  ARE  OESIONEO  TO  BE  HACHI NE-INOEPENOENT. 
BUT  THE  NETHOO  or  PASSING  AROUHENTS  IS  THAT  USED  BY  UNIVAC  FORTRAN  V. 

THIS  routine  extracts  the  NAHC  OF  THE  CALLING  ROUTINE  FROH  THE  UNIVAC 
FORTRAN  V UALKBACK  PACKET. 

IHPLCHCNTINO  FOOC  HUST  BE  RCHRITTCN  FOR  DIFFERENT  CHARACTER  COOES. 
OirrCRCNT  CO!.PILCRS  (CO..  UNIVAC  ASCII  FORTRANI.  ANO  OIFFCRCNT  HACHINCS. 


EXTERNAL  RCFCRCNCCS 


CR  PRINTS  * a EXEC  REQUEST:  PRINT  IHAOE 

ER  TRCAOS  a EXEC  RCQUCSTt  PRINT  A RCAO 


EXCEPTIONS 


I.  RESULTS  ARE  UNOCFINEO  IF  TRACE  IS  CALLCO  WITH  NORE  THAN  1 AROUHENT. 

P.  RESULTS  ARC  UNOCFINEO  IF  USER  RESPONSE  TO  AN  *CNO  TRACE?*  QUERY  IS 
HORC  THAN  BP  CHARACTERS  LONO. 


i 

( 


N-S7P 


( ^ 

OAH  PACKAOC  APMNOU  N rilACC/OAII 

uriLiTY  muriMs  oo* 


t 


•■J 


AXAt 

KONXOr 


! LOCAL  OCCLARATIONS 


Sioot  . 

0-BANK 

traoup 

RES 

IH 

SPACES 

• • 

• 

ASK 

*ENO  TRACE?>>* 

PP 

PORN 

IC.S.IB 

TRAPKT 

PP 

1.3.0 

ASKPKT 

PP 

I.C.O 

RES 

1 

•rANOARO  UNI  VAC  1100  RCOISTCR  NNCNONICS 
eoNNON  mooran  execurioN  suitcncs 


!•»  HORO  ourreR  holds  oh  o-eir  chars 


RKT  porn  (Birsit  AOVANCe.HOS.OUPOUr  aoor 
trace  RKTi  AOVANCe  I.  LCHOTH  I HO.  OUNHV 
ASK  FKTi  AOVANCe  I.  LCNOTH  Z HOS.  OUHNY 
ASK  PKT:  COP  AOOR.  SUP  IN  AOOR 


. RROCeOURC 


( 


* 


SIOII  . 

1 -BANK 

trace* 

LA 

AC. SPACES 

rz.si 

1 .XI  1 

j 

NOAROS 

ONEARO 

LA 

AC.*O.XI 1 

AX.  XU 

XI 1 . 1 

NOAROS 

tnz 

NTRACE 

J 

I.XII 

TRACI  NO 

LA 

A3. 0. XII 

LA 

AI.O.A., 

LA 

AO. TRAPKT 

• A 

AI.TRAB>'P»0 

LA 

A3. SPACES 

OSC 

AC.O 

OS 

AC.TRABUP*! 

LXN 

AO. (TRABUPI 

ER 

PRINTS 

TZ 

NAOLEV 

U 

1 .XII 

NAOLEVO 

TZ 

NBATCH 

U 

I.XII 

• 

OENANO 

LA 

AC. NTRACE 

AA.U 

AC.I 

SA 

AC. NTRACE 

SSL 

AC. 8 

M 

AC. I.XII 

. BLANK  our  AROUHCNT  PROH  PRCVIOUS  CALL 
. HALK'BACK  M0R07 
. NO.  ITS  AN  INSTRUCTION! 

. ONE  ARO  -•  OET  IT 
. POINT  XII  TO  WALK-BACK  HO 

. CHECK  trace  switch 
. SWITCH  IS  OPP  --  RETURN 

. HALKBACK  WO  (HB-AOOR  OP  SUBR  NAHCI 
. OET  subroutine  NANE 
. XI  :•  PRINT  SPECS 
. PUT  SUB  NANE  IN  1ST  WO  OP  BuPPER 

. SHIPT  ARO  I SPACE  TO  RIOHT 

. PUT  SHIPTE3  ARO  IN  NEXT  g WOS  OP  BUPPER 

. XN  >■  A00>  OP  BUPPER 

. PRINT  BUPPER 

. CHECK  NESTED  AOO  LEVEL 

. LEVEL  IS  NON-ZERO  --  RETURN 

. CHECK  BATCH  SWITCH 
. SWITCH  IS  ON  ••  RETURN 

. AC  t*  NTRACE 
. AC  !•  AC*I 
. NTRACE  I*  AC 
. AC  !•  AC/BH 

. RETURN  IP  NEW  NTRACE  < SH 


NoSTB 
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UrtilTY 

oouriNco 

ASRUSCM 

OA 

At.OrOACC 

. CNANoe  nroAce  ro  i 

LA 

AO. t ASK* 

« 

LA 

At.iroAOun 

• 

tA.MO 

AO.AOKOKT^O 

• 

LXl 

Ai.fcort 

• 

OA 

At.AOKOKT^I 

• 

LA 

AO.CASKOKTI 

. ASK  useo  ir  hc  uants  ... 

CO 

roe  AOS 

. ...  ro  CNO  roACC 

LA. St 

Ai.roAOMr 

. At  t*  rtosr  CHAO  or  ansmcr 

rc.u 

At. *>ooa«v* 

. sxto  NCxr  tNsro  tr  • *y* 

I.XIt 

. NOr  • *Y*  --  KCCP  rOACINO 

fuRNOrF 

sz 

oroACC 

. ruoN  OFF  roAce 

cor 

J 

I.Xtl 

. oeruoN 

CND 

TKACC/OAN 

001 


N*300 
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OAN  PACKAOC  A^KNOtX  N 
utility  ROUTINCS 


TRCCVII 

OOt 


c 

e 

c 


tUmOUTINC  TRCCVRI  • RC-CSTAetlSH  RCCORO  POSITION  ON  HOP  TAPCS 
0 ITSTAT.  a I/O  status 

a *SAOR* -OHIO INAL  RCCONO  ReOUCSTCO  IS  LOCATCO  BUT  BAD 
a * *-RCCORO  RCAO  IN  BCCOVCHT  IS  0000.  BUT  NOT  THt 

a RCouesTco  ReeoRo 


I NPXBUP.  a NSS  PIXEL  BUPPCR 

( NUIBf.  a NUHBCR  or  WORDS  IN  BUPPCR 

I HSARCCr  a ORIGINAL  RCQUCSTCO  RCCORO 


history 


c 

CRISP 

LCC 

OS/OS/79 

RCOUIRCNCNTS 

J 

c 

CRISP 

LCC 

OB/OS/79 

ALGORI ThN 

OESION 

J 

C 

CRISP 

LCC 

09/06/79 

ALGORITHH 

CODING 

HCTHOO 


RCAO  PORUARO  ONE  RECORD.  tr  I TST AT- *COP * . RCAO  BACK  ONE  AND  SET 
LU3RBP  • LU3RHI.  IP  LU3RBP-NSARCC.  THEN  SET  ITSTAT  « ‘BAOR*.  ELSE 
SET  ITSTAT  • • *.  ELSE.  IF  ITSTAT-*  *.  THEN  CAU  0CTQ8Y  FOR  RCCORO 
NUHBCR  ANO  SET  LU3RBF.  IF  NSARCC-LU3RBF- I , THEN  ITSTAT  - 'BAOR*. 
ELSE  ITSTAT-*  *. 


NACHINC'OCPCNOCNT  CODE 


NONE. 


EXTERNAL  RCPERCnCCS 


R3TREC  a READ  TAPE  RCCORO 

OETOBY  a OCT  NON-NCOATIVC  INTEGER  FRON  OUAORUPLE  BYTE 
CRTUAT  a TIHCO  WAIT 


OLOABAL  OCCLARATtONS 


INCLUDE  KOHXOT.LIST 

Include  kohlus.list 
INCLUDE  PXBOCP.LIST 


a CONNON  PROORAH  EXECUTION  SUITHCCS.  COUNTERS 
a PACKET  POINTERS  FOR  UNIT  3 
a OCPINITION  OP  INTERNAL  BUFFER  STRUCTURE 


LOCAL  DECLARATIONS 


INTCOCR  NPXBUP (NWI BP I 


a AROUHCNT 


N-3BI 


oouu  uuuu 


0«N  PACKAOC  AMCNOIX  N 
VriLtTY  ROUriNCt 


INTCOCR  NOYOtR 
e RROCCOURC 

CALL  YRACC 


A oiRCcrioN  or  rcao 


c 

C RCAO  rORHARO  ONC  RCCORO 

c 

NOVOIR"! 

CALL  CRrHArtCOOOi 

CALL  RSTRCC ( HPXBUF . ( NW I OF i . I T ST A T . NOVO  I R . 200 . 300 . 00  > 


CNCCK  status  of  RCAO 

IF  MTSTaT.CQ. ‘COF’I  00  TO  100 
IF  IITSTAT.EQ.'  *1  00  TO  200 


ANY  other  status  IS  BAO  FILE 

ITSTATa’BAOF* 

00  TO  900 
C 

c 

C IF  *EOF*.  RCAO  SACK  OVER  RECORD 
C 

100  CALL  ERTUAT(2000>  0 REVERSE  TAPE  OENTLY 
NOVOIR-* I 

CALL  R3TRECCNPXBUF. (NUIOFI .ITSTAT . NOVOIR. 200. 300. BOI 
C 
C 

C SET  RECORD  IN  BUFFER  TO  LAST  RECORD  IN  FILE 
C 

LU3RBF-LU3RHI (LU3V0LI 
C 

c 

C IF  LAST  RECORD  IS  ONE  REQUESTED.  RETURN  ’BAD  RECORD*  STATUS 
C 

IF  (LU3RBF.E0.NSARECI  00  TO  ISO 
C 
C 

C ELSE,  try  AOAIN  to  LOCATE  RECORD 
C 

ITSTAT-*  * 

00  TO  SOO 
ISO  ITSTAT-*0A0R* 

00  TO  BOO 

c 

c 

C IF  NORMAL  COMPLETION.  CHECK  RCCORO  NUMBER  OF  RCCORO  READ 
C 

COO  CALL  OCTQBYtLUSRBF.  MPXBUFrPXBlNSi.il 


u 

rccevR 

ooc 


N-302 


( 


DAN  MCKAOC  AAPCNOtX  N 

umtTv  RourtNCt 


tr  RCeORO  AfTCR  RCQUCtrcO  ACCOAO  IS  rOUNO.  ftCruRN  *IAO  RCCORO* 
STArut  rOR  RCQUCSrcO  rccoro 

ir  (NSARCC.CQ.LUSRRf-n  00  TO  OSO 


CLSC.  try  aoain  ro  locatc  rccoro 

ITSTAT-*  • 

00  ro  000 

OSO  irSTAYa’OAOR* 

000  RCruRN 
CNO 


TRCeVR 

SOS 


N'SOS 


uuouoouuuououoou oo uuuuouuuuuuuoooououoouoou 


I 


OAN  PACKAOC  APKNOIX  N 

uriLirr  nouriNCt 


TtMAn 

001 


e 

e 


OUOROUTINC  rSUARSf  • iNirtALIZC  TAOe  tUAR  roo  UNtr  1 
0 irSTAT  . • TARC  SOAR  orATUSt 

• • • OK 
*eOR*  - CROOR 


I NTRVOLt  A RCQUCOTCO  TARC  VOLUHN  NUHOCR 


HIOTORY 


NARY 

TOMPKINS 

LEC 

OB/80/79 

REQUIREMENTS 

NARY 

TOMPKINS 

LEC 

tO/OZ/79 

aloorithn 

DESION 

NARY 

TOMPKINS 

LEC 

IO/OZ/79 

aloorithn 

CODE 

NCTHOO 


ir  NTPVOL  < I OR  > LU3VHI  ISSUE  NOTE  AND  RETURN.  IT  LU3REL t NTPVOL > 

• * ’.LOCATE  LAST  OEEINEO  TARE  VOLUME  AND  SHAP.PORMARO  UNTIL 
LU3REL INOEFVL)  <>  * ' ELSE  ISSUE  NOTE  ANO  RETURN. LUPKTINTPVOL i * 
LU3RELI3I  . CALL  ERTSUP  TO  SNAP  TARE.  READ  TAPE  DIRECTORY  IP  l/Q 
ERROR  ISSUE  NOTE  RETURN  ELSE  EXTRACT/OECOOE  INPORNATION  TO 
VERIFY  THAT  TAPE  IS  CORRECT  VOLUME  PROM  SET.  IP  NTPVOL  * I <>  LU3VHI 
ANO  LU3RELINTPV0L  * II  > ’ ’ CALL  PLINPO.  LU3REL  ( NTPVOL  <■  I I « LUPKTdSI 
LU3RBP  - LU3RL0ILU3V0L)  - I. 


nachine-oerenoent  code 


UTILIZES  EXEC  8 ERTSUAPS 


EXTERNAL  REFERENCES 


NONOTE  • PRINT/LOO  ’NOTE’  MESSAOES 

KHRNIN  • ENCODE  CHARACTER  STRINO  PROM  INTEOER 

PLINPO  a retriev.  facilities  assionment  information 

R3TREC  a read  ONE  DATA  RECORD  PROM  TAPE 

ERTSHP  a CLOSE  CURRENT  REEL  OP  TAPE  PILt  a REOUEST  LOAOINO  OP  OTHER 

oersYT  a oet  non-neoative  inteoer  prom  byte  in  byte  strino 

cbtnas  a character  strino  for  ascii  byte  strino 

OCTCHR  a oet  character  prom  character  strino 

HOVCHR  a MOVE  CHARACTER  STRINO 

OCOOE  a DECODE  NUMERIC  CHARACTER  STRINO 

DOUBLE  PRECISION  CB8VCS  a VARIABLE  LENGTH  CST  FOR  PIXEO  LENOTH  CST 
INTEOER  NBNNI  a • BYTES  POR  • INTEOERS 

e EXCEPTIONS 


- --  H , ,) 


N'SBR 


o o o o o 


OAN  MCKAOC  AmNOIX  N 

gratTv  nouriNCt 


TtNAgX 

00» 


t.  TNC  rOLLOHINO  CONOITtONS  YtCLO  *CAR*  tTATUt  ANO  OCNCRArC  THC 
OlAONOtTIC  SNOMN  tCLOOUt 


NrRVOL<l  OR  >LUSYNI 
NO  RCCL  NO.  rOR  NTRVOL 
riRor  RCCORO  tyrc  not  oircctort 
HRONO  VOL.  NO.  IN  OIRCCTONV 
HRONO  OeCNC  IN  OIRCCTIORY 
MRONO  LUStCQ  IN  OIRCCrORT 
HRONO  LUSRCr  IN  OIRCCrORY 
*OAOr*  HHCN  RCAOINO  OIRCCrORY 
*OAOR*  HHCN  RCAOINO  OIRCCYORY 
*LO«r*  HHCN  RCAOINO  OIRCCYORY 
*COr*  HHCN  RCAOINO  OIRCCYORY 


QUCUCO  NONOYC 
OUCUCO  NONOYC 
OUCUCO  NONOYC 
OUCUCO  NONOYC 
QUCUCO  NONOYC 
QUCUCO  NONOYC 
QUCUCO  NONOYC 
QUCUCO  NONOYC 
QUCUCO  NONOYC 
QUCUCO  NONOYC 
QUCUCO  NONOYC 


C.  YHIt  ROUYINC  RCQUIRC8  YHAY  RCTORC  YhC  YIRSY  CALL  LUSRCLdi  ANO 
LUSRCLCa*  8C  INIYIALIZCO  BY  0PCN3  YO  YhC  RCCL  NUH8CRS  SPCCiriCO 
ON  U8CR  ASSIGN  CARO  ANO  YHC  RCSY  OP  YHC  ARRAY  BC  BLANK. 


OLOBAL  0CCLARAYI0N8 


INCLUOC  KONXQY.LISY 
INCLUOC  KOHNCR.LISY 
INCLUOC  KOHLU3.LISY 
INCLUOC  KOHtO.  LIST 
INCLUOC  PIOCP.  LtSY 


a CONNON  PROORAH  cxccuyion  shitchcs.  counycrs 
a COHNON  CRYS  SCCNC  PARAHCYCRS 

a packcy/poinycrs  por  uniy  3 

a PORYRAN  NANIPUYLAYION  OP  ASSCNBLCR  I/O  PKY 
a OCPINIMON  OP  PILC  syrucyurc 


LOCAL  OCCLARAYIONS 


parancycr  RNHIYO  • IH 

INYCOCR  lOPILCnOI  a ARRAY  IN  PIOCP  PORNAY 

INYCOCR  I YOBUPIRNHIYOi  a BUPPCR  POR  YAPC  OIRCCYORY 

INYCOCR  NUPKY(3I  a PACKCY  USCO  IN  IHAPPINO  YAPCS 

INYCOCR  NSCCNCI3I  a SCCNC  IOCNYIPICAYION 

INYCOCR  0377/0377/  a NNCNONIC  POR  OCYAL  377 

INYCOCR  03SS/03SB/  a NNCNONIC  POR  OCYAL  3S8 

INYCOCR  HINVOL  $ VOLUHC  BCPORC  RCQUCSYCO  VOLUNC 

INYCOCR  NOCPVL  a NCARCSY  PRCVIOUS  OCPINCO  VOL.YO  RCQUCSYCO 

INYCOCR  NUNRCC  a TAPC  OIRCCYORY  NUNBCR 

INYCOCR  NUNSCQ  a OAYA  SCQUCNCC  NUNBCR 

INYCOCR  nyy'pc  a OAYa  yvpc 

INYCOCR  NSCNYY  a OAYA  SCQUCNCC  NUNBCR 

INYCOCR  NUNVOL  a VOLUHC  NUNBCR 

INYCOCR  NRCC  a NAX  NUNBCR  OP  RCCOROS  YO  RCAO 


PROeCOURC 


CALL  TRACC 

e * 


N*SBS 


noon  o noon 


OAN  #ACK*OC  APACNOtX  N 
yVlLlTV  ROUrtNCt 


rtHAPt 

OOS 


irune  • > A UNIVAC  eooc  roft  smamino  to  mcseiittco  occl 

yTTOt  • • • 

NUOKTUl  • LUSOKTMt 
NUOKTIt)  • LUSOKTItl 
C 

e 

e INiriLIZC  tTATUt  TO  MOMSr  CAOC 

e 

ITfTAT  • •COO* 

e 

c 

e VOLUNC  MITNIN  VALID  AAMOC  T 

e 

irt  (NTAVOL.LC.Ol .00. (NTAVOL.Or.LUSVNI I I CALL  NONOTCC 
• *1  TAAC  voLune  OUT  or  oanoci*  i 
in  (NTOVOL.Le.O.I.OO.fNrPVOL.Or.LUIVNII  i 00  TO  900 

e 

e 

c oereoNiNC  ir  tapc  Nunecfi  is  oeriNCo 
e 

inLUSOeLCNTPVOL)  .NC.  ‘ *>  00  TO  IVO 


LOCATC  the  last  PREVIOUSLY  OCPINCO  TAPE 

niNVOL  • NTPVOL  - I • VOLUHE  BErORE  REQUESTED 
00  100  NUN  • NINVOL. I .-I 

NOEPVL  • NUN  • NEAREST  PREVIOUS  OEflNEO  TAPE  VOL. 
iriLUSRELINUNI .NE. ' 'I  00  TO  lEO 

100  continue 

CALL  NONOTE  1 M ERROR  IN  TAPE  ASSIONNENTI*  ) 

00  TO  BOO 


SWAP  tapes  to  establish  next  reel  NUNBER 

leo  00  130  NUNVOL  • NOEEVL .NINVOL 

NUPKTISI  • LU3RCLI NUNVOL I 0 REEL  NO.  TO  SWAP  TO 
CALL  ERTSHPtNUPKT. irUNCt  • SWAP  TAPES 
LU3V0L  • NUNVOL  0 CURRENT  TAPE  VOLUNE 
CALL  fLlNEOI lOPILE.  LUSPKT.'BB'I  • UPDATE  PACKET 
LUSriDiriOCRLI  • lOriLEiriOCRLt 
LUSPIOiriONRLi  • lOriLEiriONRLI 
in lOriLEcTI .EQ. * *1  CALL  NONOTEt 

• MTAPC  NOT  ASSIONEOi*  > 

iniOriLElTi.EQ.  * 'I  00  TO  900 
ISO  LUSRELILUSVOL  • II  • lOriLElTI  0 NEXT  REEL  NO 
C 

c 

e REOUCSTEO  tape  REEL  NUNBER  AVAILABLE 

e 

too  NUPKTISI  • LUSRELINTPVOLI 

CALL  ERTSWPINUPKT.irUNCI  0 SWAP  TAPES 
LU3V0L  • NTPVOL 

iriNTPVOL.LT.LUSVNlt  CALL  PL INPO< lOPlLC . LUSPKT.'BB'I 


N-SBB 


o o u o 


OAN  ^ACKAOC  *#mi01X  N 
UTILITY  ROUTtUCf 


trc  INTRVOL.LT.LUIVNII .AN0.tl0riLCI7l.NC. * *1  I 
• LUMCLILUIVOL  » II  • lOriLCtTl  • NCXT  NCCL  NO. 


C ON  A NCTUNN  CALL  TO  VOL.  I TAK  OIN.  It  NOT  CKCCKCO 

e ANO  NceoNOt  icroNC  ihaoc  arc  rcao  ovcr 
e 

irtNTRVOL.NC.n  00  TO  ISO 
ITSTAT  • • • 

LUSRir  • LUSRLOILUSVOLI 
00  ISO  NRCC  • 1.70 

CALL  RSTRCCItrORUr.CRNHirOl.lSrAr.  I .COO.SOO.OOl 
iritsrAT.CQ. 'iAor'iirtTAT  • *crr' 
iriitrAr.cQ. *BAor*»  oo  ro  soo 

CALL  OerOYTINUNRCC.  ITOiUr.BI  • LOCATC  INAOC  RCCORO 
trtNUNRCC.CQ.03S8 I 00  TO  SOO 
ISO  CONTINUC 

ITSTAT  • -CRR* 

CALL  HOrATLf  ‘IHAOC  RCC.  NOT  LOCATCO  ON  RCTURN  CALL  TO  VOL.  I 
00  TO  900 
C 
C 

C RCAO  TARC  OIRCCTORT  TO  OCTCRNINC  TAPC  CORRCSRONDCNCC 
C 

ISO  CALL  RSTRCCIITOBUP.tRNMITOl.lSTAT.  1.900.300.80) 
irt ISTAT.NC. * ')  CALL  NCNOTCC 

• ‘ll/o  status  IS’.‘  ' .CSSVCSI ISTaT. I .VI . • ON  continuation  TAPCI 
Iff ISTAT.NC. * ' .ANO. ISTAT.NC. ’BAOR' I 00  TO  900 

CALL  OCTBYTINUNRCC.  ITOBUr.BI  • VCRIPY  RCCORO  IS  OIRCCTORY 
irtNUHRCC.NC.SICALL  NONOTCt 

• ‘iriRST  RCCORO  ON  RCCL  .CB8VCSILU3RCL ILU3V0L I . I .61 . 

• * not  TAPC  OIRCCTORY) ‘ ) 
iriNUNRCC.NC.S)  00  TO  900 

CALL  OCTBYTINUNSCQ.  IT0BUr.3D  • STORC  OATA  SCQUCNCC 
C 
C 

C TRANSLATC  OATa  TO  CNARACTCR  STRINO 
C 

CALL  CSTVASI ITOOUr.  ITOOUr.NBVNI tRNUITO) ) 


CHCCK  SCNSOR  ANO  TAPC  TYPC 

CALL  OCTChRINSCNTY.  ITOBUP.S)  • ‘N*  OR  *R* 
iriNSCNTY.NC. *N* ) CALL  NONOTCt 

• *t OAT A ON  CONTINUATION  RCCL  •’ .CBS«CSILU3RCLILU3VOL) . I .6) . 

• * not  NSSI*  I 
triNSCNTY.NC. *N*I  00  TO  900 

CALL  NOVCNRtNTYPC.t . ITOBUP.lt'  • 'A*  OR  *P‘ 

CALL  NOVCHRINTYPC.B.  ITOBUr.S)  0 ‘N*  OR  'R* 
in NTYPC . NC . LU3RCP 1 1 1 ) CALL  NONOTC  t 

• ‘IOATA  on  continuation  RCCL  •* .CBSVCStLUSRCLtLUSVOL) . I .01 . 

• * NOT*.*  *.CBS*»CStLUSRCri|I.I.V).‘l*  1 
iriNTYPC.NC.LU3RCPttl I 00  TO  SOO 

C 

c 


tshaps 

BOB 


) 


N*SB7 


o u o u 


PAM  PACKAOC  AMCNOtX  N ftMAPI 

uriLirr  AourtNCt  ost 


e CMCCK  OATA  tCOUCNCC 

e 

trfNUNtCQ.CQ.OI  NUNtffO  • *ttO* 
iriNUNtCQ.Ca.0177l  NUNtCQ  • *tu* 
trtNUNtCQ.NC.LUlfCQCIil  CALL  NONOrCI 

• MOATA  ON  CONriNUATION  NCCL  •* .COOHCttLUXRCL CLUSVOL I . I .01 . 

• * NOT*.*  '.COSNCtCLUSSCQiti.I.Xi.M'  I 

c 

e 

e CHCex  voLuNC  nunocr 

e 

iotat  • • • 

CALL  OCOOCCNUNVOL.NCAL.KOOrVA.  irOOUr.l9.l> 
iriNUNVOL.NC.LUSVOLIKOOrrN  • ’CAR’ 
irtKOOTYA.NC.  MN’iCALL  NONOm 

• MOAO  VOLUNC  NUNOCR  ON  CONriNUATION  RCCL  •*. 

• C0tVCS(LU3RCL(LU3V0LI .1 .61 . ' ‘I 
irtKOorvR.NC. ’in'iistat  > *crr* 


CONRARC  SCCNC  10 

CALL  OCOOCINtCCNCdl.RCAL.KOOrvR.  irORUr.39.1*  A NIOSION  NO. 
irtNSCCNCM  I .NC.NCRrst  I n KOOTYR  • ’CRR’ 

iriKOorrR.co. * IN’ I call  ocooci 

• NSeCNCCII  .RCAL. KOOTYR.  I TOOUR . 36 . <*  I 1 OAY  SiNCC  LAUNCH 

iriNSCCNCtOl .NC.NCRTStO IKOOTyR  • ’CRR’ 

C 

irrxOOTYR.CQ. * IN' ICALL  OCOOCC 

• NSCCNC(3I  .RCAL. KOOTYR.  iro0ur.*»0.9>  • HOUR.NINUTC.  10  SCC 
irfNSCCNC(3*  .NC.NCRTtlSnKOOTYR  • ’CRR’ 

c 

ir (KOOTYR. CO. ‘CRR* (CALL  NONOTCI 

• *(0A0  tCCNC  10  ON  CONTINUATION  RCCL'.* 

• C06NCS(LU3RCL(LU3V0Li . I .6*  > 

tri  (ISTAT. CO. 'CRR'I. OR. (KOOTYR. NC.'iN'i  • 00  TO  900 

c 

itotat  • ’ * 

LU3R0r  • LU3RL0(LU3V0L>  • 1 
00  *»00  NRCC  •1.36 

CALL  R3rRCC(ir00Ur.(RNHir0i. ISTAT.  I .(00.300.00> 

irdSTAT.cQ. ‘cor'i  oo  ro  too 

•>00  CONTINUC 

CALL  NONOTCI '(CXRCCTCO  COR  NOT  ROUND  ON  CONTINUATION  RCCL’. 

• C9t*>eS(LU3RCL(LU3V0L>.l.0i.*i*  I 
ITSTAT  • 'CRR* 

C 

c 

c 

CNO 


1 


N'SOO 


PAN  PACKAOC  APPCNOIX  N 
UTILITY  ROUTlNCt 


VALKBV 

Ml 


tUPNOUTlNC  VALKCTI  • VALUATC  KSUNITT  KCY 

I KCYt  ■ KCT  ro  1C  CHCCKCO  APAINPT  NRITC  KCV  TON  PAN  TILC 


(C  N tCNLOMCRI 


PINCNCION  JACOAtpi 

1 1 1 1 1 mccmniisHHiiiiHiippMsa 

PATA  jama  /*•  AM. AX  OAN//TTTTTT.  . */ 

1 nasp  I CSHMI  (S*»SP  I tS*»MI  CSHSA 

CALL  CRCtr(NAO.*ArXCC.R  PAN.  . *t 

CALL  NPLOOC*«*  INVALID  KCV  k CNTCR  IN  LOOTILC 

JAMAIVI*KCY 

CALL  CRCCriNAO.JASOAl  I CXCC  HILL  AMHT  If  KCY  INVALID 

CALL  NDLOOi’  *•  • OVCR-HRirC  LOOFILC  CNTNY 

CALL  CRCSriNAO.*arNCC.  I DAN.  . *1 

CALL  CNCSflNAO.'AASO.’X  DAN.  . *t 

RCruftN 

CND 


OAN  PMRAOC  AMCNOIX  N 

tttlLirt  MWriNCt 


VAMQN 

Ml 


MAI  fUNeriON 

0 

• VAAMNf 
I ANAT. 

I MlllM.NCUtC. 

I NAOtn.»;OtN. 
t NCtAt!r>  MMAOI 


• NemiAt.lXCO  VARINAX  ROTAnON  CRITCRIOl 

A tlROAC  RRCCtttON  NATRIX 
a NUNRCR  or  ROM  A eOLUNM  UtCO 

• NUNRCR  or  ROMO  A COLUNNS  OlNCNtlONCO 
A eOAUNN  NUNOCRt  Or  COLUNNO  ro  RROCCtf 


fC  N tCNLOttCRI 


OINCNtlON  ANArCNROlN.NCOlni 

ocr t NC  ANAT A ( NR . NC I • ANAT ( NR . NC > • ANA T f NR . NO  t / 

A IANAr(NR.NCtRRO»«AHAr(NR.NCtRROt *AnAriNR.NCARROi •AHATINR.NCtRROI I 
CALL  trace 
C 

c 

VARION*0 . 

NCRRO*NCIRRO 
00  AAA  NC«I .A 
•UNN«0. 
tUNA-0 . 

00  ANA  NR«1.NRUAC 

tUNN«tUNH • ANAT A f NR . NCRRO  > • ANA  T A ( NR . NCRROi 
tUNA*SUNA*ANArAINR.NCRROi 
ANA  CONTINUC 

VARSQN* V ARtON*NRUtC • SUNN  ofUNA  « tUNA 
NCRR0*NCARR0 
AOA  CONTINUC 

VARtQN*VARSQN/NRUtC«NRUSC 

RETURN 

CNO 


N*SOO 


o n 


OM  #*CKAOC  AmNOtX  N 

uriLirr  nourtiifft 


VANMM 

Ml 


RCAL  rUNCnON 

0 

•VARMUl 
I ANAT. 

t NRUttr.NCUM. 

I NMIN.NCOIN. 

( NCIMO.NCtMOt 


A UN-NOINIAUZffO  VARINAX  MTAriON  CRirCRION 

• tlNOiC  RXCCttlON  MATRIX 
A NURRCR  Of  ROM  A COlUNNt  UAfO 
A NWfllCR  Of  ROMO  A COiUltNf  OlMCNOfONCO 
A COLUMN  NUHOCRO  Of  COLUNNO  TO  fROCCAA 


e Iff  N •CNLOftCRt 


OIMCNOION  AMArfNROIN.NCOlHI 

OCfINC  ANArttNA.NCi^ANAriNR.NCMANAriNR.MCt 

CALL  TRACC 


VARAOU*0. 

NCfRO-NClfMO 
00  too  NC*1.C 
AUM«*0. 

RUNt*A. 

00  ff«0  NR*I.NRUtC 

fUlW  •OUN«»  • A HA  TO  I NR . NCfRO  t • ANA  rt  I NR . NCfRO  I 
tUNt«tUnt*ANArt(NR.NCRROI 
t*»0  eONTINUC 

VAROOU-VARIOU*NRUtC*OUnH>SUNt*tUNt 
NCRRO-NCtfRO 
too  eONTINUC 

VAROQU*  V AROQU/ NRUAC • NRUtC 

RCruRN 

CNO 


OOOOOUOOOUOOOOOVIOOOOOOOOOOOOOOOOWOOOUO 


OAH  PACKAOC  AWNOIX  N 
UmiTY  ROUriNCS 

SUmOUTtNC  VCRA40 


VCRARd 

001 

• Aojusrco  NOS  HiNOOH  vcoricco  mOH  OCOORAANIC  VCRTlCeS 


HIOTORV 


C N tCNLOttCR  LCe 

e H SCHLOSSCR  LCC 


lO/OT/Yl  ORIOINAL  COOC 
10/30/70  UPORAOe  OOeunCNTAr ION 


NCTNOO 


TRANSrORN  VCRriCeS  IN  THC  OUTPUT  OCOORAPHIO  MINOOl  PACKET  INTO 
VCRTICeS  IN  the  output  AOUUSTEO  NSS  MINOOH  PACKET.  ALL  VERTEX 
COOROINATES  ARE  RELATIVE  TO  THEIR  RESPECTIVE  HINOOH  ORIOINS. 


HACHINE-OEPENOENT  COOC 


NONE. 


EXTERNAL  RCPERENCCS 


AfO  a AOJUSTCO  NSS  COOROINATES  POR  OCOCRAPHIC  COORDINATES 


EXCEPTIONS 


NONE. 


OLOOAL  declarations 


INCLUDE  KOHOHH.LIST  • CONNON  OUTPUT  HINOOH  PACKETS 

INCLUDE  HINOEP.LIST  a OCriNE  STRUCTURE  OP  HiNOOH  PACKETS 

e LOCAL  declarations 

INTCOCR  NAXVCR  a NAXINUN  (L'.STI  VERTEX  OCPINCO  (USCO> 

INTEOER  NOO  a NODE  NUNOCR 

REAL  AOULIN.AOJSAN  a ADJUSTED  NSS  LINE.  SAMPLE 


PROCEDURE 


CALL  trace 
C 


N-SOO 


OAN  MCKAOC  AMCNOIX  N 

uruirv  RourtNCs 


VCIIAAO 

ooc 


e 

C INtriALtZe  MINTCR  TO  LAST  VCRTCX  UCCO 

e 

HAXVCRatOOLIOeOOUMtHUSCO.UHCAOn  • INTCOCR  POINrCR  IN  REAL  ARRATI 

NtAONUtUUSeO.UHCAOl •NAXVCR 

e 

e 

e TRANsroRH  vcRriees 

e 

00  too  NOO«MVCR.HAXVeR 

CALL  A«0( 

A AOJLIN.AOJSAH. 

• OeOOHHtULAr.NOOI*OeOOHU<HLAr.HOR10t . 

A OeOOUUtULON.NOOl »OeOOWU<MLON.UORtOi I 

N8A0UU I UL  t N . NOO > > I r I X ( AO JL I N* . S > -HSAOMU ( UL I N . UOR I 0 1 
HSAOHU  t USAM . NOO i > t T I X C AO JSAN* . S > -NSAOMM  C USAH . MOR 1 0 > 
too  CONTINUE 

c 

RETURN 

ENO 


M«tOS 


oooonnononnnnooonnnnonooonnonnonnoooooon 


OAN  PACKAOC  AMCNOIX  N 

umirv  RouTiNcs 


vriiAi»f» 

Otl 


tUMOUTtMC  veilAAR  • AOJUSrCO  NSS  UINOOM  VCRTICCS  FROH  RIIIMr/RLOr  VCRTICCS 


NttrORV 


C N SCNLOSSCR  LCC 

C N SCHLOSSCR  LCC 


to/ 07/73  ORIOtNAL  COOC 

to/ 30/79  UPORAOe  OOCUNCNTAr ION 


NCTNOO 


TRANSrORH  VCRTICCS  IN  THC  OUTPUT  PRINT/PLOT  HINOOU  PACKCT  INTO 
VCRTICCS  IN  THC  OUTPUT  AOJUSTCO  HSS  UINOOH  PACKCT.  ALL  VCRTCX 
COOROINATCS  ARC  RCLATIVC  TO  THCIR  RCSPCCTIVC  HINOOU  ORIGINS. 


NACHINC-OCPfNOCNT  COOC 


NONC. 


CXTCRNAL  RCPCRCNCCS 


AVP  • AOJUSTCO  HSS  COOROINATCS  FOR  PRINT/PLOT  OCVICC  COOROINATCS 

NOUARN  a PRiNT/COUNT/LOG  ‘UARNINO*  OlAONOSTIC  NCSSACC 


CXCCPTIONS 


t.  IF  NCITHCR  CALSPA  NOR  CALSCA  HAVC  BCCN  CALLCO  PRCVIOUSLV.  THCN  THC 
RCSULTS  OF  VCRAVP  ARC  UNOCFINCO. 


OLOBAL  OCCLARATIONS 


INCLUOC  KOHOUU.LIST 
INCLUOC  UINOCF.LIST 
C 

c 

e LOCAL  OCCLARATIONS 

C 

c 

INTCOCR  HAXVCR 
INTCOCR  NOO 
RCAL  AOJLIN.AOJSAN 


a CONNON  OUTPUT  UINOOM  PACKCTS 
a OCFINC  STRUCTURC  OF  UlNOOU  PACKCTS 


a NAXINUH  (LASTI  VCRTCX  OCFINCO  (USCOI 
a NOOC  NUNBCR 

a AOJUSTCO  HSS  LINC.  SAHPLC 


PROCCOURC 


N-397 


uouu  uuouuuouo 


OAN  PACKAOC  AmNOIX  M 
UTILITY  ROUTINCS 


VCRA*»» 

«0> 


CALL  TRACC 

e 

c 

C INITIALIZe  POINTCII  TO  LAST  VCRTCX  USED 
C 

NAXVCR^tOOLtRROOUMCUUSeO.MHCAOn  A INTCOCR  POINTER  IN  REAL  ARRAYI 

HSAOHHI HUSEO.HHEAOI •HAXVER 


TRANSrORH  VERTICES 

ipihaxver.ot.nver^ei  call  NOUARNI 

• ‘PRINT/PLOT  POLYORAN  NOT  AVAILABLE’! 

00  EOO  NOO*UVER. HAXVER 

CALL  AVPf 

A AOJLIN.AOJSAH. 

• PPOOHUIHLiN.NOOl *PPOOUHI UL 1 N. UORI 0!  . 

A PPOOHUtUCOL.NOOi *PPOOMU(UCOL.MORIO) I 

NSAOUU C41L  1 N . NOO I • I F I X ( AO  JL  I N«  . 5 > -HSAOUH  ( ML  I N . HOR I 0 > 
NSAOUHt  USAH . NOO 1 « I F I X I AO JS AN* . S ) •NSAOUU  C USAN . UOR 1 0 1 

200  continue 

RETURN 

END 


No  308 


/ 

t 


OAN  PACKAOC  AMCNOIX  N VCRO«U 

UTILITY  ROUTINCS  001 


OURROUTINC  VCROi»U  0 OeOORARHIC  Ml  ROOM  VCRTICCS  FROH  UTH  VCRTIcrS 


c 

e 

c 

e 

c 

e 

c 

e 

e 

e 

e 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Ml STORY 


K N SCHL0S8CR  LCC  10/07/73 

C N SCHLOSSFR  LCC  10/30/70 


ORIOINAL  COOT 
UPORAOe  OOCUHCNTAriON 


NCTHOO 


TRANSrORH  VCRriCCS  IN  THC  OUTPUT  UTN  HINOOH  PACKET  INTO 
VERTICeS  IN  THE  OUTPUT  OEOORAPHIC  HINOOU  PACKET.  ALL  VERTEX 
COORDINATES  ARE  RELATIVE  TO  THEIR  RESPECTIVE  UlNOOU  ORIGINS. 


HACHINE-OEPENOENT  CODE 


NONE. 


EXTERNAL  REFERENCES 


0<»U 


EXCEPTIONS 


a OEOORAPHIC  COORDINATES  FOR  UTH  COORDINATES 


t.  IF  UTHCHO  is  UNOEFINEO.  then  the  results  OF  VERO<»U  ARE  UNOEFINEO. 


OLOSAL  declarations 


INCLUDE  KOHFIT.LIST 
INCLUDE  KOHOHH.LIST 
INCLUDE  HINOEF.LIST 


LOCAL  OECLARATIONS 


a COHHON  AOJUSThENT/REOISTRATION  PARANETERS 
a COHHON  OUTPUT  HINOOH  PACKETS 

a define  structure  of  uinooh  packets 


INTEGER  NAXVER 
INTEOER  NOO 


a NAXIHUH  (LAST!  VERTEX  OEFINEO  (USEOI 
a NODE  NUHRER 


PROCEDURE 


CALL  trace 


N'SOS 


VCIIO«U 

oot 


0AM  MACKAOC  AMMCNOI 

uriLirv  ROuriNCt 


e 

e INtTtAUZe  ROINTCR  TO  LAST  VCRTCX  USCO 

e 

NAXVCR-tOOLtUrNOUWtHUSeO.HHCAOn  • INTCOCR  ROINTCR  IN  RCAL  ARRAVI 
OCDONH ( MUSe  0 . UHC  AO  t •UTHOHU  C HUSCO . UHC  AO  > 

C 

e 

C TRANSrORH  VCRTlCeS 

c 

00  000  NOO-HVeR.HAXVCR 
CALL  0<»U( 

A eeOOHH(HLAr.NOO) . 

A OeOOHH<HLON.NOO> . 

• UrHOUMCUCA.NOO) ♦urHOHUIUCA.UORIOl . 

A UrHOUUtUNO.NOOt  *UrNOUUCHNO.UORIO} . 

A UTHCNOI 

oeoouuf  ML Ar . nooi •ocoouuc  ul  at . noo> -ocoouhi ul at . uor i o > 
OeOOHMCULON.NOOI«OeOOHM(HLON.NOO> -OEOOUM(MLON.HORtO) 

000  CONTINUE 

c 

RETURN 

ENO 


N-J97 


onooonooooonooon 


OAN  PACKAOC  AmNOtX  N 
UTILITY  ROUriNCt 


HAmw 

001 


tUOROUTlNC  HARNOC  0 OUONIT  UARNINO  FOR  NtOSINO/ INVALID  FtCLO  FRON  UNIT  S 
I NOUARNI  0 HARMINO  NCSOAOC  ISrARTS  HITH  *•'  IF  RCQUlRCOl 


NIOTORV 


E 

N 

SCNLOSSER 

LEC 

03/0B/7S 

E 

N 

schlosser 

LEC 

oe/iv/70 

E 

N 

SCNLOSSER 

LEC 

08/07/79 

hcthoo 


ORiOINAL  COOC  IN  RCAOO 

Revise  A HAXe  SCFARAie  SUBROUT  I Ne 

ARPeNO  INVALID  FieuO  TO  MARNINO  NSO 


IF  FICLO  IS  NISSINO  AND  NOT  ReOUlRCO.  FLAG  RenAININO  FICLOS  AS  NOT 

ReouiReo.  OTHeRuise  output  thc  uarnino  ncssaoc.  follouco  bv  thc  first  bs 
CHARACTCRS  OF  THC  INVALID  FICLO.  OR  MHISSINOI'. 


HACHiNC'oepeNoeNT  cooe 


OINeNSION  SPeCIFICATlONS  ASSUHC  B CHARACTCRS  PER  SINGLE 
PRECISION  INTEGER. 


exTCRNAL  REFERENCES 


iNTeOER  ICe  a INTeOER<CHARACTER-EOUlVALENT  OF  FIRST  CHAR  OF  STRING 

iNTEOeR  LENCST  a LENGTH  OF  CHARACTER  STRING 
e HOUARN  a SUBMIT  UARNINO  OIAONOSTIC 

e oeTOKH  a oet  character  string  data  field  from  buffer 


exccpTioNs 


I.  NONe. 


GLOBAL  declarations 


INCLUDE  nulchr.list  a define  null  character 

INCLUDE  KOHLUS.LISr  a POINTERS/FLAOS/BUFFER  FOR  UNII  S 


LOCAL  declarations 


c 


INTEOCN  KNTENPINI 


0 FIRST  03  CHARS  OF  DATA  FIELD  • NULCMR 


N-SSD 


oouu  oouu 


e*N  ^ACKAOC  A^KNOtX  N 

uriLirr  ROuriNCt 


WARNS 

oot 


e RROCCOURC 

C ir  eURRCNT  UNIT  8 DATA  flCLO  If  NISSINO  A NOT  RCQUIRCO.  NO  OlAONOSTtC 

iriLUSNAx.or.o)  oo  ro  too  • oata  rteto  is  PRrscNT 
tpneetHSuARNi  .nc. leci ‘•*i  i lusrco*o 
trcLusReo.eo.oi  oo  ro  too  • hissino  no  has  optional 


IP  NCSSAOe  IS  NON-NULL.  APPCNO  CONTCNTS  OP  DATA  PICLO  AND  PASS  TO  NOHARN 

too  IPILeNCSriNSUARN. I ) .eo.o)  00  TO  000  a no  NCSSAOC 

CALL  HOVCSrCKHrCHP. ( 1 1 . (031 . ' (NISSINO) *.( n . I9> . ' ') 

LUSLCN^O  a PRCPARC  TO  OCT  CURRENT  PICLO  AOAIN 

CALL  OETOKHIKHTCNP. (03) .LUSLLH.  LU9LLH.LU9IN0) 

CALL  PUTCHR(KHTENP.  (O'*)  . NULCHR) 

CALL  NOHARN(  HSHARN.*  — *.*  *.KHTENP) 


DONE 

900  RETURN 
END 


N-S90 


oooooooooooooooooooooooooooooooooooooooooooo 


uruirv  wouriNCS 


I 


NlMCxr 

001 


ouooouriNC  uiNCxrt  • cohfutc  iNrcoceor  oAiiit  roo  minoou  cxrcKioM 
0 INCCOr.  • INTCKCCPr  TAOLC  CNIN/HAX  OANPLC  pa  IRS  I 
0 NCNAX.  a NUNOCR  OP  INTCRCCPTS  (AkHATS  CVCNI 


I NtAkiN.  a Hit  LiNC  ro  or  iNrcRCCPrco  or  polyorah 
I NOAOLO.  a LOU  Aojuorro  sanplc 

I NOASNII  a NION  AOJUOrCO  SANPLC 


Ni STORY 


C H SCHLOSSCR  tec 

J C CRISP  LCC 


orioinal  cooe 

ll/SO/70  AOO  HSASLO  A HSA8NI  AROUNCNTS 


NCTHOO 


TNIS  SUOROUriNC  CONPUTCS  THC  INTCRCCPTS  OP  ThC  CURRCNT  HSS  UlNOOH 
hith  a spccirieo  scan  linc.  this  is  an  adaptation  or  thc  past  octant  rotation 
POINT-IN-POLVORAN  ALOORITHN  OCVCLOPCO  by  SCHLOSSCR.  IT  Otvcs  VALID  RCSULTS 
POR  CLOCKHISC.  COUNYCR-CLOCKHl SC.  AND  COHPOSITC  POLYORAHS.  BOTH  CONCAVC  AND 
CONVCX.  ALL  BOUNDARY  POINTS  ARC  CONSIOCRCO  INTCRIOR.  THC  NUHBCR  OP  HOROS 
IN  THC  ARRAY  INCCPT  MUST  0C  ORCATCR  THAN  THC  NUM8CR  OP  VCRTICCS  IN  THC 
POLYORAH  TO  SC  INTCRCCPTCO.  IP  THC  POLYORAH  CXTCNOS  OUTSIOC  THC  CNVCLOPC. 

ONLY  THAT  PORTION  HIThIN  THC  CNVCLOPC  IS  USCO. 


HACHlNC'OCPCNOCNr  COOC 


NONC 


CXTCRNAL  RCPCRCNCCS 

ISRTBA  a INTCOCR  OUOOLC  SORT  ASCCNOINO 
CXCCPTtONS 
NONC 


OLOOAL  OeCLARATIONS 


INCLUOC  KOHOUM.LIST 
INCLUOC  UINDCP.LIST 
INCLUOC  ASHOCP.LIST 
C 

e 


T.i  i J • r ■' 'ij’I  .. 
V.k  iclfALITV 


N'YOO 


OAN  ^ACKAOC  APMNOIX  N 

uraiTv  RouriNCt 


MtRCXr 

QRI 


C LOCAL  OCCLARArtONO 

C — — — — — 

e 

INTCOCR  INCCRTm  I AROUNCNT 

RARANCrCR  NOONIR«MVCR»I 

OCriNC  irxRN0IRCALI«irtXIRCAL*fl0N(.9.RCALIt  0 ROUND  CtTHCR  ROt  OR  NCO  NO 

c 

e 

C RROCCOURC 

C — 

c 

e 

e INiriALIZC  INTCRCCRT  OCNCRATION 

e 

NOONAX •NO AOWM I HUf CO . UNC AO ) 

irCNOOHAX.Lr.MVCR^SI  00  TO  OOO  • UOC  CNVCLORC 
HLINRO*NSALIN*HSAOHH(HLIN.HORIOi  A RCLATtve  TO  ORIOIN 

NRIO>NlNO(NAXOINSAOHHfHLlN.MVCRt -ULINNO.'I I .*1  I • >1.0. *1  Rl 

NCCR«0  a iNrCRCCRT  NUNOCR  (LCAVC  NOON  TOR  riRST  CNVCLOPC  INTCRCeRr} 

e 

c 

e CONRUrC  ROLYORAH  iNrCRCCPTS 
c 

00  too  N0D*N00H IN. NOONAX 
NRIt«NRIt 

NRIt-NINOlHAXOfNOAOHHfHLlN.NOOl'NLINRO.-ll .•!)  I 'I.O.*!  Rl 

iriiNRit'NPi n .CQ.ot  00  ro  too  a no  intcaccpt 

INCCRTINCCRI •INRtt-NPI 1 1 *1  a INCRCNCnTal  ROTATION  COIASCO  POSITIVE) 

ASNHI ( INCCPTINCCP) >«irxRNO( 
a rLOATIHSAOUUlHSAN.HORIOI •NSAOUUIHSAN.NOO’I I 1 • 
a PLOATI IHLINRO  -NSAOUHtUL IN.NOO'I ) I • 

a (HSAOUUf HSAN.NOO* 'NSAOUUI USAN.NOO'I 1)1/ 

a FLOAT  IHSAOMU(ULIN.NOOI<'HSAOMHIHLIN.NOO*I)I) 

NeCP«NCCP*l 

too  continue 
e 
c 

e coHPurc  envelope  intercepts 
e 

INCEPTIII«*S  a NULL  ROTATION  lOlASEO  POSITIVE) 

AtHHIIINCEPTI|))>HSASLO*t  a SHIFT  OUTSIDE  ENVELOPE 

INCCPT(NCCP)**9099  a FORCE  TERNlNATION 

ASHNI CINCEPTINCEPI l•nSASMI•l  a SHIFT  OUTSIDE  ENVELOPE 


SORT  intercepts  OV  SAHPLE  NUHOER 
CALL  ISRTOAI INCEPT. NCEPI 


initialize  intercept  reduction 

NP I SUN-0 
NCIN«I 
NCOUT«l 
00  TO  SIO 


a CUNULATIVE  rotation 


u u u u 


e«N  •AMAOC  APKNOIX  N 
ROUriNCt 


miicxr 

eot 


e 

c 

c rtNO  tTANriNO  iNTCRCCpr  or  AAix  (fixtr  ourtioc  roLYOXANt 
e 

m NCIN*NCtN»l 

irfNCiN.oc.Nccrt  oo  ro  aoo 

sto  Nritun«NrituN*AtHN(iiNCcrr(NCtNii>s  • eunuLAnvc  AOYAriON 
ircNXitun.NC.oi  oo  ro  lOO  a not  owrtioc  roLYOXAn 
no  iNecrr(Neourt«iNCcrr(NCiNi/o«*io*i  ■ unxack.  cxtcno  tiox  a txirr  oursioc 


c rtxo  CNOiNO  iNrrxccrr  or  xaik  (laot  ourtioc  aolyoxahi 
e 

NCI N*NC I N*l 

NritUN*NritUN«ASNNC(lNCCrriNCINil>3  a CUNULAriVC  AOrATION 

iriNrituN.co.Oi  oo  ro  sto  a triti  ourtioc  roLvoxAn 
iNCcrrcNCOur*! l•lNCcrrrNClNl/c••lo•l  a unpack,  cxtcno  tiON.  tHirr  ourtioc 
irnNCCrriNCour*n  .lt.  iNCcrrtNCouri  I oo  to  300  a oclctc  txivial  pain 
NCOuraNCOur*c 
00  ro  300 
c 
c 

c troxc  NUNOCR  or  iNrexccprs 
c 

AOO  NCNAX«NCOUr>l 
00  TO  too 


OCOCNCRATC  POLYORAN  --  UtC  CNVCLOPC 
too  NCNAX«0 

c 

c 

C NORNAL  RCrURN 

e 

too  RCruRN 
CNO 


OAN  PACKAOff  AWCNOIX  N 

umirv  RouriNtt 


NININr 

Ml 


tumouriNC  wiNiNn  • conmic  iNrcRCMrt  rex  hinoom  intcrim 
0 iwscRr.  • iNrcRCCRr  tailc  inin/nax  saralc  raimi 

0 MNAX.  • NUMCX  Of  INTCXCCRTt  lALMATt  CVCNI 

■ 

1 MAklNI  • Ntt  Line  ro  M INrCRCCPrCO  IV  MLVORAN 

e - 

c 

e cc  N tCNuottciii  ••«•••••  hot  Tcr  conRttreo  •••««••• 

e 

e 

e TNit  tuMOuriNC  eoNRurct  rHC  iNrcxccRrt  or  tnc  eunACNr  not  hinoom 
e NirH  A SRcetrico  man  linc.  thio  it  an  AOArrArioN  or  tnc  rAtr  octant  notation 

e ROINT>IN«NOLYORAN  ALOONITNN  OCVCLORCO  tv  tCNLOStCR.  IT  Olvri  VALID  NCtUlTt 
e rON  CLOCKHItC.  COUNTCN-CLOCKMIM.  ANO  COnrOtlTC  rOLrONANt.  tOTN  CONCAVC  AND 
e eONVeX.  ALL  tOUNOANY  ROINTt  ARC  CONSIOCRCO  INTCRIOR.  THC  NUnRCR  Or  HOROt 
C IN  TNC  ARRAY  INCCRT  HUtT  NOT  tC  LCtS  TNAN  TNC  NUNRCR  Or  VCRTICCS  IN  TNC 
C ROLYORAN  TO  RC  INTCRCCRTCO. 

C 

C 

e cxtcrnal  tuoROuTiNCt/ruNcr lONt  callco 

c - 

c 

e ItRTRA 

e 

e 

INCLUOC  KOHOHH.LItT 
iNCLuoc  HiNocr.Litr 
INCLUOC  AtNOCr.Lltr 
OlHCNtlON  INCCRTMI 

rarahctcr  noonin«hvcr*i 
c 
c 

C INITIALICC  INTCRCCRT  OCNCRATION 

c 

NOONAX«HtAOHH(MUtCO.HNCAOI 

irtNOONAX.LT.HVCR*!!  00  TO  000  • UtC  CNVCLORC 

NLINRO«NtALlN«NtAOHMfHLIN.HORIOI  0 RCLATIVC  TO  ORIOlN 

NRIC*NINO(HAXOINtAOHHIMLlN.HVCRl>NLINRO.«l  I .*11  0 -KO.*!  Rl 

NCCR*I  0 INTCRCCRT  NUNOCR 
C 

c 

C CONRUTC  ROLYORAN  iNTCRCCRTt 

00  COO  NOO*NOONIN.NOONAX 
NRII*NRIt 

NRIC«NINO(HAXO(NtAOHM<HLIN.NOO>>NLlNRO.on.*n  ■•l.0.*l  R| 
lNCCRTINCCRi«NRIC«NRI I 0 INCRCNCNTAL  ROTATION  IN  NC 

iriiNCCRTtNCCRI .CO.OI  00  TO  COO  • NO  INTCRCCRT 
lNCCRTINCCRI*IAOt(lNCCRTfNCCRi*CI  0 rORCC  ROtITiVC  OR  RLVt  CCRO 
AtNNIIINCCRT(NCCRIi«iriXI 
0 rLOATINtAOMM(MtAN.HORIOI*NtAOHH(HtAN.NOO*l • >* 

0 RLOATI (NLINRO  •NtAOHHfHL IN.NOO*! i I • 

A INtAOHHIHtAN.NOOI»NtAOMH(HtAN.NOO*in 1/ 

A RLOAT  INtAOHMINLlN.NOOl'NtAOHHIMLIN.NOO'in* 

A 0.01 
NCCR*NCCR*I 


N-*iS 


O O O O tt  V W 


PAN  NACKAOC  ANACNOIK  N 

unurT  NouriNCt 


too  eONflNUC 

c 

e 

e PORT  iNrcRCCtro  tv  oanpic  nunicr 

e 

NeCR«NeCR-t 

irtNccR.NC.oi  00  ro  too 

NCNAXaO 

00  ro  000 

too  CALL  lORTOACINCCOr.NCCRI 


tNiriALizff  iNrcRCCtr  RcouerioN 

NRItUN«0  • euNULAriVC  ROfAriON 
NCIN*I 

NCOur«i 

00  ro  110 


riNO  orARriNO  intcrccrt  or  rain 
300  NCIN  •NCIN*t 

310  N»IOUN«NRtSUH*AtNHtMNCCrTlNClNn  *t  0 RCHOVC  OIAO 

iNecrriNCourt*iNecrr(NCiMi /f ••to  o unrack  a cxtcno  oion 
NCour*NCOur*i 
c 
e 

C riNO  CNOINO  INTCRCCRT  Of  RAIR 

c 

»00  NClN*NCIM*t 

NRIOUN«NRIOun*AONNtllNCCRr(NCtNM-t  « RCROVC  OIAO 

ircNRIOWR.NC.Oi  00  ro  roo 

iNecRr(Neovri>iNCCRriNCiN</t««it  • unrack  a cxrcNO  oion 
NCOur»NCour*i 

iriNCiN.Ar.NCCRi  00  re  soo 
e 
e 

e oroRC  NUNOCR  or  iNrcRCCRro 
e 

NCNAK«MeOUr«l 

00  ro  ooo 
e 
c 

e DCOCNCRArc  rolvoran  ••  uoc  cnvciorc 
e 

000  lNeCRTIII*ROAOlNI(UOAR.UNlNI 
I NCCRr I i I •ROAOUM I HO AN . MNAX I 
NCNARat 

e 

e 

e NORNAl  RCrURN 

e 

000  RCruRN 
CNO 


N-«0« 


r 

( 


MNINT 

OOt 


OMI  PACRAOC  APMNOtX  N 

vrittry  nouriNts 


Mire* 

Ml 


•uMOuriNC  HfiirMt  • Mire  ro  unit  « itor  eomiANO  mcall  raci 

• 

I NUNCIIO*  A CAM  IHAOC  NUMtII 
1 INAMI  • INAOC  IIA  MROf.  riCLOATAI 


c N tCNLOMCR  Lce  emoiNAL  eooc 

c N tCNiettCR  cce  n/oT/re  Mirc  cor  Arreo  cacn  NON-OArcN  inaoc 


HCTNOe 


orcNt  AitiON  rcnreiiAiiY  nccall  rue. 

Mirc  UNI  VAC  cxcC'O  tor  laocl  inaoc. 
uNirci  rcNreoANiLv  iNtcor  uni  vac  cxcc-o  tor  contnoi  MONOt  ocrooc  t 
ArrcN  INAOC. 

UNirC  INAOC  IMLUOINO  CONTNOL  MONOt  10  rAtTRANO  tCCTOR  • NUNCNO. 

ir  Nor  tATCN  MNirc  uni  vac  cxcC'O  tor  cor  coninoi  mo  to  ncxt  tccroN. 
NACNiNC'OCrCNocNr  eooc 


VCNNNV I I 


c 

e cxrcNNAi  NcrcNCNCCt 


e NOUANN 

e CNioM 

e NveoNf 

c CNCtr 


• MINT/LOO/COUNr  'MANNINO*  OlAONOtTIC  NCtlAOC 
0 INI r I Arc  I/O  ANO  nait  rot  coNNicrioN 
0 NOVC  CONTCNTt  OCrHCCN  THO  NACNINC  AOORCttCC 
0 tuoNir  uNivAC  cxce-0  CACUirv  ncoulot  coNroo^  trArcNCN? 


CxccrrioNt 


I.  ir  NUNCNO  < I.  tnc  inaoc  it  not  uNirrcN  ro  tnc  nccau  rue. 

c.  ir  NUNCNO  > 0000.  A HANNIMO  OlAONOtnC  It  OCNCNATCO. 


OCOOAL  OCCLANATIONt 


iNCLuoc  KONxor.utr 
INCIUOC  NONIO.lltr 


0 eoNNON  nnoonan  cxceurioN  tuircNCt.  eowNrcNt 
0 eoNNON  I/O  ruNcrioNt 


LOCAL  OCCLANAflONt 


INTCOCN  iNAOClIVi  0 ANOUNCNT 

mrcocN  itHNOi/t/  o tcnnonanv  troNAOC  roo  inaocioi 


N*NOf 


uouo  o u u u uuou  uouu  uuuu 


OAN  MCKAOC  APKMOIX  N 
UTILITY  ROUTINES 


MRITC* 

00> 


INTEOEf^  ITNRIS  • TENPORARY  STORAOE  POR 

INtEOER  LUHPKTtS)  • I/O  PACKET 

data  (LU*»PKT(|I  ,I>I  .21  /‘RECALL  */ 

INTEOER  KHOAIH/OOOISOOOOOOOO/  0 SOT  CONTROL 
INTEOER  KMRVtS/OtOlYOOOOOOOO/  0 SOP  CONTROL 
INTEOER  KUEOP  /077T777777777/  0 SOP  CONTROL 


INAOEMSi 
0 PILE  NANE 

HOi  MO  data  IHAOE  POLLOHS 
HOi  IS  HO  BYPASS  INAOE  POLLONS 
HOi  ENO-OP-PILE 


PROCEOURE 


CHECK  NUHCRO 

IPfNUHCRO.LE.O)  00  TO  900 

IPCNUNCRO.OT.SOOOl  CALL  HOHARNf  ‘RECALL  PILE  OVERPLOH’I 


SAVE  CONTENTS  'P  LOCATIONS  USED  POR  SOP  CONTROL  HOROS 

CALL  NVCONTCLOCC IHAOE) -I . LOCI ITHPOOn  1 I THPOO- I HAOE ( 0 > 

ITHPtS-IHAOEC IS) 


SET  UP  SOP  CONTROL  HOROS  (I  CARO  IMAGE  PER  SB  HORO  SECTOR) 

CALL  NVCONTILOCCKUOaIV)  .LOCI  INAOE) -I  ) i I HAOE  ( 0 I >KHOA  I >> 

INAOEI IS) >KHBVIS  0 IS  HORO  BYPASS  IMAGE  POLLOHS 


INITIALIZE  PACKET  t HRITE  IHAOE  TO  OISK  SECTOR 
I0SIZE(LUVPKT)«I0 

IOAOORILU<»PKT)-LOC(IHAOE)>I  • LOCI  INAOE(O) ) 

IOSECT(LUVPKT) •NUHCRO 
IOPUNC(LU*»PKT)«*  AC’  i HRITE 

CALL  ERIOHILUHPKT) 


RESTORE  CONTENTS  OP  LOCATIONS  USEO  POR  SOP  CONTROL  HOROS 

CALL  NVCONTtLOC(ITHPOO).LOC(IHAOE)-ll  I I HAOE ( 0 I • I THPOO 

INAOEUSI-ITHPIS 


IP  not  batch.  HRITE  SOP  ENO«OP*PILE  CONTROL  HORO  TO  NEXT  SECTOR 

IPIHBATCH.NE.OI  00  TO  900  • BATCH 

IOSIZE(LU*»PKT)«t 
I0A00R(LU«PKT)>L0C(KUE0P) 

I0SECT(LUHPKTI«NUHCR0*I 
IOPUNe!L'.n»PKTI«‘iC*  • HRITE 
CALL  ERIOHILUYPKT) 

00  TO  900 

c 

c 


N-VOS 


o o u o ouuu  o o o o 


uriLirv  RouriNCs 


I 


oos 


c 

c 

c 

e 

e 


CNTRY  O^CNH  • OKN  UNIT  « fSOr  CONNANO  KCCAtL  riLCI 

INTCOCK  KHLA8L/080S3I 3000000/  0 SOr  CONTMOL  HOt  LAOCL  IHAOC 

CALL  rOACCC'OPeNH‘1 
ASS  I ON  rCNPONARV  ftCCALL  PILE 


CALL  EftCSP(NAO. *«AS0.r  RECALL.  . 'I 


WRITE  SOP  LABEL  INAOE  IN  OTH  SECTOR 

IOStZE(LU<»PKTl-l 
lOAOORfLUHPKTI -LOCIKHLASL ) 
IOSECTILU*»PKT)>0 
IOPUNC(LU**PKTI**aC‘  a WRITE 
CALL  ERIOW(LU<»PKTI 


COHNON  RETURN 

900  RETURN 
ENO 


o o o o o 


OAN  PACKAOC  AmNOI 

UrtLITY  MOUriNCt 


SUBROUrtNC  HRyCRTf 
I UINOOH. 

I OtVt.OlVR. 

I NATARO. 

I NOONAXI 

C 

e 

C IC  H SCHLOSSCRt 
C 
C 

OiNCNSiON  HArAROdt.nArrixnoi  a rix  roR  uni  vac  roRfRAN  v euo 
OIHCNSION  HIMOOHIR. II .RLfCHPIR) 
iNCLUOe  HINOCP.LISr 
paranctcr  noonin>uvcr*i 


Ptx  POR  UNI  VAC  PORTRAN  V SUO  --  INCORRCCT  COOC  OCNERaTCO  UHCN  ARRAY 
CONTAININO  PORMAT  SPCCIPICAriON  is  passed  as  AROUriENr 

DO  too  N«l . 10 

IPIHATAROINI  .EQ. -01  00  TO  ISO  0 LITERAI.  STOP  HO  IS  -0 

too  HATPIXIN) ■HATAROINI 

c 

c 

C WRITE  VERTEX  COORDINATES 
C 

ISO  JCONNA-*.* 

DO  EOO  N-NOONIN.NOOHAX 
RL TEMPI t I -WINDOW I I .Nl /0I VI 
RLTENPI2I -WlNOOHIE.NI /Ot  VE 
IPIN. ED. NOONAXI  JCOHNA-’  * 

WRITEC6.NATPIXI  RLTENP. JCONNA 

too  continue 
RETURN 
END 


NRVCRr 

•tl 


0 WRITE  WINDOW  VERTEX  COORDINATES 
0 WINDOW  PACKET  (REAL! 

• COORDINATE  DIVISORS  (POR  8CALIN0  OUTPUTI 
a FORMAT  SPECIPICATION 

a NODE  CONTAININO  LAST  VERTEX  TO  BE  WRITTEN 


N-NOB 


OAH  MCKAOC  A^KNOIX  N 

uratTY  RouriNCs 


xRCor? 

001 


tUOROUriNC  XRCOYYt  A OURR  SPCCIPICO  UNI  VAC  1100  X-RCOISTCR  IN  OCTAL 
I NUHRCOI  0 NUNOCR  OF  X-RCOISTeO  10  THRU  ID 


Nt STORY 


C N SCNLOSSER  LEC  IO/OS/79  ORIGINAL  CODE 


NETNOO 


ENCODE  CONTENTS  OF  UNI  VAC  tlOO  SERIES  X-REOISTER  IN  OCTAL  ANO  PRINT  THEN. 

THIS  routine  is  oesioneo  to  help  oe.^ua  obscure  errors  in  the 

COMPILER  A OPERATINO  SYSTEM  ••  ON  RETURN.  ALL  REGISTERS  (EVEN  THOSE  IN 
THE  VOLATILE  ‘MINOR  REOISTER  SET*)  ARE  UNCHANOEO. 


NACHINE-OEPENOENT  COOE 


URITTEN  IN  ASSEMBLER  FOR  THE  UNIVAC  1100  SERIES  COMPUTERS  USINO  6-SIT 
FIELOATA  characters.  THE  CALLINO  SEQUENCE  IS  THAT  USED  BY  UNiVAC 
FORTRAN  V. 

IHPLEHENTINO  COOE  MUST  BE  REWRITTEN  FOR  DIFFERENT  CHARACTER  COOES. 
different  compilers  (EO..  UNIVAC  ASCII  FORTRAN).  ANO  OIFFERENT  MACHINES. 


EXTERNAL  REFERENCES 


ER  PRINTS  a UNIVAC  X-8  EXEC  REQUEST  TO  PRINT  FIELOATA  CHARACTER  BUFFER 


EXCEPTIONS 


I.  THE  routine  prints  A OlAONOSTIC  IF  0 <«  NUMREO  <>  II. 


OLOBAL  declarations 


NONE. 


AXRS 

SfOOl  . I-BANK 
XRE077*  OS 

OS 
OS 

sx 


. BANKS  REVERSED 

A0.ABUF*0 

At.ABUF*E 

AR.ABUF*<» 

XS.XBUF^O 


TO  eliminate  indirect 


LOAD  table  entries 


t 


OAH  MCKAOC  AmNOIX  N 
UriLltY  ROUriNCS 


sx 

XI .xauF«i 

SX 

XI.XBUF^B 

SX 

X3.XaUF»3 

sx 

XR.xaUF^R 

sx 

xs.xaur»s 

sx 

xa.xauF»6 

sx 

X7.xaUF»7 

sx 

xa.xauF^a 

sx 

xa.xauF^B 

sx 

xio.xauF*io 

sx 

XI 1 .xauF»ii 

SUBNANC 

LA 

A3. I .XII 

LA 

Al  .0.A3 

SA 

Al .PBUF»0 

RCONUN 

LA 

AO. «O.XI 1 

JN 

AO. BAONUN 

TG.U 

AO.  IB 

J 

BAONUN 

LA 

Al .BI AS 

LA 

AB.BIAS 

LA 

A3.XBUF. AO 

UNPACK6 

LOSL 

Al  .6 

SSL 

AB.3 

LOSL 

AB.3 

JN 

Al .UNPACKS 

CNCOOCB 

AA 

At .BIAS 

AA 

AB.BIAS 

OS 

Al  .PBUF«-3 

CNCOOC 10 

OSL 

AO.  38 

01. U 

AO.  10 

AA.U 

AO. *aaa«aO' 

AA.U 

Al . *aaaaao* 

SA.SB 

AO.PBUF*B 

SA.S3 

Al .P6UF*B 

PRINT 

PSRINT 

(PF  I.S.PBUFI 

RCSTORC 

*0L 

A0.ABUF«0 

OL 

AB. ABUF^B 

OL 

AR. A8UF*R 

J 

B.XI  1 

BAONUN 

OL 

Al .BAONSO 

OS 

Al .PBUF*3 

J 

CNCOOC 10 

Sion  . 0 

-BANK 

ABUF 

RCS 

a 

xBur 

RCS 

16 

.'Bur 

RCS 

t 

XRC077 

00> 


A3  :•  H.B.  MORO  CH3  - AOOR  Or  SUBR  NAHC) 

A I SUBROUrtNC  NANt 

PUT  SUBROUriNC  NAne  IN  print  BUPreR 

AO  ;•  NUNRCO 
BAD  IF  NUNRCO  NCOATIVC 
SKIP  Nl  IF  IB  > NUNRCO 
(NUNRCO  >>  IB) 

*0*  IS  NCOATIVCI 

A3  :>  CONTCNTS  OF  SPCCIFICO  X-RCO 

SHIFT  I PAD 
TOO  FARI 

CXTRACT  3-BIT  OCTAL  0101 T 
RCPCAT  TIL  LCAOINO  CHAR  NOT  '0' 

CONVCRT  6-BIT  OCTAL 
TO  FICLOATA 

AND  PUT  IN  PRINT  BUFFCR 
Al  :•  AO.  AO  :•  0 

AO  :>  TCNS  OlOIT.  Al  :•  UNITS  OIOIT 
CONVCRT  TCNS  OIOIT  TO  FICLOATA  CHAR 
CONVCRT  UNITS  OIOIT  TO  FICLOATA  CHAR 
INSCRT  TCNS  CHARACTCR  IN  BUFFCR 
INSCRT  UNITS  CHARACTCR  IN  BUFFCR 

PRINT  BUFFCR 

RCSTORC  RCOISTCRS 


RCTURN 

PUT  BAO  NSO  INTO  . . . 

...  PRINT  BUFFCR 

CNCOOC  BAO  NUNRCO  A PRINT  BUFFCR 


t MO  FOR  SUBROUTINC  NANC 


, ■ ' 'i' 


N-RtO 


OAN  PACKAOC  AMCNOtX  N XIIC077 


utility 

ROUTINCt 

oos 

* XNCO  99 

RCS 

> . 9 NOS  FOR  OCTAL  CNCOOINO  OF  RCOISTCR 

■Aonso 

*(9A0  NUNgCRl* 

rORH 

1C. 9. 19 

• IAS 

CNO 

•000000’ 

OAN  ^ACKAOC  AMCNOtX  0 
COOROtNATC  mANSrOAHAriONt 


^RCrACC-0 

801 


MCFACC  TO  AFFCNOIX  0 


TNC  ROUriNCS  IN  THIS  APRCNOIX  TRANSrOOH  COOROINArcS  AHONO  TMC  rOLLOUiNO 
COOROtNATC  SVfrCHSt 

A AOJUSrCO  HSS  COOROINATCS  (LINC.  SAHPLCl 

CAS  OAT A IS  SrORCO  ON  *X*.  ‘AN*.  OR  *PN*  COHPUTCR  TAPC) 

0 OCOORAPNIC  COOROINATCS  (OCORCCS  NORTH.  OCORCCS  HCSTI 
P PRINT/PLOT  OCVICC  COOROINATCS  (LINC.  COLUHNI 
U TRANSVCRSC  HCRCATOR  COOROINATCS  (HCTCRS  CAST.  NCTCRS  NORTHI 
(USCO  WITH  UTN  ZONC  CCNTRAL  NCRIOIAN  roR  UTN) 

(USCO  HITH  SCCNC  CCNTCR  CCNTRAL  NCRIOIAN  FOR  STNI 

FOR  ThC  functions  USCO  TO  NOOCL  THE  ORBITAL  ANO  SCANNER  OEONCTRY.  SEE 
TRFORN'PROCS  IN  APPENOIX  0. 


0-1 


OAN  #ACKA0C  AmNOtX  0 
COOROINATC  TRANSrOKNATI 


APPCNOU-0 

Oil 


APlir.SC  OAH.PRCrACC-O 

•mr.se  oan.appcnoix-o 
•mr.sc  OAH.Ai»o 
•mr.sc  OAN.A<»f> 

•mr.sc  OAN.ouHo/CLARKCtsae 
•Par. sc  OAH.o*»A 
•PRT.SC  0AN.0<»P 

•Par. sc  OAH.oifU/CLAaKCiass 

•Par. sc  OAN. PH A 

•Par. sc  OAH.PHO 

•Par. sc  OAH.uHO/CLAaKCiess 


(••••>  scr  rABS  • SI 

Aojusreo  nss  cooaoiNAres  roa  ocooaAPNic  cooao 
Aojusrco  NSS  cooaoiNAres  roa  par/pir  cooaoiNAres 
OBL  paecisiON  ura  cooaoiNAres  roa  oeooaAPNie 
oeooaAPMic  cooaoiNAres  roa  AOJusreo  nss  cooao 
oeooaAPHic  cooaoiNAres  roa  par/ptr  cooao 
oeooaAPMic  cooaoiNAres  roa  ura  cooaoiNAres 
par/pir  cooaoiNAres  roa  AOJusreo  nss  cooaoiNAres 
par/PLT  cooaoiNAres  roa  oeooaAPMic  cooaoiNAres 
ura  cooaoiNAres  roa  oeooaAPMic  cooaoiNAres 


( 


OAH  ^ACKAOC  AMCNOIX  0 
COOROtNATC  rRANCroilNArU 


AAO 

OOt 


* 


tumour  INC  ahoc 

0 AO JL IN. AO JOAN. 


• AOJutrco  not  cooroinatcs  for  ocoorarnic  cooroinatcs 

• tCANNCR  LINC.  SAHRLC  (LINC-LCNOtN  AOJUtTCOt 


1 OCOLAT.OCOLONI  • LATITUDC.  LONOITUOC  lOCORCCti 


e 

c 

e 

c 

e 

c 

e 

c 

c 

e 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

e 


HitrORY 


C H SCNLOttCR  LCC  OS/03/73 

C H SCHLOSSCR  LCC  I0/C9/70 


ORIOINAL  COOC  IN  OtA 

RCNAHC  AHO  A RCVISC  ARO  SCQUCNCC 


HCTHOO 


transforh  ocoorapnic  cooroinatcs  to  sccnc  transvcrsc  ncrcator  cooroinatcs. 
transforn  sccnc  transvcrsc  ncrcator  cooroinatcs  to  corrcctco  cooroinatcs. 
transform  corrcctco  cooroinatcs  to  aojustco  scanncr  cooroinatcs. 


NACHINC-OCPCNOCNT  COOC 


NONC. 


exTCRNAL  RCFCRCNCCS 


UHO 


• UTn  (OR  sthi  cooroinatcs  fron  ocooraphic  cooroinatcs 


e 

c 

e 

c 

c 


OLOtAL  OCCLARATIONS 


INCLUOC  KOHNCR.LISr 
INCLUOC  KONFIT.LIST 
INCLUOC  TRFORH.LISr 


LOCAL  OCCLARATIONS 


S COMMON  CRTS  SCCNC  PARANCTCRS 
t COMMON  AOJUSTMCNT/RCOISTRATION  PARANCTCRS 

I ocfinc  cooroinatc  transformation  functions 


OCFINC  CORLIN«CORL*»SISTNC.STMNi 
OCFINC  C0RSAN«C0RS<*S(STNC.STNNI 


• CORRCCTCO  LINC 

• CORRCCTCO  SAMPLC 


PROCCOURC 


CALL  UROfSTNC.SrMN.  OCOLAT.OCOLON.STMCMOI 

AOJLIN-AOJLHClCORLiN.CORSAMI  • CORLIN.  CORSAM  OCFINCO  AlOVC 
AO JSAN* AOUSYC ( CORL I N . C ORSAM I 


0-3 


OAN  MCKAOC  AMCNOIX  0 
COOROtNArC  rRANirOflNAr 


RCrURN 

CNO 


OAN  PACRAOC  AmNOU  0 
COOROINATC  TRANtrORNAri 


•umouriNC  aaai  • AOJUtrco  nts  cooao  roR  MiNf/RLor  cooro 
0 AOAIR.  • Aoautrco  «can  linc 
Q AOJtAN.  • AOJUtrco  SCAN  tANRLC 


I RROLIN.  • RRIRT/RlOr  LINC 
I RROCOLt  • RRINT/RLOr  COLUNN 


NitrORY 


C N tCNLOStCR  LCC 

0 A RCCK  LCC 


Ot/fH/71  ORIOINAL  COOtNO  IRCAI 

10/03/79  RCNAHC/RCVltC  A*»R 


HCTHOO 


TRANtrORH  ARINT/RLOr  TO  'CORRCCTCO*  COOROINATCS. 
ir  OUTRur  It  tCALCO  thcn 

CORRCCT  rOR  OROIT  ANO  SCAN  OCOneTRV 


NACNINC'CCRCNDCNT  COOC 


NONC. 


CXTCRNAL  RCrCRCNCCS 


NONC. 


CXCCRTIONS 


I.  ir  RRO  TRANSrORNATIONt  ARC  'tRACCO*  ANO  CALSRA  NAS  NOY 
tCCN  CALICO  thcn  RCSUirs  ARC  UNOCflNCO. 

0.  If  RRO  TRANSrORNAT IONS  ARC  ’SCALCO’  ANO  CALSCA  HAS  NOt 
OCCN  CALLCO  thcn  RCSUCrs  ARC  UNOCflNCO. 


CLARATI 


INCLUOC  KONNCR.LISr 
INCLUOC  KONRir.LISr 
INCLUOC  rRRORN.LISr 

c 

e 

e LOCAL  OCCLARATIONS 

c ——————— 


ANR 

Oil 


• COHNON  CRTS  SCCNC  RARANCTCRS 

• COHNON  AOJUSTNCNr/RCOISTRATION  RARANCTCRS 

• OCriNC  COOROINATC  TRANSrORHATIONt 


u u u u 


0*11  PACRAOC  ARPCNOU  0 
cooROiNArc  rNANtrofm*rioNt 


MAL  CONUN 
MAL  eOMAN 


• eoimccrco  tCANNCA  linc 

A CMACCrCO  teANNCR  SAIIRLC 


AROCCOUAC 


rRANtrOAN  ARINr/ALOr  TO  'COMCCrCO*  COOROINATCS 

COAL  I N«COm.**AI  AAOL  I N.  AAOCOl  I 
eOASAn*COASHAI  MOL  I N.  AAOCOL  I 


ir  ACPRCtCNrATt VC  rAAcrioN  it  oeriMCO.  oo  scalino  clsc  oo  saacino 
tr(iNro.CQ.O)  00  ro  coo 


*tCALCO'  OUTAur  --  COAKCCTCO  AOA  OMIT  ANO  SCAN  OCOHCTAY 

AOJLIN*AOJLACICOAL iN.COAtAHI 
AOJtANaAOJtHClCOALlN.COASAni 

00  ro  900 


‘tAACCO*  OUTAur  --  NOT  COAACCTCO  AOH  OAilT  ANO  SCAN  OCOnCmv 

COO  A0JLIN*C0ALIN 
AOJ$AH>COAtAN 

c 

e 

e ACrUAN  TO  CALL  I NO  AOUriNC 

e 

*00  ACruAN 
CNO 


0-0 


AAO 

•*t 


OMI  ^RAM  ARRCHOU  0 
eOPUDlNATC  rilANtrOIMArtOllt 


OURO/CAAlMCItM 

••t 


•VMOVTINC  OUAOt  t UTN  COOROlWArCt  TOR  OCOORAAMtC  COOROINATCt  (OtkC  RRffC 

0 UTNC.UriW.  • UNlyCNtAL  TRARtVCRK  NCRCArOR  CAfTINO.  NORTNINO  (NCTIICtl 

■ 

1 OffOLAr.OEOLON.  • OffOORARMiC  (OCORCCtt  CATiruor.  lOROITUOC 

t CROCOI  • RROJCeriOR  CCRTRAL  I^RIOUR  lOffORCCtI 


NttrORT 


C N tCNLOtUR  kce  et/IS/VI  ORIOtNAA  CROC  IN  OOtU 

C N «Cm.OtWR  LCe  OI/tO/Tt  RCNARC  U«*0  a RCVItC  ARO  tCQUCNCr 


nctnoo 


e fNit  tuMOuriNC  rRANtroRnt  ocoorarnic  coorsinatcr  in  ocoRCCt  ro  urn 
e (UNiVCRtAi.  rRANtVCRtC  nCRCATORt  COOROINATCt  IN  nCTCRS.  RCLATIVC  TO  TNC 
e RRCCirico  ccntral  ncrioian.  all  conRurArioNt  arc  on  tnc  clarkc  irm 

e tRNCROIO.  WHICH  is  STANOARO  fOR  ALL  Of  NORTH  AHCRICA.  LATiruOC  It  AttUNCO 

C north.  ANO  hurt  sc  ROtITiVC.  LONOITUOC  IS  ASSUNCO  WCST  ANO  HURT  SC 

e ROSITIVC.  TNC  USCR  NAY  RRCCIIY  CITHCR  A RTANOARO  US>-S*Z0NCI  OR  A 

e NON'RTANOARO  CCNTRAL  NCRIOIAN. 


RACHINC'OCRCNOCNT  COOC 


NAXINUH  CRROR  IN  TWC  TRANRfORNCO  COOROINATCt  It  0.001  NCTCR  fOR  ROINTR 
with  LATITUOCR  SCThCCN  0 ANO  SO  OCORCCS  ANO  LOHOITUOCt  HI  TWIN  S OCORCCR 
OR  Tl«  ccntral  NCRIOIAN.  fTwlR  AttUNCt  ALL  CONRUTATIONR  IN  OOUSLC 
RRCCItlON  ON  A CONRUTCR  WITH  A WORD  RISC  OR  AT  LCART  SS  SITR.t 

TNIR  SOWRCC  COOC  It  eCtlONCO  ror  a conrilcr  that  ocmratcr  RUBROUTINC 
COOC  MNICN  RRCRCRVCt  ThC  VALUCR  OR  LOCAL  VARIASLCR  BCTltfCN  tUCCCRRIVC 
CALLS.  MNCN  A LAROC  NJNSCR  OR  ROINTR  ON  A RCOULAR  ORATICULC  ARC  TO  SC 
TRANRRORNCO.  ORCATCR  CRRICICNCT  hill  RCSULT  IR  TNCY  arc  OROURCO  BY 
LATITUOC. 

TNIR  ROURCC  COOC  It  OCSIONCO  TO  TAHC  AOVANTaOC  OR  THC  ORTINICATIQN 
CARABILITY  or  ThC  UNIVAC  RORTRAN  V CONRILCR.  WHICH  RCCOOHirCR  COHNON 
SWB'CXRRCSRIONR  ANO  OCNCRATCR  COOC  TO  RRC-CONRUTC  ANO  RTORC  ThCIR  VALUCR 
IN  AYAILABLC  RCOIRTCRR.  CIRLICIT  ROWRCC  COOC  0*TINIZATI0N  NAY  BC 
ARRRORRIATC  ROR  OTWCR  CONRILCRR. 


cxtcrnal  rcrcrcnccr 


NONC  lOTNCR  THAN  SYSTCN  ROUTINCSK 


L' 

e SLOBAL  OCCLARATIONS 


0-7 


A Ann  nn nn 


OAM  ^ACKAOC  A^NOIK  0 

eooAOiNArc  rRANsromiArioiit 


OtlAa/CtAlWCltM 


NONC  • 


LOCAL  OCCLANArtOtlO 


iNOLieir  o<*uOLC  ooffctfioii  ia-h.o-ci 

eOUOLC  AM.IOION  ft  /.f0»0^  • CCNT  MAIOlAN  fALtC  CAOrtNO  • sooooo  n 

OOUiLC  ARCetSION  OLOLAf/.tOvt/  A OLO  LAfiruOC  (iNirtALkr  iROeStlOLO 

ocriM  ueLAr*ocoLAr«.ioo*A  a LATiruoc  in  tceoNos 

OCfiNC  OA0LAr*0C0LAt*.lt«ltft001iO«l/. 100*1  A LAriTUOC  IN  AAOIANO 

ocrtNC  A*ceNOCo>eroLONi*.soo*o 

OOUOLC  AACCIttON  COIOI  A COtlMC«*l 

OOUOLC  AACCiflON  COAOt  A COOlNt**! 

OOUOLC  AOfCISION  UNCOS  A tiN«eof 


AflOCCOUAC 


CALL  oeot  A OSOAT  ONLY  If  LATiruOC  IS  OlffCACNT  fAON  LAST  AOINT 

iriOLOLAT.co.ocoLAri  00  ro  too 
OLOLAT-OCOLAr 
COSO  I *00001  aaol  An 
eosot*oeos<AAOLAn««t 

SlNCOS*OSQATl  I . •OCOS(AAOkAn««Cl*OeoSr  AAOLATi 
CeCfAC*!  . /OSQAri  I . •.SSI**7S*»SO-C*OCOSIAAOLAn  ••t> 
too  CONTI NUC 


eOMAWTC  CAST  I NO 
WTNC*rC 

A *A  •.sioifiotiio*e*eosoi«cccrAC 

A *ft. 

A •A*«t  •.SOlT«OSOtO>l 

A *11.  • . to*  I •eosot- . flSt«»TSO>t*COSOt*  *t I 

s *A«*«  •.AOOlOtO’T 

A *1 1 .•.to*t*cosot*.tioo**To*t*eosot**t 

A *.<»OOTO*0*eoSOt**Si  t 


eONAUTC  noathino 

UTNN*.  l00StS700m0*t*  ISCCLAT 
A *1.1  OStOSlt* SO*** * . AASSSOOO • I *00000* . t ISSOO*  I *00000 • *t  I 
A *0INC00I 

A *A**t  •.7tioto«»7too*«**oiNeot*cecrAC 

A *11. 

A *A*«t  *. 10007000*1 

A • ( *1 . *. 00*1 *COOOt*.Ot 111000*1 *cooot**t 

A *.IOO77O*S*CO00t**SI 

A *A«*A  *.I01«*00*7 

A *11. *.oe*t*cooot*. 1 1 71 uo*s*cooec**ff 


OAH  PACKAOC  APfCNOtX  0 

cooROiNAre  ruANsroiiNAnoNS 


A ♦.•»0S9O*l*COS02««3n 

Re TURN 
CNO 


OlMO/CLARKeiMS 

003 


0«0 


OAN  MCKAOC  AI>KNOtX  0 
COOROINATC  rRANSrOMNAriONS 


0*»A 

OOt 


tumourtNC  o«a( 

0 OCOLAT.OCOLON, 


• OCOORAPNIC  COOROINATCS  FOR  AOJUSTCO  NSS  COOROINATCS 
A LATiruOC.  LONOiruoe  (OCORCCSt 


I AOJLtN.AOJSARI  • SCANNCR  LtNC.  tANRLC  tl INC-ICNOTN  AOJUSTCO) 


c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 


NItrORV 


C N SCNLOSSCR  LCC  09/tS/73  ORIOINAL  COOC  IN  AtO 

C N SCNL0S8CR  LCC  10/19/79  RCNAHC  OHA  A RCViSC  ARC  SCQUCNCC 


HCTNOO 


TRANSrORn  A0JUS7C0  SCANNCR  COOROINATCS  TO  CORRCCTCO  COOROINATCS. 

TRANSrORH  CQRRCCTCO  COOROINATCS  TO  SCCNC  TNANSVCRSC  NCRCATOR  COOROINATCS. 
TRANSrORN  SCCNC  TRANSVCRSC  NCRCATOR  COOROINATCS  TO  OCOORARHIC  COOROINATCS. 


NACHINC'OCPCNOCNT  COOC 


NONC. 


CXTCRNAL  RCrCRCNCCS 


ONU 


A OCOORARNIC  COOROINATCS  PROM  UTN  (OR  STnt  COOROINATCS 


0L09AL  OCCUARATIONS 


INCtUOC  KONNCR.LIST 
INCLUOC  KONPIT.UIST 
INCLUOC  TRCORN.LIST 


LOCAL  OCCLARATIONS 


A COHNON  CRTS  SCCNC  RARAHCTCRS 
A COHNON  AOJUSTHCNT/RCOISTRATION  RARAHCTCRS 
A OCriNC  COOROINATC  TRANSPORHATION  punctions 


OCPINC  CORL IN>C0RLNA( AOJLIN.AOJSANt 
OCPINC  CORSAn«CORSNA( AOJLiN.AOOSAHi 


RROCCOURC 


STHNaSTHNNClCORL IN.C0R9ANI 
STNC-SrNCNCICORLIN.CORSANt 

CALL  ORUtOCOLAT.OCOLON.  STHC.STNN.STHCNO* 


O-IO 


OAN  PACKAOC  APKNOIX  0 
COOROINArC  TRANSrORHAriONS 


•RA 

OOt 


RCrURN 

CNO 


0*tt 


oooonoooooononooonnooooooooonoooooo 


OAN  ^ACKAOC  AWNOIX  0 

COORO I NA  re  r RANsroRHA  r i ons 


OAR 

001 


tUOROUriNC  0«P(  0 OeOORAPNIC  COOROINAreS  roOH  PRlNT/PLOr  COOROtNATCS 

0 oeoLAT.oeoLON.  0 LAriruoe.  LONOiruoe  (oeoRcesi 


I PPOLIN.PPOCOLI  a PRINr/PLOr  LINC.  COIUNN  (OCVICr  UNirsi 


HISTORY 


C H SCHLOSSCR  LCC  05/30/73  ORIOINAL  COOe  IN  POO 

e H 8CHL08SCR  LCC  10/31/79  RtNAHC  0*»P  A RCVtSC  ARO  SCQUCNCe 


HCTHOO 


TRAN8F0RN  PRINT/PLOr  COOROINATCS  TO  CORRCCreO  COOROtNATeS. 
ir  ’8PACIN0'  THCSe  APPARENTLY  CORRECTEO  COORDINATES  ARE  REALLY  ADJUSTED 
SCANNER  COORDINATES:  TRANSFORM  THEM  TO  TRUE  CORRECTEO  COORDINATES. 

transform  CORRECTEO  COORDINATES  TO  SCENE  TRANSVERSE  MERCATOR  COORDINATES. 
TRANSFDRM  SCENE  TRANSVERSE  MERCATOR  COORDINATES  TO  OEOGRAPHIC  COORDINATES 


NACHINE'OEPENOENT  COOE 


NONE. 


external  references 


OHu  a oeooRAPHic  coordinates  fron  utm  ior  stmi  coordinates 


GLOBAL  DECLARATIONS 


INCLUDE  KOMNER.Llsr 
INCLUDE  KOMFIT.LIST 
INCLUDE  TRFORM.LIST 


C 

c 

C LOCAL  DECLARATIONS 
C 

c 


a COMMON  ERTS  SCENE  PARAMETERS 
a COMMON  AOJUSTnCNT/REGI strati  ON  parameters 
a define  COORDINATE  transformation  FUNCTIONS 


REAL  eORLiN.CORSAN  a CORRECTED  LINE.  SAMPLE 

REAL  A0JLIN.ADJ8AN  a ADJUSTED  SCANNER  LINE.  SAMPLE 

define  STNe«STME<*C(C0RLIN.C0R8AMl  a SCENE  TRANSVERSE  MERCATOR  EASTING 

define  STHN-STNNNCiCORLIN.CORSANI  a SCENE  transverse  MERCATOR  NORTHINO 

c 
c 

c PROCEDURE 
C 

c 


o*ie 


u u o u 


0AM  MACKAOC  AMKNOIX  0 
COOMOINATC  rRANSrORNAri 


OOt 


eORL I N*CORL«R(RROL I N. RPOCOL I 
eORSAN«CORS*R( RROU I N, PROCOL I 

c 

c 

C ir  RCPRCSCNTATIVC  FRACTtON  IS  OCFINCD  lOCNONINArOR  NOT  ZCROI  00  ’SCALINO* 

c 

irtIRPO.NC.OI  00  TO  coo  0 'SCALCD*  OUTPUT 


*SPACeO*  OUTPUT  --  PPO  COORO  NOT  CORRCCTCO  FOR  ORBIT  ANO  SCAN  OCOMCTRY 

AOJLIN^CORLIN 
AOJSAH>CORSAH 

CORLIN>CORLHA(AOJUN.AOJSANI  A CORRCCT  COORO  TO  OCT  STN  ANO  OCO 

CORSAH>CORS*»  A ( AO  JL  I N . AO  JSAN > 

C 

C 

C transform  CORRCCTCO  TO  SCCNC  TRANSVCRSC  HCRCATOR  TO  OCOORAPHIC  COOROINATCS 
C 

200  CALL  OHUIOCOLAT.oeOLON.  STNC .STHN. STHCMOl  0 STHC.  STHN  OCFINCO  ABOVC 

C 

RCTURN 

CNO 


ooooooooooooooooooooooooooooooooooooooooo 


OAN  ^ACKAOC  AMCNOtX  0 
COOROINATC  TRANSrOIIHAriONt 


«i»u/eLAmccttM 

oot 


tUMOUriNC  0*»ut  • OCOORAPNie  COOROINATCS  fOR  UTH  COOROINATCS  (SINOLC  RReC 

0 OCOLAT.OeOLON.  • OCOORAPNIC  (OeORCCSi  LATirUGC.  LONOITUOC 

• 

t UTNC.UrMN.  • UNtVCRSAL  TRANSVCRSe  HCRCATOR  CASTINO.  NORTHtNO  (nCTRCSI 

1 CHOCOi  • PROJCCTION  CCNTRAL  HCRIOIAN  (OeORCeSI 


Nt story 


T R KELL 

LCC 

03/17/73 

ORIGINAL  COOC  IN  U20 

C H SCHLOSSER 

LCC 

03/20/79 

RENAHC  0*»U  A REVISE  ARO  SEQUENCE 

ncthoo 

VALID  ONLY  FOR 

CLARKE 

1668  SPHEROID. 

0 

HACHiNe-oepeNoeNT  cooc 


THIS  SOURCE  CODE  tS  0E8I0NE0  POR  A COMPILER  THAT  OCNERATES  SUBROUTINE 
CODE  MHICH  PRESERVES  THE  VALUES  OF  LOCAL  VARIABLES  BETUEEN  SUCCESSIVE 
CALLS.  WHEN  A LARGE  NUMBER  OF  POINTS  ON  A REGULAR  ORIO  ARE  TO  BE 
TRANSFORMEO.  greater  EFFICIENCY  MILL  RESULT  IF  THEY  ARE  OROUPEO  BY  EASTINO 
OR  NORTHING. 


EXTERNAL  REFERENCES 


NONE. 


OLOBAL  declarations 


NO. 


LOCAL  declarations 


REAL  FE  /SCOOOO./ 
REAL  UTHNL/-IOOOOOOOOO./ 
REAL  UTNEL/'tOOOOOOOOO./ 


A FALSE  EASTINO 
I LAST  NORTHINO 
a LAST  CASTINO 


PROCEDURE 


IPIUTNC.EQ.UTHELI  00  TO  100 
UTNCL  • UTHC 


Ool** 


OAN  PACKAOC  AmNOIX  0 
COOMINATC  rRANtrOMNATIONS 


U 


!••• 

OOt 


Q*CUTHC-rCl/tOOOOOO. 

Qt*Q«0 

Q**«0>«Q* 

too  trCUTNN.CQ.urnNLI  00  TO  >00 
utnni.  > utnn 

onoce  •.o3>*»oooHoa3Hi*uTHN 

eon  • eotionscc«3.i<»t99>es3e/ (100.  *3000.  n 

C0N>  • CON* eon 

CON«  • CONt*CON> 

SON  • sonrct.-eonei 
NMISCC  • ONSCC* 

A ( t o%7 . s*»es9i  *0.  193011  •coN>* . osoo99«coN<i  I *son*con 

>00  C9-C0S(PHISeC*3.  t <*t 9990930/ (1 00.  *3000.  t > 

CP>  ■ CP* CP 
CPH  • CP8*CP> 

SP-SQRT(| . •CP>) 

9NCP8  • I . *.00eSt*»78<*9*CP> 

0C0LAr«PHlSCC->9l9.973l89*Q>* (SNCP8I xa* (SP/CPI * 

I ( I . •.0080381998*08*  < I . 9991 1 1 3*3 . /CP8* . 081 399*CP8* 

> .000879*CP<»l  *.00000  t698*H«Q<**  (SHCP8>  • (19.9 
3 *<*9./CP<»-.307/CP8*t  .93*CP8)  I 
OrO(.AT  • OeOLAT  / 3600. 

OCOLON«CNOCO*3600.  *388<*8. 8638*  SORT  (SHOPS)  /CP*Q*(  I.  - 
•»  .00H07839199*8HCP8*Q8*(SHCP8-8. *8./CP8)* 

9 .00000**9793t8*SMCPS*SMCP8*Q<**(  t .09>**8>».  /CP*» 

8 -8O./CP8-.0I38*CP8il 
OCDLON  - oeOLON  / 3000. 

RCTURN 

CNO 


0-19 


OAN  PACKAOC  APPCNOtX  0 
CMROINATC  rRANSFORHATIONS 


CURROUTINC  R«»A(  • RRINT/RLOT  COORO  FOR  AOJUtrCO  HSS  COORO 

0 FROLIN.  A FRINT/FLOr  LlNC 
0 MOCOL.  • FRINT/PLOr  COLUMN 


I AOJLIN.  I AOJUSrCO  SCAN  LlNC 
I AOJSANI  • AOJUSreO  SCAN  tANRLC 


NiSrORY 


C H 8CHL0SSCR  LCC  OS/CH/73  ORIGINAL  COOINO  IA2PI 

0 A 8CCK  LCC  10^23/79  RCNAHC/RCVISC  AHP 


HCThOO 


ir  OUTPUT  IS  SCALCO  then 

CORRCCT  rOR  OROIT  ANO  SCAN  OCOHCTRY 
TRANSrORH  'CORRCCTCO*  TO  PRINT/PLOT  COORDINATES. 


NACHlNt'OEPENOENT  CODE 


NONE. 


EXTERNAL  REFERENCES 


NONE. 


EXCEPTIONS 


t.  IF  PPO  TRANSFORMATIONS  ARC  ‘SPACED*  ANO  CALSPA  HAS  NOT 
•ECN  CALLED  THEN  RESULTS  ARE  UNOEFINEO. 

2.  IF  PPO  transformat  ONS  ARE  ‘SCALED*  AND  CALSCA  HAS  NOT. 
•ECN  CALLED  THEN  RESULTS  ARE  UNDEFINED. 


OLOBAL  declarations 


INCLUDE  KOHNCR.LIST 
INCLUDE  KOHFIT.LIST 
INCLUDE  TRFORH.LIST 

c 

C 

C LOCAL  declarations 
c — . 


FNA 

OBI 


• COMMON  CRTS  SCENE  PARAMETERS 

• COMMON  aojustmcnt/rcoistration  parameters 

• define  coordinate  transformations 


r»  o o o o o o o o o o o 


OAN  ^ACKAOC  AmNOiX  0 
eOQROINATC  TRANtrOIIHAriONt 


MA 

OOt 


c 


RCAL  com. IN 
NCAL  CORSAH 


• eoRRcerco  ocanncr  linc 

• CORRCCTCO  SCANNER  SANRLC 


RROCCOURC 


ir  RCRNCSCNTATIVC  FRACriON  IS  OCriNCO.  DO  SCALINO  ELSE  00  SRACINO 

irdRro.Eo.oi  00  ro  coo 


'SCALED*  OUTAUr  --  CORRECT  TOR  ORBIT  AND  SCAN  OEOHETRY 

CORLIN>CORL*»A(  AOJL  IN.  AOJSANI 
CORSAH«CORS<» A ( AO JL  I N.  AOJSANI 
00  TO  300 


'SRACEO'  OUTRUT  •-  00  NOT  CORRECT  TOR  ORBIT  ANO  SCAN  OEONCTRY 

BOO  CORLIN-AOJLIN 
CORSAN«AOJSAN 


TRANSrORM  'CORRCCTCO*  TO  ARINT/PLOT  COOROINATCS 

300  AADL IN>PPOLHC(CORLlN.CORSANI 
AAOCOL •PPOCHC ( CORL I N . CORSAN I 


RETURN  TO  CALL  I NO  ROUTINE 

800  RETURN 
ENO 


I ONI 


OOt 


DAN  PACKAOC  ANNCNOIX  0 
COONOtNATC  rRANOrORNAr 


tURROUriNC  MOC 

0 RROLIN.RROCOL. 

• 

1 OCOLAT.OCOLONI 


• RRINT/RLOr  eOONOINArCt  rOR  OCOORARNIC  COOROINATCS 
a RRINT/RLOr  LINC.  COLUNN  lOCVICC  UNIfft 


a ocooRARNie  lATiruor.  lonoituoc  (ocorccsi 


NitroRv 


C N OCNLOSSCR  LCC 

C N tCHLOStCR  LCC 


OS/tO/7S  ORIOtNAL  COOC  IN  OCR 

10/10/79  RCNAHC  RHO  A RCVtSC  ARO  tCOUCNCC 


NCTNOO 


TRANSrORN  OeoORARHIC  COOROINATCS  TO  SCCNC  TRaNSVCRSC  NCRCATOR  COOROINATCS. 
TRANSrORN  SCCNC  TRANSVCRSC  NCRCATOR  COOROINATCS  TO  CORRCCTCO  COOROINATCS. 
ir  'SRACINO'  TRANSrORH  CORRCCTCO  COOROINATCS  TO  AOJUSTCO  8CANNCR 
COOROINATCS.  AND  AOJUSTCO  SCANNCR  COOROINATCS  TO  RRINT/PLOT  COOROINATCS. 

IP  ‘SCALINO*  TRANSPORN  CORRCCTCO  COOROINATCS  TO  PRINT/PLOT  COOROINATCS. 


c 

C HACHINC-OCPCNOCNT  COOC 


NONC. 


CXTCRNAL  RCPCRCNCCS 


UNO 


a UTR  (OR  STHI  COOROINATCS  PRON  OCOORARHlC  COOROINATCS 


C 

c 

c 

c 

c 


OLOtAL  OCCLARATIONS 


INCLUOC  KONNCR.LIST 
INCLUOC  KOHPIT.tlST 
INCLUOC  TRPORN.LIST 


a CONNON  CRTS  SCCNC  PARANCTCRS 
a CONNON  AOJUSTNCNT/RCOISTRaTION  raranctcrs 
a OCPINC  COOROINATC  TRANSPORHATION  PUNCTIONS 


LOCAL  OCCLARATIONS 


RCAL  CORLIN.CORSAN  a CORRCCTCO  LINC.  SANRLC 

RCAL  AOJLIN.AOJSAN  a AOJUSTCO  SCANNCR  LINC.  SANRLC 


CALL  UNOISTNC.STNN.  OCOLAT.OCOLON.STNCNOI 
CORLIN^CORLNSISTNC.STNNI 


o-to 


9AN  MCKAOC  APMNOIX  0 
eOOROlNATC  rRANtrONHAriONt 


OM 


eORtAN«COAS*»t(  STHC  . ST  HNI 


ir  ttCMCtCNTArivc  rAAcnoN  it  ocriNCO  lOCNoniNAroA  Nor  zcroi  oo  *tCALiNO* 
trimro.NC.oi  oo  ro  too  o *tCALCo*  ourtur 


e *tRACCO*  ourtur  ••  ncnovc  eoMCcrioNt  ron  omit  and  scan  ocohctry 
c 

AD  Jk  I N*  AO  JL>»e  ( CORL I N . COROAN I 
AOJtANaAOJtHCfCORLiN.CORtANi 
C0RLIN>A0JLIN 
eORtAn«AOJtAN 
c 
c 

C TRANtrORN  ’CORRCCTCO*  TO  RRINT/RkOT  COOROINATCS 
C 

too  RROLIN«MOl.*»CrCORL  IN.CORtAHI 
RROCOL  >MOC**C  ( CORL  I N . CORSAH  > 

C 

RCruRN 

CNO 


0-lt 


Mil  PACRAOC  AMCNOIR  0 
coomiNArc  TRANtromiArioNt 


Ui»«/CI.AllimtM 

001 


tuiliouriNC  uAOt  • urn  cooroinatco  roA  ocooraamic  cooROtNArco  ioinoic  rrcc 

0 urnc.urRN.  o univcroal  transvcroc  ncrcator  rAoriNO.  nortmino  ihctrcoi 

■ 

1 OCOLAT.OCOLON,  0 OCOORARMIC  lOCORCCOl  LATiruDC.  LONOITUOC 

I CNMOI  A RROjCenOR  CCNTRAL  dCRIOIAN  (OCORCCfl 


HIOrORY 


C N OCNLOOWR  LCC 

r N OCNLOSOCR  LCC 


00/11^71  ORIOINAL  eooc  IN  OtU 

OS/00/70  RCNAHC  U*»0  A RCVIOC  ARO  tCQUCNCC 


NCTNOO 


TNIO  SUOROUTInC  TRANtrORNt  OCOORARHIC  COOROINATCS  IN  OCORCCS  TO  UTH 
lUNlVCRtAL  TRANSVCROC  HCRCaTORI  COOROINATCS  IN  HCTCRS.  RCLATIVC  TO  ThC 
SRCCiriCO  CCNTRAL  NCRIOIAN.  ALL  CONRUTaTIONS  ARC  ON  THC  CLARkC  1060 
SRNCROIO.  WHICH  IS  STANDARD  TOR  ALL  Or  NORTH  AHCRICA.  LATITuOC  IS  ASSUnCO 
NORTH.  AND  NUST  RC  ROSITIVC.  LONOITUOC  IS  ASSUNCO  WCST  ANO  NUST  OC 
ROSITIVC.  THC  USCR  NAY  SRCCIRY  CIThCR  A STaNOARO  (I03*6«C0NC>  OR  A 
NON'STANOARO  CCNTRAL  NCRIOIAN. 


NACNINC'OCRCNOCNT  COOC 


HAXINUN  CRROR  IN  ThC  TRANSFORNCO  COOROINATCS  IS  O.t  NCTCR  FOR  ROINTS 
WITH  LATITUOCS  OCThCCN  0 ANO  SO  OCORCCS  ANO  LONOITuOCS  UIThIN  3 OCORCCS 
OF  THC  CCNTRAL  NCRIOIAN.  (THIS  ASSUNCS  ALL  CONFUTATIONS  IN  SINOLC 
RRCCISION  ON  A CONRUTCR  KITH  A UORO  SIZC  OF  AT  LCAST  30  OITS.i 

THIS  SOURCC  COOC  IS  OCSIONCO  FOR  A COnRILCR  THAT  OCNCRATCS  SUOROUTINC 
COOC  HNICH  RRCSCRVCS  THC  VALUCS  OF  LOCAL  VARIAOLCS  OCTwCCN  SUCCCSSIVC 
CALLS.  HNCN  A LARQC  NUNOCR  OF  ROlNTS  ON  A RCOULAR  ORaTICULC  ARC  TO  OC 
TRANSFORNCO.  ORCATCR  CFFICICNCT  HILL  RCSULT  IF  THCV  ARC  OROURCO  OY 
LATITUOC. 

THIS  SOURCC  COOC  IS  OCSIONCO  TO  TAKC  AOVANTAOC  of  THC  ORTINIZATION 
CARAOILITY  of  THC  UNIVAC  fortran  V CONRILCR.  WHICH  RCCOONIZCS  CONNON 
OUO-CXRRCSSIONS  ANO  OCNCRATCS  COOC  TO  RRC'CONRUTC  ANO  STORC  ThCIR  VALUCS 
IN  AVAILARLC  RCOISTCRS.  CXRLICIT  SOURCC  COOC  ORTINIZATION  HAT  OC 

arrrorriatc  for  OThCR  conrilcrs. 


cxtcrnal  rcfcrcnccs 


NONC  (OTNCR  than  STSTCN  ROUTiNCfl. 


OLOOAL  OCCLARATIONS 


OAII  ^ACKAM  AAMHPIX  0 

eoenoiNArt  rRAntroiMArtONf 


ll<i«/eLAIIKCltM 

•tff 


e NONC. 
e LOCAL  OCCLACAriONt 

MAL  rc  /.0C«i/  • CCNTAAL  NCAIOUN  fALtC  CAOrtNO  • 000000  NCrCAt 

MAL  OL0LAT/.0C«0/  0 OLO  LATItUDC  tlNirULLT  lNOOOftM.C) 

ocriNC  oceLAr*ocoLAr*.soc»o  o LArtruoc  in  occonoo 
ecftiic  AAOLAr«ocoLAr«.3ii»iootosc*i/.toc*i  o LAnruoc  in  aaouno 
ocriNC  o«iCNOCo«ocoLONM.ioc*o  0 oCLrA  LONOiruoc  >n  .0001  occonoo 
ACAL  eoool  0 eooiMC**i 

NCAL  COOOt  0 eO«lNC*<t 

NCAL  tiNceo  • oiN«eoo 


MOeCOURC 


C CALL  COO  i 0001  ONLY  If  LAYiruOC  10  OirrCOCNf  rOON  LAOr  POINT 

c 

iriOLOlAr.CO.OCOLATl  00  TO  too 
OLOLAT«OCOLAr 
COOOI«COtlOAOLATl 
COOOt^COOl OAOL AT  t • «C 

OINCOO-OQOrn  . •COO(OAOLAn««tMCOStOAOLATI 

cccrAC«i./ooorn . •.ootH7o*»oc*t*coO(OAOLAri««ci 
too  CONTINUC 
c 
c 

c coNPurc  CAoriNo 
c 

uTNC*rc 

0 *0  •.iioioiotic«o*coooi«cccrAc 
0 *11. 

0 -P««0  «.10I7A0000C*1 

0 •ll.•.tc»l •COOOt*. 00l«»70C*t«C000C*«tl  I 

c 

c 

c coNPurc  noothino 
c 

UTNN* . 100070700C  *t • < SCCL  A T 

0 • ( . I OOtOOIOAC***  - . WA03SOOC  • I •COOOt* . tosooc  - 1 «C000t  • *t  > 
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AiLC  ro  A ronriiAN  rnooRAn.  rnc  callino  rnooRAn  nutr  rnovtoc  a ourrcfi  ano 
A Morenr  tnirukizco  nackct  as  roLLonoi 

iNCLuoc  Konto.utr 

etncNOioN  iurrcn-NANCtiorrcA'Oizci 

oinCNtiON  rACKcr-NAHCioi  • almays  o uonosm 

ncKcr-NAnci I l•*rlRfr•o•CHARt•or•lNrcAN*L•r iLC'NANC* 
rACKcr-NANCctt  •*NCKr*o-CMAM>or*iNreANAL>ruc>NAnc>on>OLANKS* 

i 00 1 zc  < r ACKCr ‘NAHC i •lurren  *c t ze 
I OAOOR I r ACKC  r -nanc I *L  oci lurrcN'M ANC i 

lOHAirirACKcr-NAHCt •niLLisecoNOS-^o-uAi r • rAre  only  inax  oh 

• tYNCHRONIZArtON  OUOf  IN  TMC  UNI  VAC  •tum  t CO  TaAC  I/O  MANOLCR  MITHIN  ThC 

• CXCC  CAUflC  MCHATURC  tcrriNO  or  TmC  t/o  status  to  conalctc.  RCSULTINO 

• IN  SrORAOIC  TaAC  NALfUNCTIONS  MNCN  THC  SYSTCN  IS  LiONTLV  LOaOCO.  ThC 

• lOUAIT  CONSTRUCT  ALLOWS  TmC  USCR  TO  SRCCIfT  irOR  TARC  I/O  ONLV>  A T|hCO 

• WAIT  or  0 Thru  ss  hilliscconos  to  oc  takcn  sv  susroutinc  crhait  uhcn  thc 

• status  INOICATCS  I/O  IS  ALRCAOY  COHRLCTC  ON  CNTRY  TO  CRHAIT.  lOUAlT 

• SHOULO  NORHALLY  SC  SCT  TO  tO  HI  LL ! i;CCONOS  UHCN  NC  OThCR  CXCC  RCOUCST 

• INTCRVCNCS  OCTUCCN  ThC  CALL  TO  CRIO  ANO  ThC  CALL  TO  CRHAIT. 


TNC  CALLINO  SCQUCMCC  TOR  THIS  SUOROUTInC  ThCN  IS  AS  rOLLOHSi 

IOSCCrirAeKCT-NANCl«riLC>RCLATIVC*SCCTOR*AOORCSS  » TASTRANO  ONL*' 

IOHORO(RACKCT>NANCl«riLC*RCLATIVC*HORO-AOORCfS  t ORUN  ONLY 

IOrUNCirACKCT>NANCl«*rUNCTION*LITCRAL’  • SCC  OCLOH 
CALL  CRIOIRACKCT-NAHC) 

• • 

CALL  CRHAIT (RACKCT'NANCI  S WAIT  UNTIL  I/O  IS  COHRLCTC 


TNC  roLLOHiNO  ocriNC  ruNCTioNS  IN  ThC  konio  rroc  rcturn  I/O  Conner  ION 
inroRNATiONi 


lOSTATtRACKCT'NAnCl 
lOArCTlRACKCT'NANCl 
I ONUOS I r ACKC  T -NAHC I 


I/O  (TTRC  II  status  cooc, 

AONORNAL  rRAHC  COUNT  ITARC  ONLVI 

NUNiCR  or  horos  RCAO/HRirrcN 


LirCRALS  rOR  eONNON  |/0  CUNCTIONS  ano  COUIRNCNT  TYRCS  arc  as  rOLLOHSi 


IITCRAL 

octal 

NNCnoNic 

TYRCS 

nAN>NO 

•SC* 

to 

NS 

T r 0 

HRII:. 

•SO* 

II 

Mcrt 

T 

HRITC  cor  fTARCl 

•SK* 

ffO 

RS 

T r 0 

RCAO 

•St* 

Cl 

ROt 

T 

RCAO  RACKHARO 

OAH 

RACKAOC 

ARfCNOIX 

P 

cxecunvc  neoucsrs 

’•N* 

e> 

R9t 

r 

RCAO  A RCLCASe 

83 

RCLS 

r 

RCLCASe 

••0* 

8« 

9R0t 

0 

SLOCK  RCAO  ORUN 

89 

ROLS 

r 

0 

RCAO  A LOCK 

••O’ 

89 

UNLt 

r 

0 

UNLOCK 

«0 

Reus 

T 

RCUINO 

%l 

RCUIS 

T 

RCUINO  UITH  INTCRLOCK 

<»8 

SHt 

T 

SCT  Hooe 

Hrt 

T 

nove  roRUARO  too  not  usci 

H8S 

T 

8ACKSRACC  (00  NOT  USCilli 

Cmo/OAH 

ooe 


1 1 


Slot) 

CRIO« 


AXRS 

L.'i 

A0.«0.XI1 

. PACKS T 

AOORCSS 

CR 

lOS 

. RCQUCST 

1/0  INITIATION 

J 

8.X11 

. RCTURN 

CNO 

R>I6 


OAN  PACKAOC  AMCNOIX  P 

cxccurtvc  RCQuesrs 


CRIOU/OAN 

001 


tuonouriNC  crioui  • iNtriAre  i/o  and  wait  for  cohrlction 

U LURKT)  0 RACKET  (RUST  BE  0 MOROSI 


(E  N tCNLOSSERI 

TNIS  ASSENOLER  SUBROUTINE  HAKES  THE  I/O  rACILITIES  Of  ER  IONS  DIRECTLY  AVAIL- 
ABLE TO  A FORTRAN  RROORAH.  THE  CALLINO  PROORAN  NUST  PROVIDE  A BUFFER  AND 
A PROPERLY  INITIALIZED  PACKET  AS  FOLLOHSi 

INCLUDE  KOHIO.LIST 

Dl HENSI ON  BUFFER-NANE ( BUFFER-SIZE ) 

DINENSION  PACKET-NAHEISI  • ALWAYS  6 WOROSM 

PACKET-NAHE( I > • • F I RST -6-CHARS-OF- I NTERNAL -F I LE -NAHE • 

PACKET-NANEIZI «'NEXT-6-CHARS-0F-INTERNAL-FILE-NAHE-0R-eLANKS' 

I OSIZEC PACKET -NANE I -BUFFER-SIZE 
I OAODRI PACKET-NANE I -LOC ( BUFFER-NANE I 

iohait<packet-nahe>«nilliseconos-to-hai T a tape  only  (HAX  S3) 

• SYNCHRONIZATION  BUOS  IN  THE  UNI  VAC -SUPPL I EO  TAPE  I/O  HANDLER  WITHIN  THE 

• EXEC  CAUSE  PRENATURE  SETTINO  OF  THE  I/O  STATUS  TO  CONPLETE.  RESULTING 
« IN  SPORADIC  tape  NALFUNCTIONS  WHEN  THE  SYSTEN  IS  LIGHTLY  LOADED.  THE 

• lOHAlT  CONSTRUCT  ALLOWS  THE  USER  TO  SPECIFY  (FOR  TAPE  I/O  ONLYl  A TINEO 

« WAIT  OF  0 thru  S3  NILLISECONOS  TO  BE  TAKEN  BY  SUBROUTINE  ERIOW  AFTER  THE 
« status  INDICATES  I/O  IS  CONPLETE.  lOWAIT  SHOULD  NORNALLY  BE  SET  TO  10 
« NILLISECONOS  WHEN  NO  OTHER  EXEC  REQUEST  INTERVENES  BETWEEN  SUCCESSIVE 
< CALLS  TO  ERIOW  FOR  THE  SANE  TAPE  FILE. 


THF  CALLINO  SEQUENCE  FOR  THIS  SUBROUTINE  THEN  IS  AS  FOLLOWS: 

IOSECTIPACKCT-NAHEI-FILC-RELATI VE-SECTOR-ACORESS  B FASTRANO  ONLY 

IOWORDIPACKET-AaNEI -FILE-RCLATI VE-WORO-AOORESS  a ORUN  ONLY 

IOFUNC(PACKET-NANE) -'FUNCTION-LI TERAL * a SEC  SUBROUTINE  CRIO 

CALL  CRIOWTPACKCT-NANCI 


THE  FOLLOWING  DEFINE  FUNCTIONS  IN  THE  KOHIO  PROC  RETURN  I/O  CONPLETION 
INFORNATION: 

iostat(packet-nane>  I/O  (Type  n status  code. 
ioafct(packet-nane)  abnornal  franc  count  (Tape  onlyi 

tONHDSCPACKET-NAHEi  NUHBER  OF  WORDS  REAO/WRITTEN 


AXRS 

L.U 

A0.«0.XI  1 

LA. SI 

AI .S.AO 

ER 

IONS 

TZ 

AI 

ER 

rwAITS 

J 

END 

t.xtt 

PACKET  address 

NILLISECDNDS  TD  WAIT 

REQUEST  I/O  initiation  A CONPLETION 

SKIP  Nl  IF  NILLISECONOS  - 0 

TINEO  wait  for  AI  NILLISECONOS 

RETURN 
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OAH  MCKAOC  APPCNOIX  P 

executive  Reouesrs 


001 


enoc 


ouoRouriNe  eopcNAt 

t NANFIL. 

I NUOO. 
t iNAOCt 


• MRtre  rteiOAtA  cnaractcr  strino  to  alt  punch  pilc 

• NANC  or  alt  puncn  rue  no  characters,  olank  ruLCoi 

• NUNOCR  or  lO'OIT  UOROS  IN  STRING 

• STRINO  or  riCLOATA  CHARACTERS.  PACKED  0 PER  HORO 


(C  N scnlosscr* 

this  asseh  suoroutine  hakes  the  I/O  facilities  of  er  pnchas 
directly  av.  aole  to  a Fortran  proorah. 


S(OO)  AXRS  . RANKS  REVERSED  TO  ELIHINATC  INDIRECT  LOAD  TABLE  ENTRIES 


ERPCHA* 

DL 

A8.*0.XI 1 

LXI 

AI.«I.XIt 

LA 

AO. IPKT) 

LXN 

At .8. XII 

DS 

A8.PKT*I 

SA 

At .PKT 

ER 

PNCHAS 

S(on 

J 

N.XIt 

PKT 

RES 

END 

3 

. OET  alt  pch  file  NANE 
. OET  NUNOER  of  horos 
. PUT  address  of  packet  in  AO 
. OET  BUFFER  ADDRESS 
. PUT  FILE  NANE  IN  PKT»l.  PKT*S 

. PUT  hd-count/buffer-aodr  in  PkT»0 

. URITE  BUFFER  TO  ALT  PUNCH  FILE 
. RETURN 


i 


F-IB 


0*N  PACKAOC  APFCNOIX  P 

cxccurivc  RCQucsrs 


CNPCr/OAN 

oot 


tumour  INC  crpcti 
I NUOt. 

0 JPCTt 


• RCrNtevC  PART  OP  PROORAN  CONTROL  TAOLC 

• NUNRCR  OP  MOROS  TO  8C  RCTRICVCO  PRON  RCOINNtNO  OP  PCT 

• ARRAY  NH08  LONO  USCO  TO  RCTURN  RCQUCSTCO  PART  OP  PCT 


(C  N tCHLOSSCRI 

THIS  AtSeNOLCR  SUOROUTtNC  RCTURNt  THC  PIRST  N HOROS  OP  PNC  PCT  (PROORAN 
CONTROL  TASLO. 

THC  PCT  IS  suauccr  ro  CHANOC.  HOWCVCR  the  current  (level  3D  aooresses  op 
INPORHATION  IN  THE  PCT  USED  BY  THE  OAN  PACKAGE  ARC  AS  POLLOUS: 

MORO  PART  CONTENTS 


I 


2 


12 


IS 

51 

52 

53 
H2 


IB 

aiTi 


17 

IB'tS 

20*21 


ORIGINAL  RUNtO 
OCNCRATCO  RUNIO 

CSTIHATCO  SUPS  POR  RUN  (200  USCC  INCRCHCNTS) 

ACCUHULATEO  SUPS  POR  RUN  (200  USCC  INCRCNENTSI 
RUN  start  date/ T I he j 

nonth 

DATE 

(YEAR-196**) 

SECONDS  SINCE  NtONtOHT 
aXQT  OPTIONS: 

ABCDCPOHl  JKLNN0PQRS.2 
2S  2<*  23  22  21  20  IS  IS  17  16  IS  t<«  (3  12  It  10  09  08  07  ..  00 

CONDITION  WORD 

DUAL  IP  ICR 

ACCOUNT  NUHBCR 


2S  S2  PROORAN  TYPE: 

2«RCAL  tine 
3-LOU  EXEC 
•(•OCHANO  ' 
9-OCAOLINC  BATCH 
6*BATCH 


S(00) 

ERPCr* 


AXRS 

LRU 

LA 

LXI 

CR 

J 

CNO 


BANKS  RCVCRSCD  TO  CLININATC  INDIRECT  LOAD  TABLE  ENTRIES 


AO.ATRACC 
•ERPCT  • 
AO.I .Xlt 
A0.*0.Xli 

PCTS 

3. XII 


TRACE 

NANC  OP  this  SUBROUTINE 
XN  • AOORCSS  OP  ARRAY 
XI  • NUNBCR  OP  WORDS 
RCOUCST  IT 
RETURN 
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OAN  PACKAOC  APPCNOIX  P 

cxccunve  xcauesrs 


CRI>#‘S/0AN 

001 


OURROUrtNC  CRRrSI  0 RROORAN  riLC  SCARCN  TOR  INFO  ON  NANCO  CLCHCNT 
U IRFRKr.  a RACKET  CRUST  RC  10  UOROS) 

0 ISTATI  a STATUSt  0 • OK 

I  • NO  SUCN  CLCHCNT 
C • I/O  ERROR 

S • RROORAN  FILE  NOT  OCFINCO 
•»  • RROORAN  FILE  OVCRFLOM 


IE  H 8CHL0SSCRI 

THIS  ASSCHBLER  SUBROUTINE  USES  EXECUTIVE  REQUEST  RFSS  TO  RETURN  INFO 

ON  THE  NANCO  CLEHCNT  IN  A CURRCNTLV  ASStONEO  FILE.  THE  CALLINO  RROORAN  NUST 

PROVIDE  A PROPERLY  INITIALIZED  PACKET  AS  FOLLOUS: 

OlHENStON  IPFPKTnai 
INCLUDE  ASHOEF.LIST 

IPFPKTI 1 l••^IRST-6-CHARS-0r-INTERNAL-rtLE-NAHE’ 
IPrPKTC2I-‘NEXT-6-CHARS-0F-lNTERNAL-riLE-NAHE*  OR  ’ * 

IPFPKTC  3»»TIRST-S-CHARS-0r-ELEHENT-NAME' 
IPFPKTrHI«*NEXT-6>CHARS*0F-ELENENT-NAHE*  OR  * ’ 

ASHS3C IPFRKTCS) » -ELEMENT -TYPE 

1 - SYMBOLIC 

2 - ASSEMBLER  PROC 

3 • COBOL  PROC 

H * FORTRAN  PROC 

s • relocatable 

6 • ABSOLUTE 

IPFPKTC7I ■•FIRST-6-CHARS-Or-VERSION-NAME*  OR  0 
IPFPKTIBI>‘NCXT-6>CHARS-0F-VERS10N-NAME‘  OR  ‘ ‘ OR  0 


THE  fortran  CALLINO  SEQUENCE  FOR  THIS  SUBROUTINE  THEN  IS  AS  FOLLOWS: 
CALL  ERPFSC IPFPKT. ISTATI 


INFORMATION  RETURNED  IN  THE  PACKET  IS  AS  FOLLOUS: 


IPFPKTISI : 

ASMHl I IPFPKTI 101  I 
ASHH2I IPFPKTI I 0> I 
IPFPKTI III: 


SECTOR  LOCATION  OF  RELOCATABLE  PREAMBLE 
SECTOR  length  of  RELOCATABLE  PREAMBLE 
SECTOR  length  OF  RELOCATABLE  TEXT 

relocatable  text  AOORESS 


« 

IPFPKTC 121 : 

DATE  1 time  of 

creation 

• 

• 

scoot 

AXRS 

. BANKS  REVERSED 

TO  ELIMINATE  INDIRECT  LOi 

ERRFS* 

LNJ 

AO.ATRACC 
•CRRFS  • 

trace 

NAME  OF  this  SUBROUTINE 

L.U 

AO. *0. XII 

RACKET  address 

CR 

RFSS 

FILL  RACKET 

SA 

A2.I.XII 

RUT  status  in  2ND  ARO 

J 

END 

3. XII 

RETURN 

R-20 
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OAN  ^ACKAOC  AMCNOIX  P 

exceuTtvc  ncoucsrs 


c 


001 


OUOAOUriNC  CRMCAt  A OCT  ALrCRNATC  RRINT  riLC  CONTROLS  IflCLOATAi 
I NHOROS.  A NUNOCR  Of  HOROS  IN  PRINT  CONTROL  STRINO 

I JPRCONI  A PRINT  CONTROL  STRINO 


IC  N SCHLOSSCRt 

THIS  ASSCNOLCR  SUOROUTINC  NAKCS  TNC  PRINT  CONTROL  PACILITICS  OP  CR  PRTCAS 
OIRCCTLY  AVAILASLC  to  a FORTRAN  PROORAN. 


Sioot 

AXRS 

. RANKS  RCVCRSeO 

TO  CLININATC  INOIRCCT  LOAO  TABLC  CNTRICS 

CRPRCA« 

LNJ 

AO.ATRACe 

TRACE 

‘CRPRCA* 

NAME  OP  this  subro;  INE 

LA 

AO.I.XII 

XH  - AOOR  OP  PRT  CONTROL  STRING 

LXI 

AO. *0. XII 

XI  > NO  OP  Hos  IN  string 

CR 

PRTCAS 

ALT  print  CONTROL 

J 

3. XII 

RETURN 

CNO 

I 


* 


P»tl 


CRPNCN/OAH 

OOt 


OAN  PACKAOC  APKNOIX  P 

cxceurtvc  rcqucsts 


AXRt  . 

. RCRLACCt  CXCC-II  •tCTnRO.PAAei«.RAA30*»««aHOO.LINC  AOOCO  * 

••••  RCv  s.exec  a arh.  • s.h.i  icr  RRrcNti  3/19/73  vcr  • 

RAOet  9-11.  If  OR  ••UP*79f«»  RAOCf-33**  ••••  AfOR  CALL  IS 
CALL  CRRRCN  (NR-0r-M0R08olN-STRIN0. 'RRlNT'CCNTROL-STRINO-rCXT* I 


L.U 

XII. 0. XII 

L 

AO. 1. XII 

. AOORCss  or  Tcxr  ro  artcns 

LXI 

A0.«0.XI 1 

. NR  or  uoRos  or  rexr 

CR 

RRTCNS  . 

. 00  IT 

J 

3. XII 

. RETURN 

CNO  . 


Cl 


I 

OAN  ^ACKAOC  APKMOl 

cxceartvc  ncouctrs 


eoi 


tUSAOUriNC  CRPANri 
1 NtMCC. 

I NHOS. 

I INAOCI 


• PRINT  STRINO  op  PICLOATA  CHARACTERS 

• NUHBCR  OP  LINES  TO  SPACE  8EP0RE  PRINTING 
S NUHBER  OP  SB-BIT  HOROS  IN  STRING 

• string  op  PIELOATA  characters,  packed  6 PER  HORO 


CE  H BCHLOSSERt 

THIS  ASSEHBLER  SUBROUTINE  HAKES  THE  I/O  PACILITIES  OP  ER  PRINTS 

directly  available  to  a portran  prooran.  it  is  insensitive  to  whether 

THE  PROCESSOR  IS  OPERATING  IN  THIRD-WORD  OR  OUARTER-WORO  NODE. 


S(00l 

AXRS 

. BANKS  REVERSED 

TO  ELIMINATE  INDIRECT  LOAD  TABLE  ENTRIES 

ERPRNT* 

LA 

Ai.«o.xn 

SPACING 

LA 

AB.«I.XII 

NUHBER  OP  WORDS 

LSSL 

Al  .6 

SHIPT  SPACING  6 BITS  LEPT 

LA 

AO. E. XII 

BUPPER  ADDRESS 

SA.HI 

At, TEHP 

PACK 

SA.SS 

AE.TEHP 

INTO 

LXI .HI 

AO. TEHP 

XI 

ER 

PRINTS 

PRINT 

J 

H.Xtl 

RETURN 

Sion 

TEHP 

RES 

1 

END 

P-CS 


001 


J 


OAH  PACKAOC  AMCNOI 

cxceurtvc  Kcoucsrt 


dWO 


tUOROUriNC  CRPRrAI 
I NANrU. 

I NORACC. 

I NHOt. 

I INAOCt 


a MRirc  otrino  or  riCLOATA  charactcro  ro  alt  rrt  rite 

a NANC  or  ALT  MINT  riLC  (It  CNARACTCRO.  OI.ANK  riUCOI 
a NUNiCR  or  UNCO  to  aovancc  oeroRC  rrintino 
a NUHOCR  or  se-oir  horos  in  otrino 
a otrino  or  riCLOATA  charactcro.  rackco  o rcr  horo 


(C  N OCHLOOOCRI 

THIO  AOOCNOLCR  OUIROUTINC  HAKCO  THC  I/O  rACILITICO  or  CR  RRNTAO 
OIRCCTLV  AVAILAOLC  to  a rORTRAN  RROORAH.  IT  10  INOCNOITlvC  TO  UHCTHCR 
TNC  PROCCOOOR  10  OPCRATINO  IN  THIRO-UORO  OR  QUARTCR-UORO  NOOC. 


0100) 

crprta* 


0(01) 

PKT 


AXRO 

. BANKS  RCVCRSCO 

TO  CLIHINATC  INOIRCCT  LOAD  TABLC  CNTRICS 

OL 

At. *0. XII 

OCT  alt  PRT  riLC  NANC 

LA 

AO.«I.XII 

OCT  SPACINO 

OS 

At.PKT*! 

PUT  PILC  NANC  IN  PKT*I.  PKT*t 

LSSL 

AO. 6 

SHirT  SPACINO  6 BITS  LCFT 

LA 

At.«t.XII 

OCT  NUNBCR  or  UOROS 

LA 

At. 3. XII 

OCT  eurrcR  aoorcss 

SA.HI 

AO. PKT 

PACK 

SA.S3 

AI.PKT 

INTO 

SA.Ht 

At. PKT 

PKT»0 

LA 

AO. (PKT) 

AOORCSS  or  PACKCT 

CR 

PRNTAO 

PRINT 

J 

S.XII 

RCTURN 

Ri'S 

3 

CNO 

« 


« 


p-t1 


1 


OAN  fACKAOC  AWNOI 
CXCCUTtVC  RCQUCtTt 


Cl 


001 


« 


OUiUOUriNC  CROC AO I 

0 0. 

0 INAOC. 

0 lOTAn 


• RCAO  OTRINO  Of  riCLOATA  CMARACTCRO 

• CNo-or-riLC  rcturn  laocl 

0 OTRINO  or  riCLOATA  CHARACrCRO.  RACKCO  0 RCR  UORO 
a OTATUO  MOROi 

Nl  • OTATUO  01  TO  fCONOULT  UNI  VAC  RRNI 

Ht  • NUHOCR  or  MOO  RCAO  (CXCL  TRAIL INO  OLANK  HOOI 


(C  N tCMLOOOCRI 

TNIO  AOOCNOLCR  tUOROUTINC  HAKCi  TNC  I/O  rAClLITICS  Of  CR  RCAOO 
OIRCCTLY  AVAILAOLC  TO  A fORTRAN  RROORAN. 


flOOi 

AXRt 

. OANKO  RCVCRSeO 

TO  CLIHINATC  iNOIRCCr  LOAD  TAOLC  CNTRICS 

CRRCAO* 

LA 

AO. 1. XII 

xn  • ourrcR  aoorcss 

LXI 

AO. icon 

XI  • cor  oranch 

CR 

RCAOO 

RCAO  CARO  IHAOe 

SA 

AO.'C.Xll 

sroRC  status 

J 

•».Xtl 

NORMAL  R'TURN 

cor 

SA 

A0.«C.Xtl 

STORC  status 

J 

CNO 

O.XIl 

cor  RCTURN 

I 


f 


( 


f'CS 


OAN  MCKAOC  AMCNOIX  P 

cxccurivc  MCQuctrs 


CMICOA/OAN 

031 


•UOttOurtNC  COMCOAt 
I NANflL. 

A 0. 

0 INAOC. 

0 lOTAri 


• OCAO  tmiNo  or  riCLOAfA  chahactcoo  rooN  alt  rue 
0 NAHC  or  MCAO  Air  rue  tit  chaxo.  olank  ruLCot 
0 CNU*or«ruc  nctuiin  laocc 

0 omiMO  or  riciOATA  CNARACrcot.  rackco  o rcn  mood 
a otatuo  HOAOi 

Ml  • OrAtUO  01  TO  ICONOULT  UNI  VAC  rONI 

NO  • NUHOCN  or  MOO  OCAO  fCXCL  rOAUINO  OLANK  MOO* 


1C  N OCNLOtOCN) 

THIt  AttCNOLCN  fUONOuriNC  NAKCt  TNC  I/O  rACUiriCS  Or  CN  NCASAt 
OINCCrLT  AVAlLAOLC  TO  A rONTNAN  rNOONAH. 


OlOOl 

AXNS 

. OANKS  NCVCNSCO 

TO  CLININATC  INOlHCCr  LOAD  TAOLC  CNTNICS 

eONCOA* 

OL 

At. *0. XII 

OCT  alt  RCAO  riLC  NAHC 

LA 

Al.t.XII 

XH  > ourrcN  aookcss 

LXI 

At.  icon 

XI  > cor  SNANCH 

OS 

At.rxr«i 

ruT  rue  NAHC  in  rxT*i.  pxT*e 

SA 

Ai.rxT 

PUT  COPAOON/OurAOOR  IN  PKT*0 

LA 

AO.CAKri 

Aoopcss  or  pkt 

CN 

OCAOAS 

NCAO  ALTCRNATC  CARO  INAOC 

SA 

AO.<I.Xtl 

STORC  status 

J 

S.XII 

NORHAL  RCTURN 

cor 

SA 

A0.«3.Xtl 

STORC  status 

tfOll 

J 

I.XIt 

cor  RCTURN 

MKT 

NCS 

CNO 

i 

( 

\ 


OAN  PACKAOC  AmnOlX  P 

ffxceurivc  ncoucsrs 


cmu^t/OAN 

oti 


tumouriNC  mtuMt  • McrmiN  accuhvlatco  su^  rmc  rox  euMRCNr  mun 
0 NtuMi  • AccvnuLArcD  tu^  rinc  ttoo  utce  iNCACnCNrti 


(C  N tCHLOttCm 


tfoot 

AXAt 

. tANKt  RirvCRtCO 

ro  CLINlNArc  INOlRCCr  load 

TAtLC  CNTRieS 

ClltUM* 

L.U 

A0.*8.XM 

•urrcx  Aooxrss 

LA 

At.fl.lt) 

1 MORO.  srAnriNO  at  Rcr*ti 

t*i»cri  i«i  1 

CM 

PCT$ 

J 

C.Xlt 

CNO 

» 


OAN  ^ACKAOC  APMNOIX  P 

cxceurivc  Mouctrt 


ciirtii^/OAii 

OtI 


tutiiouriNC  cnrtMP  i • clow  eiwucNT  nccl  ro«  ta»c  rac  ano 

• XCQUCtr  kOAOINO  or  ANOrNCM  OCCL 
I Lurxr.  • OACKCr  tnutr  oc  i Nooott 
I irUNCt  A ONAP  OPTION  INOICATOP 

• 0 • SNAP  re  Ncxr  nccl 

• 1 • fUAP  TO  Mxr  NCCL  A tTONC  NCCL  • IN  LUPKTdl 

• C • NOUNT  NCCL  tPCCIPICO  IN  LUPKTdl 


NieroNY 


c 

A 

NCLNKC 

LCC 

00/03/70 

NCOUINCNCNTA 

c 

A 

NCLNKC 

LCC 

00/03/70 

ALOONI Tnn 

OCA  ION 

c 

A 

NCLNKC 

LCC 

OA/OS/7A 

aloonithh 

cost  NO 

ncthoo 


TNIf  ASOCHOLCN  SUINOUriNC  UtCt  CXCCUriVC  NCQUrtr  TAWAPS  TO 
SNAP  NCCLO  PON  A MULTI 'VOLUNC  ACT  OP  'APCS.  TMC  CALL  I NO  PNOONAN 
HUAT  PNOVIOC  A PNOPCNLY  INITIALIZCO  PACKCT  At  POLLOUSi 
INTCOCN  PACKCT-nANC  Hi 

PACKCT-NAHC  HI  • ‘PINST  6-CNANA  OP  INTCNNAL  PILC  NANC’ 
packct-nahc  ctt  • ‘ncxt  a chana  op  intcnnal  puc  nahc  on  olanka* 

PACKCT'NANC  131  • ’NCCL  NO  OP  NCXT  TAPC*  (PON  AWAN  OPTION  t ONLY) 
TNC  PONTNAN  call  I NO  ACQUCNCC  PON  TnIA  AUONOUTINC  TNCN  It  At  POLLOuAi 
CALL  CNTAMP  (LUPKT. IPUNCI 


NACNINC-OCPCNOCNT  COOC 


HNITTCN  IN  AttCNOLCN  PON  TNC  UNIVAC  1100  fCNICA  CONPUTCNA  UtINO  0*OIT 

picloata  cmanactcna.  tmc  anouncnta  anc  ocaionco  to  oc  nachinc-inocpcnocnt. 

OUT  TNC  NCTNOO  op  PAAAINO  ANOUNCNTA  lA  TMAT  UACO  NY  UNIVAC  PONTNAN  v. 
INPLCNCNTINO  COOC  NUAT  OC  NCUNITTCN  PON  OIPPCNCNT  CNANACTCN  COOCA. 
OIPPCNCNT  CONPILCNA  <CO..  UNIVAC  AACII  PONTNANI.  ANO  OIPPCNCNT  HACHINCA. 


CXTCNNAL  NCPCNCNCCA 


TAMAPA  0 CXCCUTIVC  NCOUCAT  NOUTlNC  TO  CL03C  NCCL  ANO  LOAO 
0 NCOUCATCO  TapC 


CxeCPTIONA 


NONC 

OLOOAL  OCCLANATtONA  * 


P'CO 


OAN  ^ACKAOff  AWNOU  ^ 

ciceunvc  ncoucirt 


ciirtiiP/OAii 

•if 


ttONC 

LOCAL  OCCLANAnONS 


pooecouRC 


ttool 

AXAt 

. OANKO  IICVSKSrO  TO  ClIHINArC 

corsMO* 

LHJ 

AO. ATNACC 
•CATImP* 

. roACC 

LA 

AO.O.Xt 1 

. XH  > AACKCT  AOOACtO 

LXI 

AO. *1. XII 

. XI  > ruNcrioN 

CO 

rOHAAO 

• 

J 

CNO 

S.xtl 

.RCruNN 

o-to 


u 

0AM  MACKAOC  AMfCNOU  P 

CXCCUTIVC  KQucsrs 


CMTIIAr/OAN 

Ml 


tUMOuriNC  CRTHArt  • Tiinco  HAir  or  currcnt  mooran  cxccution 

t HILSCO  • NUMCR  Of  HILL ISCCONOS  TO  OCLAY  PROORAH  IRAK  SOOOOt 


1C  H SCHLOOKR) 

TRIO  ASSCHOLCR  SUBROUTtNC  HAKCS  THC  I/O  rAClLlTICS  OF  CR  UAlTf  OtRCCTLY  AVAIL 


. AOLC  TO 
• 

A FORTRAN 

PROORAN. 

0(00) 

AXRO 

. BANKS  RCVCRSeO 

TO  CL  INI  NATE  INOIRCCT  LOAD 

crthat* 

LNJ 

AO.ATRACC 

•CRTNAT* 

TRACE 

LA 

At.*O.Xtt 

NUHBER  OF  HILL  I SECONDS 

CR 

TNAITS 

REQUEST  MAIT 

J 

CNO 

e.xit 

RETURN  AFTER  WAIT 

« 


t ) 


0 


#*so 


OAN  PACKAOC  AWCNOtX  P 

cxceurtvc  rcqucsts 


tlMAIT/OAN 

001 


( 


tumouriNC  crmait(  a UAtr  ron  conm.crtoN  or  mcviouOLv  initiatco  i/o 
u LUOKTi  a OACKCr  (Hutr  oc  oackct  uuo  ro  iNirurc  rue  i/oi 


(C  H tCHLOttCRt 

TNIt  AOSCNOLCR  SUOKOUTINC  HAKCS  THC  I/O  rACILinCt  OP  CM  MAITS  OIHCCTLY  AVAIL- 
AOLC  TO  A POATMAN  PAOOAAH. 

• SYNCNHONI CATION  OUOS  IN  THC  UNI VAC-SUPPL ICO  TAPC  I/O  NANOLCM  HITHIN  THC 
« CXCC  CAUSC  PRCNATURC  SCTTINO  OP  TNC  I/O  STATUS  TO  COHPLCTC.  RCSULTINO 

• IN  SPORADIC  TAPC  NALPUNCTIONS  HHCN  THC  SYSTCH  IS  LIOHTLY  LOAOCO.  THC 

• lOHAIT  construct  ALLOHS  THC  USCR  TO  8PCCIPY  (POR  TAPC  WO  ONLY!  A TtHCO 

• WAIT  OP  0 thru  63  NILLISCCONOS  TO  SC  TAKCN  8Y  SUOROUTINC  CRUAIT  UHCN  THC 
« status  INOICATCS  I/O  IS  ALRCAOY  COHPLCTC  ON  CNTRY  TO  CRUAIT.  lOHAIT 

• SHOULD  NORHALLY  BC  SCT  TO  10  NILLISCCONOS  UHCN  NO  OTHCR  CXCC  RCQUCST 

• INTCRVCNCS  BCTUCCN  ThC  CALL  TO  CRIO  AND  ThC  CALL  TO  CRUAIT. 


Siotl 

AXRS 

CRUAIT* 

L.U 

Aa.«O.XI 1 

. AOORCSS  OP  PACKCT 

LA. 81 

Al .S.A2 

. NILLISCCONOS  TO  UAIT 

JZ 

At. 00 

. JUNP  IP  TINCO  UAIT  NOT  RCQUCSTCO 

TN 

3.AB 

. SKIP  Nl  IP  UAITINO  POR  I/O  CONPLCTION 

CR 

thaits 

. TINCO  UAIT  POR  Al  NILLISCCONOS 

00 

TP 

3. AS 

. SKIP  Nt  IP  I/O  ALRCAOY  COHPLCTC 

CR 

UAITS 

. UAIT  POR  CONPLCTION 

J 

a.xti 

. RCTURN 

CNO 

P-31 


OAN  MCKAOC  AMCNOIX  P 
cxteurtvc  rcqucsts 


•vfOcr/oAii 

oot 


lUMOUrtNC  SYPOCTf  A OUTPUT  PKONPT  INAOC  A OCT  tUPUT  IHAOC 
V ISTAT.  a OTATUO  Of  OCTt  * NORMAL  COHPLCTION 

*Pt*  riLC  tCPARATOR  (ACOn 
*COA*  CNO  OP  AOO 
*COr*  CNO  OP  PILC  I A... I 
*OPL*  OUPPCR  OVCRPLOH  I LCNOTH  > 1*0  I 
0 INOOCT.  A OUPPCR  POR  OCT  INAOC  IHAX  1*0  CHAR8I 

0 LCNOCT.  A LCNOTN  OOTTCN  IN  CHARS.  INCLUOCS  TRAILINO  OLANKS  IP  PRCSCNT 


I LtNPUT.  A NUHOCR  OP  LINCS  TO  SPACC  OCPORC  PUTTINO 
I INOPUT.  A OUPPCR  WITH  PUT  IHAOC 

I LCNPUTt  A LCNOTH  TO  PUT  IN  CHARS.  INCLUOCS  TRAILINO  OLANKS  IP  PRCSCNT 


HISTORY 


C H SCHLOSSCR  LCHSCO  00/13/80  ORIOINAL  COOC 


NCTHOO 


PROMPT.  THCN  RCAO  NCXT  SYSIN  IHAOC.  CONVCRT  CXCC-0  STATUS  BITS  A LCNOTH 
IN  UNIVAC  WORDS  TO  STATUS  STRINO  i LCNOTH  IN  CHARACTCRS. 

OCCRCNCNT  HAOLCV  UPON  CNCOUNTCRINO  THC  CNO  OP  AN  AOO-CO  PILC. 


NACHINC'OCPCNOCNT  COOC 


HRITTCN  IN  ASSCNSLCR  POR  THC  UNIVAC  1100  SCRICS  COHPUTCRS  USINO  8-8IT 
PICLOATA  CHARACTCRS.  THC  AROUHCNTS  ANC  OCSIONCO  TO  BC  NACHINC-INOCPCNOCNT. 
BUT  THC  HCTHOO  OP  PASSINO  AROUHCNTS  IS  THAT  USCO  BY  UNIVAC  PORTRAN  V. 
INPLCHCNTINO  COOC  HUST  BC  RCURITTCS  POR  OIPPCRCNT  CHARACTCR  COOCS. 
OIPPCRCNT  COHPILCRS  (CO..  UNIVAC  ASCII  PORTRANI.  ANO  OIPPCRCNT  HACHINCS. 


CXTCRNAL  RCPCRCNCCS 


CR  TRCAOS  A CXCC  RCQUCSTt  PROMPT.  THCN  RCAO  PROH  INPUT  RUNSTRCAH 


CXCCPTIONS 


1.  IP  THC  OCT  OUPPCR  IS  LCSS  THAN  1*0  CHARACTCRS.  RCSUITS  ARC  UNOCPINCO 
ANO  ThC  CURRCNTLY  CXCCUTINO  PHOORAN  NAY  ABORT. 


BL 


I 


AXRS 


standard  UNIVAC  1100  RCOISTCR  MNCHOMICS  ’ 


P-I* 


tVMCr/OAII 


BAN  NACRAOC  ANNCNOU  P 

csceuTivc  RCQuctrt  bm 


RONXBT  . CANNON  MOONAN  CXCCUTION  SMITCHCO 


LOCAL  OCCLANArtONt 


t(00t  . O'OANR 

ART  NCt  t . UNI  VAC  CXCC-0  TNCAOt  NACRCT 


ONOCCOUNC 


tfon  . I •BANK 

svpoer* 

. scr  UN  ouTNur  (Nuri  sNcciriCArioNS 


LA 

AO. *3. XI 1 

• LINES  TO  SNACE  BEFORE  NUTTINO 

%X 

Al 

DIVISION  CONINO 

LSSL 

AO. 8 

SHIFT  • LINES  6 BITS  TO  LEFT 

LA 

AC.*S.XI 1 

length  in  chars  to  NUT 

AA.U 

A8.S 

LAST  CHARACTER.  COUNT  I NO  FROH  8 

01. U 

Al  .6 

Al  t*  LAST  NORO.  COUNTING  FROH  I 

AC  >•  LAST  CHAR  IN  LAST  HO.  FROH 

0 

LA 

A3.V.XI 1 

AOOR  OF  NUT  IHAOE  BUFFER 

SA.NI 

A0.NKT*0 

RACK 

BA, S3 

Al .NKT*0 

INTO 

SA.NB 

A3.PKT«0 

NKT*0 

. NASK  UNUSeO  CHARACTERS 

IN  LAST  WORD  OF  NUT  BUFFER 

LNA.U 

AO.O 

OEHANO  WO  STON  HORO 

NSI.U 

AO.e 

AC  <■  1ST  BIT  OF  LAST  CHAR.  FROH 

0 

SSL 

AO.B.AB 

NOSITION  STON  CHARS  OVEr.  UNUSEO  BITS 

ANA.U 

Al . 1 

LAST  WORD.  COUNTING  FRO!:  0 

AA 

A3.AI 

AS  1*  AOOR  OF  LAST  HORO 

LA 

AV.A3 

SAVE  AOOR  OF  LAST  HORO 

LA 

A8.0.A3 

SAVE  CONTENTS  OF  LAST  HORO 

OR 

AO.O. A3 

NASK  UNUSEO  CHARACTERS  . . . 

BA 

Al .0.A3 

...  IN  LAST  HORO 

. SET  UN 

INNur  (OETI 

BNECiriCATIONB 

LA 

AO. 1 .XI 1 

• 

XN  t*  AOOR  OF  OET  IHAOE  BUFFER 

LXI 

AO. (NOI 

• 

XI  I*  JUHN  AOOR  IF  NO  IHAOE  TO  OET 

BA 

AO.NKT*! 

■ 

NUT  IN  NKT*I 

. RCOUESr 

the  WO 

LA 

AO. (NKTI 

• 

RC3UEST  EXEC  TO 

CR 

treaob* 

• 

NUT  8 OET  INAOES 

. INTCRNRET  TNE  WO 

RESULTS 

LXI. XU 

AO.O 

• 

NASK  status  BITS.  LEAVING  LENOTH 

IN  NOS 

LA 

Al.l* 

•1 

• 

status  is  ok 

TO. XU 

AO. CO 

• 

SKIN  Nl  IP  CO  >•  « HOS  IN  IHAOE 

LA 

Al.f *ONL 

•» 

• 

IP  AO  > CO.  STATUS  IS  OVERPLOU 

NBI .XU 

AO.B 

• 

CONVERT  LCNOTN  to  CHARACTERS 

J 

RETURN 

OR 


DAN  PACKAOC  AmNOIX  P WtCT/OAN 


cxccttrtvc 

RCQUCSrt 

003 

m 

LA 

At, AO 

• 

SAvc  srATus  01 rt 

%2 

AO 

• 

LCNOTN  IS  0 

JN 

At. cor 

• 

COP  IP  01 r 30  It  ON 

LtSL 

At.t 

• 

ONIPT  OIT  33  INTO  SION  OIT 

JN 

At. COA 

• 

COA  IP  Sir  33  IS  ON 

• 

rs 

LA 

At.i*rs 

•1  . 

STATUt  It  PILC  SCPARATOR  dCOPI 

J 

RCTUNN 

• 

COA 

LA 

At .1 ’COA 

•1 

status  IS  CNO  OP  AOO 

LA 

Al.NAOLCV 

• 

eURRCNT  NCSTCO  AOO  LCVCL 

AA.XU 

AS.'l 

• 

...  Less  ONC 

JN 

A 3. RC TURN 

CAN’T  HAKC  NCOATIVC 

SA 

A3.HAOLCV 

UPOATC  AOO  LCVCL 

J 

RCruRN 

cor 

LA 

At .( ’Cor 

• » . 

status  is  CNO  OP  PILC  It...! 

. RCSrORC 

PUT  BurrcR 

A RCrURN  WITH  tNTCRPRCrCO  WO  RCSULTS 

RCrURN 

LA 

A3.  At 

RCSTORC  AOOR  OP  LAST  UORO  IN  0UPPCR 

8A 

A9.0. A3 

RCSTORC  CONTCNTS  OP  LAST  HORO 

SA 

A0.<t.XI 1 

STORC  lcnoth  op  oottcn  INAOC 

SA 

At  ,«O.XIt 

STORC  status 

J 

7.XI  t 

CNO 

OAN  MCKAOC  AMCNOIJ 

CMCurtvc  MQuctrt 


aoi 


tUMOUrtNC  SY«AOO(  A AOO  DISK  tYNIOLIC  riLC  OA  CLCHCNY  TO  «YtlN  AUNtTRCAH 


0 

LOCPIL. 

B 

LOCATION  NITNIN  FILEi 

<0 

NOT  POUNO 

• 

0 

PILE 

1 

NANPIL. 

B 

NAME  OP  PILE 

>0 

ELEMENT  LOCATION 

1 

NANCLT. 

B 

NAME  OP  SYMBOLIC  ELENENT 

1 

NANVERI 

B 

e 

e 

c 

e 

e 

c 

e 

c 

c 

c 

e 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

e 
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e 

c 

e 

c 

c 

e 

e 

e 

e 

e 

e 

e 

c 

e 

e 

e 


NAHCt  NUtr  CONTAIN  It 


I.  INCLUOINO  TRAI)  INO  ILANKC 


Nl STONY 

C N SCNLOSSCR 
NCTHOO 


LCC 


01/17/79  ONIOINAL  CODE 


CHECK  tr  DISK  SYMBOLIC  FILE  ON  ELENENT  EXISTS.  IF  SO.  INCNEHENT  NAOLEV 
ISAOO  LEVEL  COUNTENI.  CONSTRUCT  A SUBMIT  EXEC'B  SAOO.E  INAOC.  CSVSOET 

oecrements  maolev  upon  encounterino  the  eno-of-file  oenerateo  by  the 
•AOO.E  AND  RETURNS  AN  ENO-OF-AOO  C'EOA'I  STATUS. I 


HACHINE'OEPENOENT  code 


UNIVAC  EXEC  B PROORAM  FILE  NAMING  CONVENTIONS  AND  EXECUTIVE  REQUESTS. 
EXTERNAL  REFERENCES 


INTEGER  LENCST  • LENOTH  OF  CHARACTER  STRING 
NOvcsT  a hove  character  string 

ERCSF  • SUBMIT  EXEC*B  FACILITY  REQUEST  CONTROL  STATEMENT 


EXCEPTIONS 

I.  FILE  OR  ELENENT  DOES  NOT  EXIST, 
t.  FILE  OR  ELENENT  IS  NOT  SYMBOLIC. 

s.  file  not  assioneo  to  current  run. 
GLOBAL  OECLARATIQNS 

INCLUDE  KONXOr.LISr 
LOCAL  DECLARATIONS 


R-IS 


noon  noon  noon  oooonn  on 


u 


OAN  ^ACRAOff  AMCNOIX  P tVtAOO/OAN 

cmuTivc  MQuctrt  oot 


INTCOCR  NANrtLItl.NAHCLTItl .NAHVCRItI  A AROUNCNTt 
INTCOCR  iNAOCItl  A AOO  CONTROL  tTATCNCNT  INAOC 
DATA  (lNAOC(Ni.N«l.tl/*AAOO.C  */ 

INTCOCR  LOCra  A LOCATION  nitnin  otr 

INTCOCN  KtTART  A OTART  LOCATION  NITNIN  CHARACTCR  STRINO  Of  SUItTRINO 
INTCOCR  LCNOTN  A LCNOTH  OF  CNARACTCR  SUOOTRINO 


RROCCOURC 


CALL  TRACC 

CHCCK  tr  osr  exists 

A 

LOCriLaOCOSriNANriL.NANCLT  .NAHVERI 
triLOCriL.LT.OI  00  TO  900  A NO  SUCH  OSF 


ARRCNO  FILE  NAHC  TO  INAOE 

KSTART*9  a AFTER  ‘AAOO.C  * 

LCNOTN-LENCSTCNAnriL. tSi 

CALL  HOVCSTI INAOC. (KSTART) . (LENOTh) . NANF I L . 1 I I . < LCNOThI . ' *1 

kstart«kstart*lcnoth 

CALL  RUTCHRI INAOC. (KSTART) . *.*1 

KSTART«K8TART»| 

IFILOCFIL.CO.OI  00  To  600  A FILE 


ARRCNO  CLCNCNT  NANC  TO  INAOC 


LCN0TN*LCNCSTINANCLT. 121 

CALL  NOVCSTC INAOC. IKSTARTI . CLCNOThi . NANCLT . 1 1 1 . ILCNOTni . ’ ‘I 
KSTART«KSTaRT*LCNOTH 

iriNANVCRIII .CO. ' '>  00  TO  600  A NO  VERSION  NANC 

c 

c 

C ARRCNO  VERSION  NANC  TO  INAOC 

c 

CALL  RUTCNRC INAOC. IKSTARTI . */•! 

K6TART«KSTaRT»| 

LCN0TN«LCNCST(NANVCR. If I 

CALL  NOVCSTI INAOC. (KSTARTI . ILCNOTNI . NANVCR. 1 1 1 . CLCNOTNI . * 'I 
KSTART«K6TaRT*LCN0TN 

c 

c 

C SUiNIT  AAOO  INAOC  TO  CXCC 
C 

600  CALL  NOVCSTI  INAOC.  IKSTARTI.  im.  •.III.IVI,*  *1 

NAOLCVNAXOINAOLCV«I.II  A INCRCNCNT  NCSTCO  AAQO  LCVCL 

CALL  CRCSFIISTaT.  IHAOCI 


R*S0 


MN  PACKAM  AmNOIX  P 

cxffcunvc  Mouctrs 


•VtAOO/MN 

•OS 


c 

e 

•00  RCTURN 
CNO 


•-S7 


i 


OAN  MCRAOC  ARMNOIX  R •VMCT/PAN 

txcewrivc  Rcouctrt  mi 


lUMOUriNT  tVtOCTf  • OCT  NCXf  MCOMQ  MOH  tYtlN  AUNtTACAN 
0 INtTAT,  • INAUI  tlAruti  * * NOANAL  COAALCriON 

*rt*  riLC  tCAAAATOA  lACOri 
*COA*  CAO  or  AOO 
*cor*  CNO  or  rue  co...t 
*orL*  iurrcA  ovcArLOH  < lcnoyh  > ito  i 
0 iNAOc.  • lAAoe  ourrcA  ynax  leo  cnaaoi 

0 LCNOTMI  • LCNOTN  Or  INAOC  IN  CMAAO.  INCLUOCt  TAAILINO  OLANKO.  ir  rACtCNr 


NitrOAY 


C N tCHLOttCA  LCe 

C N SCNLOtSCA  LCC 


0l/tt/7t  OAIOINAL  eOOC 

01/07/00  KONXOr  NACAO 


hctnoo 


ACAO  Ncxr  SYOIN  INAOC.  CONVCAT  CXCC*0  OTArui  01 rt  A iCNOrH  IN  UNI  VAC 
HOAOt  ro  SYAruS  STAINO  a LCNOTN  in  CMANACrCAS. 

OCCACNCNr  NAOLCV  UAON  CNCOUNICAINO  TNC  CNO'Or-riLC  OCNCAATCO  OY  YHC  AAOO.C 


NACNlNC-OCrCNOCNr  cooe 


MAirrCN  IN  AOSCNOLCA  TON  YHC  UNIVAC  1100  SCA'.CS  COHruTCAS  USINO  6>0I  Y 
riCLOAYA  CMAAACYCAO.  YnC  AAOUHCNYS  AAC  OCSIONCO  YO  OC  HACHlNC'lNOeACNOCNY. 
OUY  YNC  NCYNOO  Or  AAtSINO  AAOUHCNYS  IS  YNAY  USCO  OY  UNIVAC  rOAYAAN  V. 
IHALCHCNYINO  COOC  NUSY  OC  ACHAIYYCN  TOA  OirrCACNY  CHAAACYCA  COOCS. 
OirrCACNY  CONAILCAS  (CO..  UNIVAC  ASCII  roAYAANI.  ANO  OirrCACNY  NACHINCS. 


CxrCANAL  ACrCACNCCS 


CA  ACAOt  a CXCC  ACOUCSYt  OOYAIN  NCXY  CAAO  INAOC  CAON  INAUY  AUNSYACAH 


CXCCAYIONS 


I.  1777 


OlOOAl  OCCIAAAYIONS 


AXAS 

KONXOr  . eONNON  MOOAAN  CXCCUYION  SMIYCNCS 


! LOCAL  OCCLAAATIONS 


r-M 


OAN  ^ACIUOC  Ammix  P 

Clfcunvc  Rcouctrt 


tVMCf/OAII 

Mt 


! moecouRC 


Sion  . 

1 •BANK 

svsocr« 

LA 

AO. 1. XII 

LXI 

AO.INOI 

CR 

RCAOS 

OK 

LXI. XU 

AO.O 

LA 

Al.l  ‘ 

•1 

TO. XU 

AO. to 

LA 

Al.l ‘OrL 

• ) 

NSI .XU 

AO.O 

J 

RCTURN 

NO 

LA 

At.  AO 

St 

AO 

UN 

At. cor 

LSSL 

At.t 

UN 

At. COA 

rs 

LA 

Al.l *rs 

t 1 

U 

RCTURN 

COA 

LA 

At .( *COA 

• » 

LA 

AS.NAOLCV 

AA.XU 

AS.'I 

UN 

AS. RCTURN 

SA 

AS.NAOLCV 

U 

RCTURN 

cor 

LA 

Al.l *cor 

• > 

RCTURN 

SA 

AO.«t.XI 1 

SA 

Al.«O.XII 

U 

N.XII 

CNO 

. xN  • tMoc  turrcx  Aooxrtt 

. XI  • JNA  AOOM  If  NO  INAOC 
. NCAO  CANO  INAOC  INTO  OUf»  w'N 

. NAOK  OfArut  iirt.  LCAVINO  LCNOTH  IN  UOS 
. trAfUf  IS  OK 

. SKIN  Nl  ir  to  >•  • HOS  IN  INAOC 
. ir  AO  > to.  srATus  is  ovCNriou 
. eoNvcnr  lcnotn  ro  CMARAcrcRS 


. SAVC  status  sits 
. lcnotn  is  0 

. cor  If  BIT  IS  IS  ON 
. SNirT  BIT  IX  INTO  SION  SIT 
. COA  ir  BIT  IS  IS  ON 

. status  is  riLC  serANATOR  neon 


. status  is  cno  or  aoo 

. CURRCNT  NCSTCO  AOO  LCVCL 
. ...  Less  ONC 
. CAN’T  NAKC  NCOATIvC 
. UROATC  AOO  LCVCL 


. STATUS  IS  CNO  or  rur  n...i 

. STORC  lcnotn 
. STORC  status 
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TNIt  AmNOlX  contains  TNC  LtONANV  OT  LAtCLLCO  CONNONS  OLOCKS.  CIOOAL 
HHCNONlCt.  NtCWOO  NCCONO  tTAUCruNCS.  ANO  CONNON  SrATCNCN?  fUNCTIONS 
fON  TNC  OAN  NACKAOC.  HNCMCVCR  ANY  CHANOC  IS  NAOC  IN  TNf  NNOCS  NITNIN 
TNIS  ANPCNOIX.  ALL  MOONANS  ANO  NOUTINCS  IN  TNC  OAN  NACXAOC  RUST  OC 
NC-eONNILCO. 

CACN  NNOONAN.  SUONOUTINC.  ON  fUNCTION  HNICH  NCfCNCNCCS  A LAOCLLCO 
CONNON  SLOCK  NUST  * INCLUOC.LIST*  TnC  LIONANV  OCflNITION  Of  TNC  CONNON 
CLOCK  fRON  TNIS  AMCNOIX.  INLINC  COOC  CXNLICITLY  OCriNiNO  A LAOCLLCO 
CONNON  SLOCK  NUST  NCVCN  AMCAN  UITNIN  ANY  RNOONAN.  SUSAOUTINC.  OR 
rUNCTIONI 
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•MT.oe  0AM.  oner  ACC -0 
aMRr.oe  OAH.AmNoix-o 
•NOO.N  .AOJL«C 

•HtO.N  .AOJS*»C 

•onr.se  OAH.ALroMr.oNocs 

•OHT.se  OAN.ASNOer*OROe 
•MSO.N  .ASHHt  ...  ASNHO 

•NSO.N  .ASNSl  ...  ASNSO 

•MSO.N  .ASNU  ...  ASNTS 

•MSO.N  .AXHS 

•ORT.se  OAN.COOCr>OROC 
•MSO.N  .CORLIA 

•NSO.N  .CORSNA 

•NSO.N  .CORLHO 

•NSO.N  .CORSNO 

•NSO.N  .C0RLN8 

•NSO.N  .CORSNS 

•NSO.N  .oiotrs 

•0RT.8C  OAN.rACBtr-PROC 
•ORT.SC  OAH.PIOCF-PROC 
•NSO.N  .PLoer 

•PRT.se  OAH.FORPROCS 
•PRT.se  OAH.OETOPT-APROe 
•NSO.N  .teouFi 

•NSO.N  .ieSUF2 

•NSO.N  .teauFs 

•NSO.N  .leaUFH 

•NSO.N  .tOAOOR 

•NSO.N  .lOAFeT 

•NSO.N  .loeooe 

•NSO.N  .lOFUNe 

•NSO.N  .tONNOS 

•NSO.N  .lOSCeT 

•NSO.N  .tosize 

•NSO.N  .IOSTAT 

•NSO.N  .lONAIT 

•NSO.N  .lOUORO 

•NSO.N  .KONALT 

•NSO.N  .KONOCT 

•NSO.N  .KOHFIT 

•PRT.se  OAN.KOHIO-PROe 
•PRT.se  OAH.KONIRT-PROe 
•NSO.N  .KONIUM 

•NSO.N  .KOHKLS 

•PRT.se  OAH.KONKS-PROe 
•NSO.N  .KONLOO 

•PRT.se  OAN.KONLUS-PROe 
•PRT.se  OAN.KONLUS'PROe 
•PRT.se  OAH.KOHLZN-PROe 
•NSO.N  .KONNCR 

•PRT.se  OAN.KOHNCT*PROe 
•MSO.N  .KONOUU 

•RRT.se  OAN.KONSLH-PROe 
•PRT.se  OAN.KONSYN'PROC 
•PRT.se  OAN.KOMTOL-PROC 
•NSO.N  .KONXQT 


. (7HK1  SCT  TAlt  • to  • St 

! AO.tllSTCO  ttNC  FOR  OORRCCTCO  (SEC  TRrOHN-PHOeSl 
. AOJUSrCO  SANRLC  FOR  eORRCeTCO  (SCe  TRFORN-PROeSI 
. eOMMON/OCFtMC  FOR  ALTCRNATC  PRtNT  FtLCS 

OCFtNC  UNtVAe  ASSCHOLCR  PARTIAL  UOS  IN  FORTRAN  V 
r*ARTtAL  HALF-HORO  NNCNONieS  CSCC  ASMOCF-PROei 
. partial  SIXTM'UORO  HNeMONlOS  (Sce  ASNOCF'PROe) 

. partial  tmiroomoro  nnchonics  isee  ashocf-proci 
. standard  I too  RCO  HNCHONieS  (UNtVAO  STSTCN  PROei 
. OCFINC  CHARAeTCR  BUFFCR  STRUeTURC  A STD  eo*S 
. CORRCCTCO  LINE  FOR  ADJUSTED  fSEE  TRFORH-PROCSi 
. eORRECTEO  SAMPLE  FOR  ADJUSTED  CSEE  TRFORH-PROeSi 
. eORRECTED  LINE  FOR  PPD  ISEE  TRFORN-PROeSI 
. CDRREeTED  SAMPLE  FOR  PPD  ISEE  TRFORH-PROesi 
. CORREeTED  LINE  FOR  STN  (SEE  TRFORN-PROeSI 
. eORRECTEO  SAMPLE  FOR  STN  ISEE  TRFORM-PROOS) 

. ISEE  FORPROeSi 

. HNEMONieS  FOR  EXEC-8  OSFS  FAeUITr  STATUS  BITS 
. define  STRueTURE  OF  FILE  DEFINITION  REeORO 
. ISEE  FORPROeSI 

. MISOELLANEOUS  DEFINE  PROeEOURES 

. ASSEMBLER  MANIPULATION  OF  XQT  OPTION  BITS/LETTER 
. standard  OHARAeTER  BUFFER  *1  ISEE  esOEF-PROei 
. STANDARD  CHARAeTER  BUFFER  *Z  ISEE  EBDEF-PROei 
. standard  OHARAeTER  BUFFER  *3  ISEE  eBOEF-PROei 
. STANDARD  eHARACTER  BUFFER  ISEE  OBOEF'PROet 
. I/O  ADDRESS  OF  BUFFER  ISEE  KONIO-PROO) 

. I/O  abnormal  frame  eOUNT  ISEE  KOHIO-PROet 
. I/O  STATUS  eOOE  MNEMONIC  ISEE  KOHtO-PROCi 
. I/O  FUNCTION  ISEE  KOHIO-PROCI 

. I/O  NUMBER  OF  UOS  TRANSMITTED  ISEE  KONIO-PROCI 
. I/O  SECTOR  IN  FILE  ISEE  KOHIO-PROCI 
. I/O  BUFFER  SIZE  ISEE  KOHIO-PROCI 
. I/O  STATUS  NUMBER  ISEE  KOMIO-PROCI 
. I/O  UAIT  SPEC  ISEE  KOHIO-PROCI 
. I/O  HORO  IN  FILE  ISEE  KOHIO-PROCI 
. ALTERNATE  PRINT  FILE  COUNTERS  ISEE  ALTPRT-PROCSl 
. OCTECTtON  FILE  UINOOU  PACKETS  ISEE  NEROET-PROCSl 
. aojustment/reoistration  parahs  isee  NEROET-PROCS 
. fortran  manipulation  of  asvEhbler  i/o  packets 
. CONHON  IRRAOIANCE  TRANSFOHNAT I ON  coefficients 
. CONHON  INPUT  HINOOH  PACKETS  ISEE  Ul NOOU-PROCSI 
. COMMON  CLASSIFICATION  INFO  ISEE  NEROET-PROCSl 
. CONHON  COLOR  SCREEN  PARAMETERS 
. LOO  file  I/O  PKTS.  POINTERS  ISEE  XQTLOO-PROCSI 
. CONHON  I/O  PACKET/POINTERS  FOR  UNIT  3 
. COMMON  BUFFER.  POINTERS.  FLAOS  FOR  UNIT  S 
. CONHON  I/O  PKTS  FOR  DETECTION  FILES  lUNITS  BI-ZN 
. COMMON  ERTS  SCENE  PARAMETERS  ISEE  NEROET-PROCSl 
. CONHON  CONTROL  NETUORK  COORDINATES 
. CONHON  OUTPUT  UINOOU  PACKETS  ISEE  UINOOU-PROCSI 
. COMMON  spectral  LIMITS 
. COMMON  SYMBOL  TABLE 
. eONNON  MULTI-PURPOSE  TABLE 

. COMMON  PROORAH  EXECUTION  INFO  ISEE  XQTLOO-PROCSI 
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•MT.tc  OAN.Konxar>*raoc 
•0Mr.00  O*n.l.STLUt>0*OC 
tpnr.te  OAN.HAX0vr*0«oc 
•00r,tc  OAN.NAXtCC'MOC 

•rar.te  oah.haxinT'^moc 
•00r.0c  OAH.NC*oer<PNocs 
•NtO.N  .NITA* 

•N0O.N  .NimOT 

•MT.tC  OAH.NULCMR-rAOe 

•Pxr.tc  OAn.NULCsr-*Roc 

•MIT.te  OAn.^lCOCfoPMOC 
•H0O.N  .P0OI.HC 

mo.N  .ppoc<»c 

•MT.sc  OAn.pRcoer-pfioc 
AMf.SC  OAH.AI»OOer>P(tOC 
arar.sc  OAn.pxeoer>PRoc 

•HSO.N  .STHN*»C 

•NSo.N  .srncHc 

«H80.N  .SYSXQT 

8PRr.SC  OAH.rRFORM-PROCS 
SN80.N  .HINOCP 

8PRT.3C  OAH.HtNOOU-PROCS 
•H80.N  .xoroer 

8PRT.8C  DAN.XQTLOO-PROCS 


. CORNON  PROORAN  CXCCUttOR  tRPO  (AtfN  ROUTINCt  ONLY 
. RAHCLlSr  specs  FOR  UNIT  S IRCOtSTRATN  PARAHCrCRS 

. ocPtNC  HAxtMun  Bvre  valuc 

. OCPINC  HAXINUR  iNreoCR-CHAR-CQUtV  VALUE 
. OCPINC  NAXIHUH  INTCOCR  VALUE 
. eOHMON/HCAOCR  BLOCKS  POR  CRTS  OCTCCriON  PILES 
. (SEC  ALrPRT-PROCSi 
. tSCC  ALrPRT>PROCS> 

. KPINC  NULL  CNARACrCR 
. OCPINC  NULL  CHARACTER  STRINO 
. OCPINC  PICTAB  PARAnETERS 
. PPO  LINE  POR  CORAECreO  (SEC  rRPORN-PROCSI 
. PPO  COLUNN  POR  CORRECTED  (SEE  TRPORN-PROCSt 
. OCPINE  PRTCLASS  PARANETERS 
. OCPINE  PRTOET  parameters 
. OCPINE  STRUCTURE  OP  PIXEL  BUPPER 
. STM  NORTHINO  POR  CORRECTED  (SEE  TRPORH>PROCS> 

. STN  EASTINO  POR  CORRECTEO  (SEE  TRPORH-PROCSI 
. (SEE  XQTLOO-PROCS) 

. OCPINE  COORDINATE  TRANSPORNAT I ONS 
. (SEC  HINOOH-PROCSi 
. CONNON/OCPINE  POR  MINOOH  PACKETS 
. (SEC  XOTLOO-PROCSI 

. CONNON  BLOCKS  POR  aXQT  A OAN  LOO  NANI  PUL AT  I ON 
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COHHON/ KONALT/ 

1 RONALril). 

2 NCOPV. 

S NIT.NITHAX. 

S NITLO.NITHI. 

7 NITSLO.NITSHI 
OATA  KONALTUt/' 


C« 

CNO 


• ALTCRNATC  PRINT  TtLC  POINTCRS: 

• NANC  or  COHHON  BLOCK 

• NUHBCR  or  copies  or  cach  rue  to  print 

a PRCSCNT.  HAXIHUH  HAP  UNIT  (NIT  I IN  THC  CURRCNT  HAP 
a LON.  HIGH  NAP  UNIT  (NITI  IN  THC  CURRCNT  HAP  SCCTION 
a COUNTCRS  rOR  allocating  hap  units  (NITS)  TO  I/O  UNITS 

KOHALT’/ 


NITAB  PROC 

C* 

C«  TNC  OCriNC  PROCeOURC  in  this  PORTRAN  PROC  CONVCRTS  INTCRNAL  UNIT  NUHBCRS 

C«  rOR  ALTCRNATC  PRINT  riLCS  INTO  ACTUAL  NTABS  UNIT  NUHBCRS  IN  THC  RANOC 

C«  rRON  to  TO  MO»HALTH-ll.  NIT  HUST  LIC  IN  THC  INTCRVAL  PROH  NITLO  TO  NITHI 

C«  CVCRY  TIHC  NITLO  AND  NITHI  ARC  CHANOCO  THC  NITROT  PROC  HUST  BC  INCLUOCO 

C«  TO  ROTATC  THC  PAIRINO  OP  INTCRNAL  UNIT  NUHBCRS  HI TH  NTABS  NUHBCRS. 

OCriNC  NTAB(NIT>>10*HOO« (NIT*NlTSLOI .HALTH) 

C* 

CNO 


Ml  TROT  PROC 
C 

c* 

C*  this  PORTRAN  PROC  ROTATCS  THC  PAIRINO  or  INTCRNAL  UNIT  NUHBCRS  WITH 

C«  ALTCRNATC  PRINT  PILCS  COHPUTCO  BY  THC  NITaB  PROC.  ThC  NITROT  PROC 

C*  RUST  BC  INCLUOCO  CACH  TInC  NITLO  ANO  NITHI  ARC  CHANOCO.  NITLO  AND 
e«  NITHI  rust  both  LIC  IN  THC  INTCRVAL  PROH  0 TO  B.  ANO  THCIR  RaNOC 

e*  INI  TNI -NITLO* I ) HUST  NOT  BC  ORCATCR  THAN  THC  HAXIHUH  NUHBCR  OP  ALTCRNATC 

C«  PRINT  PILCS  IHALTNl. 

e* 
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ASNOCr  RROC 

e..... ....... 

c* 

c*  This  oeriNC  PRoceouRC  makes  the  uni  vac  ttoo  assembler  partial  horo 
e*  MNEMONICS  AVAILABLE  TO  A FORTRAN  V PROGRAM. 

C« 

OEFINE  ASMS! (UORO)-FLO(OO.S.UOROI 
OEF I NE  ASMS8 ( HORO I >FL  0 C 06 . 6 . WORD  I 
OEPINE  ASMS3(U0R0)*rL0t  ta.S.UOROl 
OCriNE  ASMS<»(HOROI*rLOna.8.HORO) 

OEPINE  ASMS5  ( HORO  I -PL  0 1 2*»  . 6 . HORO  > 

OEPINE  ASMS8(HOROi-PLO<30.6.UORO) 

C« 

OEPINE  ASMTI IHOROI-PLOCOO. la.HOROt 
OEPINE  ASMT8 f HORO ) -PL 0 1 1 8 . 1 8 . HORO I 
OEPINE  ASMT3(H0R0)-PL0(8*».  I8.H0R01 

C* 

OEPINE  ASMHI (HOROi-FLOtOO. lO.HOROt 
OEPINE  ASMH8IHORO>-PLOne.  IB.UORO) 

C* 
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e c9Kr-M0c  0 ocriNC  charactcii  ourrcn  otnucturc  a otanoaao  chaa  ourrent 
C MI9T0RV 

C C N 9CNL0SSCR  LCC 

e nctnoo 

e cooer  ocmncs  tnc  structurc  or  charactcr  eurrcRs  usco  ev  the  ce<». 
e scRics  or  tRANsroRns  ro  suprort  pascal 'LiKe  strcan  i/o. 

c iceurt  ...  icsurs  allocate  locate  character  ourrcRist  within 

C EACH  SEPARATELY-COHPtLEO  NOOULE  IN  WHICH  THEY  ARC  INCLUDED. 

C EXCEPTIONS 

C 
C 

c 

coocr 

c 

c« 


I.  APTCR  ANY  CHANOC  TO  THE  COOC  IN  THIS  PROC.  ALL  PROORANS.  SUOROUTINCS. 
AND  rUNCTIONS  HUST  OC  RC*COHPILCO. 

8.  THE  INDIVIDUAL  CHARACTCR  SUrrCR  ARRAYS  HUST  ALWAYS  HAVE  OIMCNSION 
SPECiriCATIONS  EXACTLY  EQUAL  TO  THE  VALUE  Or  THE  PARAHETER  CSSZIN. 
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PARAHETER  COSZIN«fS  • 
PARAHETER  C0NUL*C0SZIN>8 
PARAHETER  CSLOC-COSZIN-I 
PARAHETER  CBCN0-C8SZI N<0 


CHARACTCR  BUrrCR  SIZE  (INCL  POINTCRSI  IN  INTCOCRS 
a HO  IN  CB  containing  NULCST 
a wo  IN  CB  coNTAiNiNO  Loc  or  last  actual  chr 
a HO  IN  CB  CONTAININO  LOC  OP  LAST  POSSISLC  CHR 


e* 
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ICBuri  PROC 
c 

INTCOCR  iCBuriicsi  a stanoaro  char  BurrcR  or  size  cbszin 

CNO 


I court  PROC 
C— — — 

INTCOCR  iCBurcttsi  a stanoaro  char  BurrcR  or  size  cbszin 

CNO 
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iNTcocR  iciunosi  a trANOARO  char  rufpcr  or  size  crszin 

CNO 


ICRUr*  RROC 

c 

INTCeCR  tCSUFHfCSI  A STANOARO  CNAR  RUrPCR  OP  SIZC  CRSZIN 

CNO 


I COUPS  PROC 

C 

INTCOCR  ICBUPSieSt  S SrANOARO  CHAR  SUPPER  OF  SIZE  CRSZIN 
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ACOIT  RROC 
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e« 


TMC  OCriNC  RROCeOURCt  IN  THIS  rORTRAN  RROC  CXTRACT  COHNONLV  USED  STATUS 
SITS  rROH  TNC  rACILITY  RCQUCST  (CSrSt  STATUS  UORO. 


ocriNC  RCjecTCNt-rkoi cooooo) . t .ni 

OCFINC  ACCCRTCNI-RCjeCTlCORPLINt I 

OCPINC  ALRCOY(NI«rLO( C 3S>33> . I .NI 
OCriNC  NCHLYINI-ALRCOYICONPLIN) I 
OCPINC  PRVCATINI«PLO< ( 39-381 . 1 .NI 
OCPINC  N0TCAT(NI>PL0I (39-811 . t.NI 
OCPINC  ROLOUT(NI*PLO(( 39-191 .t.NI 
OCPINC  MAITnO(NI>PLOI (39-181 .I.NI 
OCPINC  CXCLUS(NI >PLO( ( 39-161 .t.NI 
OCPINC  OTHRUN(NI*PLO( (39-191 .I.NI 


I RCJCCTCO 
a ACCCPTCO 

a ALRCAOY  ASSIONCO/PRCeO 
a NCULV  ASSIONCO/PRCCO 
a PRCVIOUSLV  CATALOOCO 
a NOT  CATALOOCO 
a ROLLCO  OUT 
a WAIT  I NO  ON  PACILITY 
a IN  CXCLUSIVC  use  by  ANOTHCR  run 
a ASSIONCO  TO  another  run 
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rtocr-Moc  t Krmc  smueruRC  or  rue  ocriNirioN  rccoro 
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e A NCLNKC  LCC  IO/tt/79  RCQUIRCNCNTt 

e A NCLHKC  LCC  ll/0«/70  OCSION  A COOC 


tocr  Aftoc 


• 

AANAHCTCR 

C*  NNCnONiC  NCANINO 

C*  

c« 

A rioeQT>t.  • eauiPNCNr  rYPe<  'rAPev*oiSK’/*oTHR'  tuNSUPPORTCo 

c«  • oevicei / 'NUL */ -CRR*  (pilc  nanc  syntax  crrori 

A PI0CQC*8.  A CQUIPHCNT  COOC  HNCHONIC 
A riOTRK>3.  A NUNOCR  OP  TRACKSt  • 

A riOrPt-<*.  A PLUX  CHANOet  PCR  INCH!  *ROO‘/*9Se'/’000’/‘l800*/ 
C*  A •SfOOVT??* 

A PIOOPH-9.  A eUPPCR  PORHATi  * BST * / • BA* / ‘CST * / 'CRR* 

A PI0CRL*6.  A CURRCNT  RCCL  NUNBCRt  *XXXXXX* 

A PI0NRL>7.  A NCXr  RCCL  NUNBCRt  'XXXXXX* 

A Pt0N08>B  A NOISe  CONSTANT  (iNTCOCRt 
C« 

C* 

C«  NOTCS 

c* 

c* 

e«  I.  POR  COUIPNCNT  COOC  NNCNONIC  OCPINITIONS.  SCC  UNIVAC 

e<  CXCC  B HAROUARC/BOPThARC  SUNHARY  POR  AASO  SUBPICLO  TYPC. 

C* 

C*  i.  IP  Piocor  <>  *TAPC*.  PIOTRK.  PIOPPI.  PIOCRL.  PIONRL. 

e«  riOBPN.  ANO  PIONOB  ARC  NOT  APPLICABLC  ANO  ARC  BLANK 

e«  (ZCRO  POR  riONOsi 

C« 

C«  3.  PtOOrN  BPCCIPICS  tnc  pornat  op  tnc  oata  in  thc  buppcr. 

C* 

CNO 


0*tt 
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0101 rt  oRoe 

e«  (CNOi 

e«  TNC  OCrtNC  MOCCOUNCO  in  TNIS  rORTNAN  RROe  CXTRACr  TNC  AOtOLUre 

C«  VALUC  or  TNC  NARCO  OCCINAL  OIOIT  fROH  A OINARV  INTCOCR  ANO  RCTURN 

c«  rue  olotr  At  a riciOATA  charactcr.  icrr-jutririco  in  a oLANx-riLLCo 

e«  HORO. 

c« 

ocriNC  jONCtm  > uotii'io  •ti/to  n •t««io«*o 

ocriNC  jrcNtm  •cuotn-ioo  •m/ioo  ii/to  <*o«*so»*o 

ocriNC  jNUNtm  •(uotii-iooo  «ti/iooo  n/ioo  >«o««xo**o 

ocriNC  jrMOutm«iiAOtii-ioooo*(i/iooooii/ioooMo««3o**o 

c* 

CNO 


fLoer  RRoc 

C*  (C  H tCNLOttCRi 

c«  rne  oeriNC  proccourcs  in  this  portran  proc  NANiPULAre  t-air  charactcrs. 

c*  o-oir  ovres.  and  sa^air  iioni  uoros.  packed  in  an  array  or  so-oir  cunivaci 

C«  MOROt.  ALL  CHARACTPRS/OYrCS/UOROt  ARE  NURBEREO  PROR  THE  LEPT  OP  THE 

C*  tPECIPlEO  ARRAY.  STaRTINO  WITH  I.  ALL  CHARACrERS/BYTEt/UOROS  ARE  HANOLEO 

e«  At  UNtlONEO  BINARY.  RIOHT-ALIOKEO. 

OIRENtlON  UNIRAYItt  • OURNY  ARRAY  POR  PORRAL  AROURENT 

OCPINE  ELRENr(UNIRAY.tUO>«UNIRAY(tUBI  A PIX  POR  CORPILER  BUO 

C« 

c« 

C«  TMIt  OEPINE  PROCEDURE  STORES^EXTRACTS  CHARACTER  NURBER  CNR  INTO/PRON  THE 
C«  ARRAY  SPECIPIEO.  RANOC:  0<CNR 

OEPINE  CHARIUNIRAY.CNRI 
t •PL0<t*R00(CNR»t.6> . 

t a. 

t ELNENTIUNlRAY.tCNR^BI/BII 

C* 

C« 

C«  TNIt  OEPINE  PROCEDURE  EXTRACTt  lONLYI  THE  PIELO  tTARTINO  AT  CHARACTER 

C«  NUHOER  CSTART  ANO  CMIOE  CHARACTERt  IN  tIXE  PROR  THE  ARRAY  tPECIPIEO. 

e«  RANOCi  OxetTART.  0<CHI0E<7 

e OCPINE  CHRPLOCUNIRAY.CtTART.CNIOEl  A NOT  YET  INPLCRENTEO 

C* 

C« 


C«  TNIt  OEPINE  PROCEDURE  EXTRACTt  lONLY*  THE  PIELO  tTARTINO  AT  BYTE  NUROER 

e«  OtTART  ANO  OUlOC  OYTEt  IN  tIEE  PROR  THE  ARRAY  tPECIPIEO. 

e«  RANOEt  OTttTART.  0<BMI0E<B 

C«  NOTEt  ALtO  AVAILABLE  At  EXTERNAL  PUNCTION 

OCPINE  OVTPLOlUNlRAY.OtTART.OHlOEl 
A •rL0<N00(0«0trARr*IB.SB». 
t NINOttt*NOO(0*BtTARr*CB  XOi .B*OHIOEi . 

t CLNCNriUNIRAV.(0*BtrARr»tOI/XOI I 

t •C*«IO«OHIO:>NlNQf XO>NOO<0«OtrART»EO.XB> .0*BMI0EH 
t *PLo<a. 

t 0«OHlOC-RINO(XO>NOOIO*OtTARr*fO.SOl .B*0NI0EI. 

t CLHCNr(UNIRAV.(O«B0rARr*»0l/S6*in 

B «NINOIO«ONlOE-NlNO(SO-'ROO<0*OtTART*OO.SOi.O*BNlOCI.I> 

e* 


O'lf 


DM  MCKAM  AM^NOtS  0 
NACmt 


•M 


C« 

c«  TNit  ocriNC  raoccouNC  cxrftACrt  iohlti  it-iir  mono  NunwR  mnr  rNon  tnc 
e«  ARHAV  tRcetrtco. 

e«  Norci  ALSO  AyAUAtLC  At  CXTCRNAL  rUNCMON 

OCriNC  teNMROfUNIRAV.HNNI 
A •§vrrLOIUNlRAY.MNII««-3.«l 

e« 

CNO 


( 


! 


0*1 1 


e*N  ^ACKAOC  AMCNDIX  0 
NACMt 


•CTO^r^APMOC 


ocro»r*AMoe  a ocr  Mor  option  kcrrcot  rooN  oirt  in  rcoiotcn  ao 


NItrONV 


c 

N 

tCNkOttCN 

Lce 

IUOI/70  ORIOINAL  eooc 

c 

• 

N 

tCNLOOtCN 

Lce 

10/10/70  UPORAOC  OOeUNCNTATION 

ootopt* 

, «••••• 

PNOe 

. eONVCRT 

OPT  01  TO  IN  AO  INTO  OPT  LCTTCRO  IN  A0.A1.A<* 

iNir 

LA 

AO.OIANKO 

LA 

AS.OLANKO 

• 

LA 

AA.OLANKO 

• 

LA 

AI.0IC02 

• 

riRor  OPTION  LcrrtR  lo  *2* 

J 

NCUOir 

OLANKS 

• t 

0ICQ2 

*2AAMI* 

tICQOI 

01 .00.00.8 

0.00.00 

SAVNCO 

NCS 

1 

NCHOir 

02 

AO 

• 

CLCAR  LAOr  OPTION  01 T 

OSL 

AO.  1 

* 

ONIPT  NCH  OPTION  01 T InTQ  a6 

JX 

AO.NCWLTR 

JUNP  ir  OPTION  01 T not  OCT 

OOL 

AO.e 

ONIPT  OPTION 

LiSL 

Al.O 

LCTTCRO  (X  WOROOt 

OOL 

At.O 

ONC  LCTTCR  TO  RIONT 

OA 

AO.OAVRCO 

• 

PUT  CURRCNT  OPTION  LCTTCR 

OR 

AI.OAVRCO 

• 

INTO  01  OP  AO 

NOHITR 

AN 

Al.OICOOl 

• 

OCCRCNCNT  OPTION  LCTTCR 

JN2 

AI.NCMOir 

• 

RCPCAT  POR  NCXT  OPTION  OIT.  IP  ANY 

CNO 


0-IN 


OAN  MCttAPC  APMNOtX  Q 
HACMt 


Komo-moe 

Ml 


e MNio-^MC  « ronriiAM  NANiMCArtoN  or  CRce*o  aokmlcii  i/o  OACKcrt 
e NitrooT 

(.  c N tCNtettCR  kce  oo^m/ta  omoiNAi  coot  m/  comnon  trAruo  ntot 
e e A NCLNKC  LCe  AOO  NNClieNlC  tTArot  COOCt  A OCL  NOOt 

KOniO  RROC 

c* 


INTCOCR  lONCNOIItl/’ 

•cor’. 

•cor*. 

•cor*.’  ’. 

*cor’.’  ’. 

e« 

I/O  CRROR  cooc  00 

01 

oc 

os  ON 

08  08  07 

1 ’Cor* 

.’RAOR*. 

•COOT*. 

‘OAor*/ 

c* 

10 

It 

It 

IS 

c« 

a 

e«  troRC  I/O  AROUNCNTt  IN  RACKCTi 

INTCOCR  RKrill  a OUNHT  RACKS T 

ocriNC  lotizccRKriafiofoo.to.RKrioii  a ourrco  size 
ocriNC  iOAOORCRKri«rt.oiio.io.RKri8ii  a ourrcR  aoorcso 
ocriNC  iOHAir(RKTi«n.o(OO.oo.RKr(oii  a nocc  to  wait  • rix  roN  ckcc  rr  ouo 
ocriNC  losccriRKriaRKriAi  a riLC<RCLArivc  tccroR  adorcss  (rAtrRANO' 

ocriNC  iouoRO<rKn»RKrioi  a riLC-RCLATivr  mono  aoorcs*  ioruni 

ocriNC  ioruNe(RKri*RKr(i»t  a ruNcrioN  inuor  oc  scr  ocroRC  cacn  call* 

c* 

e«  cxrRAcr  iNroRNATioN  on  cohrlctco  i/o  troh  rackcti 


c« 

CNO 


ocriNC  iotrAr(RKri«ioruNCirKn/c«*io  a cxce>o  rrre  i ttATuf  cooc 

ocriNC  lOArcrirxnarLOMC.oo.rKrcAn  a aonornal  rRAHC  count  itarci 

ocriNC  lONHOSiRKTi-rLOito.io.RKrtNi  I a NURiCR  or  HOROS  TRANfmrreo 

OCriNC  CRRXXXIKI>IONCHOIK*l I a DON’T  RCrCRCNCC  CXRLICITLY 

OCriNC  IOCOOC(RKTt»CRRXXXfNlNOI IOrUNC(RKTI/C**80. 1 1 1 1 » TRANfLATION 

or  CXCC'O  Trrc  i d/ei  otatus  cooct  to  nncnonicsi 

* - NORNAL  eONRLCriON 

*cor*  - CNO  or  rue  or  oursioc  or  rue 
*OAOR*  - RAO  I/O  tTATUt  OT  RCCORO 
*OAor*  - OAO  I/O  OTATut  or  rue 
’LOOT’  - LOOT  rofirioN 


O'ts 


OMI  PACKAW  APPCNOIX  0 
NACIIOt 


KOfUAT-PMC 

HI 


RONtRr*IHIOe  I eomwi  tMHAOUIieC  TRANtrOANATtON  CMPriCtCNTt 


NltrORT 


C N tCNLOttCR  LCC  ORIOtNAl.  COM  IN  CNTt-PROCt 

C N tCNLOnCR  LCC  It/l8/7f  MPARATC  INTO  RONIRT-MOC 


lONIRT  NROC 


eONNON/KONINr/  • IRRAOUNCC  TRANtrONNAr ION  rVAC/NtlONTf/OAlNt/OI AfCSi 
1 KONIRTIll.  A NANC  Of  CONHON  OLOCK 

t IRtrVN.  • rNANtfONNATtON  TvACi  *NAM* . ‘L I N* f CAN  I . 'POL  * t ARI 

s Nriuono.d.  • lincan  rNANtr  uctONTt  is  nam  cnans.  c tNANSPONnco  cmansi 
S NriOANItl.  • LINCAN  TNANSf  OAlNt 

S LNThICIS.CI.  • LINCAN  NAOUNCC  TNANtC  MClONrCJ  OAlNt«C*«lt 
S LNrsifltl.  • LINCAN  NAOIANCC  TNANSP  •lAtC3*C*«tl 
V NNrOltfCl.  • NOLAN  NAOIANCC  TNANSf  OAlNf«t«MC 
t NNTfttHCl.  • NOLAN  NAOIANCC  TNANSf  tlASCS«C««CH 
I iNtMCtS.tl  • SNANNCNINO  flLTCN  COCff  ICICNTS*C«  •!« 

DATA  KONINTIII/'KONINT*/ 

C* 

CNO 


0-IS 


oonnonooonnnno 


NACIIOS 


>Kl 


I 


KONKt-^MOe 

091 


KOms>f>iioc  « eonnoN  color  ocrccn  OAOAnercRo 


NicroRY 


C N SCNLOOSCR  LCnOCO  OO/Cf/00  OftlOINAL  cooc 


HACHlNC-OCRCNOCNr  COOC 


I.  use  OP  010  TO  SHirr  by  onc  ascii  evre  .s  oicrArto  or  uni  vac  iioo 
iNTCRNAL  ovre  sroRAoe. 

0.  THC  VALUeS  OP  KSOPP  AND  KSON  ARP  THOSe  WHICH  CAUSC  THt  iNPOTON-lOO 

reRHiNAL  ro  switch  output  seTwetN  its  own  oaw  alphanuncric  screcn 
AND  the  ISC  INTeCOLOR  CRT  SCRCCN  CONNCCTEO  TO  ITS  PRINTER  PORT. 

3.  the  value  op  KSCLER  is  that  which  clears  the  INTECOLOR  SCREEN  ANO  SETS 
THE  POREOROUNO  COLOR  TO  WHITE. 

<».  THE  KSKIKE  TABLE  CONVERTS  OAN  INTEOER-COLOR-EQUI VALENTS  C IKE 'SI  TO 

THE  COLOR  CONTROL  COOES  (KIKE'SI  USED  BY  THE  INTECOLOR.  NOTE  THAT  THE 
INTECOLOR  DOES  NOT  HAVE  COLORS  CORRESPONOINO  To  OOO-NUHBEREO  IKE'S. 
HENCE  EACH  INTECOLOR  CODE  IS  ASSIONEO  TO  TWO  IKE'S. 


KOHKS  PROC 
C 


C« 


C 

C 


CONHON/KONKS/ 

I KONKSm.  a 

0 KSLINE.  a 

3 KSCOLN.  a 

•»  KSKIKE  (I  SI  a 

data  KOHKSI I 1/ 'KONKS'/ 
DATA  KSLINE/VS/ 

DATA  KSCOLN/79/ 


a COLOR  SCREEN  PARAMETERS: 

NAME  OP  COMMON  BLOCK 
COLOR  SCREEN  NUMBER  OP  LINES 
COLOR  SCREEN  NUMBER  OP  COLUMNS 
COLOR  SCREEN  COOES  ASSIONEO  TO  IKE’ 


DATA  KSKIKE/ 


KIKE 

COLOR 

IKE 

COLOR 

00. 

a 

BLUE 

00 

BLUE 

fO. 

a 

BLUE 

01 

CYAN'OLUe 

to. 

a 

CYAN 

00 

CYAN 

00. 

a 

CYAN 

03 

AQU't 

IB. 

a 

OREEN 

OV 

OREEN 

to. 

OREEN 

09 

YELLOW-OREEN 

to. 

a 

YELLOW 

00 

YELLOW 

to. 

a 

YELLOW 

07 

ORANOE 

17. 

a 

REO 

00 

REO 

17. 

a 

RED 

00 

REO'HAOENTA 

01. 

a 

NAOENTA 

to 

NAOENTA 

Cl. 

a 

NAOENTA 

II 

CUNASSIONCOI 

10. 

a 

BLACK 

10 

BLACK 

OAN  »ACKA«C  AWNOIX  Q 
NACROt 


KONKt<^liee 

00* 


A It.  • RLACK 

A t3/  A HHtrC 

c 

RARANCrCR  KSOPr 

e ASCI  1 1 

PARANCrCII  KAON 

e ASCI  It 

PARAHCrCR  ASCLCR 

e ASCI  1 1 

c« 

CNO 


IS  fUNAttlONCOi 

!•»  UNI  re 

• 0<7«SIR  * 110 
<CSC>  ♦ LONCRCASC 

> OOT'SIO  * 070 

<CSC>  * URRCRCASC 

• OI««SIR  * 003 
<rr>  • CTRL'U 


A COLOR  SCRCeu  OPP 

•M* 

A COLOR  SCRCeu  ON 

•M* 

A CLCAR  SCRCCN  A COLOR*HMire 


0*10 


«■ 


OAN  ^ACKAOC  AMCNOtX  Q 
NACMt 


K0NLU3-IHI0C 

Ml 


KONLUS-MOC  • eONNON  I/O  MCKCT/OOINTCHS  rOM  UNIT  s 


NItTOIIY 


C N tCHLOtSCII 
C N SCNLOMCK 
HCLNKC/rONMINS 
C H SCNLOfSCR 


LCC  tt/IV/YS 
LCC  lt/0l/7S 
LCC  IO/tt/70 

Lcnsco  00/ 00 /to 


ORIOINAL  eooc  IN  rORMOCS 
SCRARATC  INTO  lO-RROCS 
SRLir  into  K0NLU3-RR0C  A RCOROANI ZC 
RCRLACe  LU3I00  UITN  LU3LRS 


:0NLU3  RROC 


RARANCTCR  V3NAX  - 5 0 NAXIHUH  • OF  TARE  VOLUNES  SUPPORTED 

C* 


C* 


CONNON/KORLU3/ 
• LU3LRS. 
i LUXPKTfO). 

0 Lusrionoi . 

0 LU38U. 

0 LU3CBR. 

0 LU3N8R. 

1 LU3UIB.LU38IB 

3 LU38FN. 


A I/O  AND  UNPACKING  DATA  FOR  NSS/RBV  DATA  (UNIT  3> : 
• LENGTH  OF  DISK  RECORD  (|N  UNI  VAC  SECTORS! 

0 I/O  PACKET 

a FILE  ID  INFO  IN  FIOEF  FORHAT 
a NUHBER  OF  PHYSICAL  TAPE  BLOCKS  PER  SCAN  LINE 
a NUMBER  OF  CONSECUTIVE  BAD  REC  (INITIALIZE  TO  01 
a MAX  I HUN  NUMBER  OF  *BAOR*  BEFORE  ' BAOR ' • ’ BAOF * 

. a NUHBER  OF  HOROS. BYTES  (EXCL  PAOOINOI  PER  PHYSICAL 

Tape  block 

a BUFFER  FORMAT: 


C* 

c« 

c* 

c« 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c« 

c* 

c* 

c« 

c« 

c* 

c« 

c* 

c* 

e* 

c* 

c« 

e* 

e* 


’BST*  - internal  byte  STRING 
•SB*  - 8-BIT  BYTE  STRING 
*NUL'  - NO  BYTES 

ANYThINO  else  - UNSUPPORTED  BYTE  FORMAf 
•»  LU38EQ(0I.  a (II  DATA  SEQUENCE  . (01  VERSION: 

*NUL'  - NO  SEQUENCE 

*0*  - 1970 

*BIP*  - BAND  INTERLEAVED  BY  PIXEL  PAIR 

*0’  - •*  CHANNEL 
*1’  - 9 CHANNEL 

*BIL*  - BAND  INTERLEAVED  BY  LINE 

•0*  - 1979 

*BSQ*  - BAND  sequential 

•0*  - 1979 

‘09K*  • RANDOM  ON  DISK 

•0*  - I97B 

8 LUSREF(0I.  am  RECORD  FORMAT  . (01  VERSION 
’NUL*  • NO  RECORD 

•0*  - 1978 

*AN*  - MSS  UNCORRECTEO  FROM  NOP 

•0*  - 1978 

*PN*  - MSB  FULLY  CORRECTED  FROM  MOP 

•0*  - IB7B 

*AR*  - RBV  UNCORRECTEO  FROM  NOP 

•0*  - 1979 

*PR*  - RBV  FULLY  CORRECTED  FROM  HOP 

•0*  - IB7B 

*ERT*  - MSS  UNCORRECTEO  (ORIOINAL  CRTS  FORNATI 


1 


KONLUS*MIOe 

O0t 


NACROt 


C* 


C* 

C« 

C* 

C* 

CNO 


• 

0 

A 

A 


•0*  - l«7t 
•I*  - JULY  l«77 
*C*  - JAN  t97t 


*NXt*  - MNOCr 

•0*  - 1979 

LU3V0L.LUSVNI . A CUNRCNT.NlOHCAr  VOLUHC  NUN8CR  (0  tr  NONCI 
L •3NCL(V3NAX) . A RCCL  lOCNTtriCR  FOR  CA  VOL  (9  CHAR.9LANK  If  UNOCriNCOt 
LJ3RL0(V3HAX>.LU3RNI(V3NAXl.  A LO.Ml  930090  F09  CA  VOL  fO  IF  UNOCriNCOI 
LU3L9r.LU399F  A LINC.XCC090  NUN939  CUORCNTLY  IN  9UrrC9 


9A9ANCYC9  SZSOUF  • 900  A SIZE  IN  H0909  OF  919  NSS9UF  9UFFC9  UNIT  3 
9ARAHerC9  r$9T0L  -19  A TA9C  SHA9  RCC090  TOLCRANCe 

(DON’T  SNAP  TO  PREVIOUS  VOLUNE  TO  READ 
RECORO  <-  rSRTOL  RECORDS  FROM  OOTTOH  OF 
PREVIOUS  VOLUME) 


OAN  MCKAOC  APKNOIX  Q 
HACIIOt 


KONLtfS-PIlOe 

001 


e KOHLUS-PROC  0 CONNON  I/O  OUrPCRS/POtNTCRS  POR  rRCC-PORHAT  INPUT  (UNIT  8> 


e NIOTORV 

e C N SCNLOtSCR  LCC  10/07/73  ORIOINAL  COOC  IN  PORPROCS 

e C N tCNkOSSCR  LCC  IO/OI/7S  SCPARATC  INTO  lO-PROCS 

e C N tCNLOSSCR  LCC  01/09/70  SPLIT  INTO  KOHLUS-PROC  A RCOROANICC 

KOHL US  PROC 
C« 

COHNON/KONLUS/  • I/O  OUPPCRS/POINTCRS  POR  PRCC^PORHAT  INPUT  (UNIT  Sit 
I LUSSPN.  a HAXIHUN  ftCNAlNINO  LlNCS  TO  SPAN 

0 LU9RC0.  a RCQUIRCO  PICLO  SUITCHt  O-OPTIONAL.  i•ReOUlRCO 

3 LUSIOS.  a I/O  STATUS:  ’ * . *PS* . ‘COA* . *COP* . ’OPL  ’ 

•»  LUSINOfOOI.  a iHAOe  BUPPCR  (NAX  100  CHARACTERS! 

9 LUSLLHOI  a iHAOe  POINTERS: 

OCPINC  LUSL0C«LUSLLH( 1 1 a LOCATION  OP  PREVIOUS/CURRENT  DATA  PIELO 
OEPINE  LUSLEN-LUSLLHIOl  a LENGTH  OP  PREVIOUS/CURRENT  DATA  PIELO 
OEPINE  LUSHAX*LUSLLH(3I  a LENGTH  OP  LUSINO  ( •(•I)  IP  END  I 
INTEOER  KOHLUSm 


( 


equivalence  (LUSSPN.KOHLUSI n I 

c« 

ENO 


0-01 


WOUOUUOUUUUU 


OAN  PACKAOC  Af>KNOIX  Q 

NAemt 


ROML«N*MIOe 

001 


KONLtN-MOe  0 eOHNON  I/O  PACKCTO  rOR  OCrCCriOM  riLCS  (UNITS  01  THRU  ONI 


Ml  STORY 


e N OCNLOSSCR  LCC  10/07/73  ORIOINAL  COOC  IN  rORRROCS 

C N SCHLOSSCR  LCC  IO/OI/7B  SCPARATC  INTO  I0-PR0C8 

e H SCHLOSSCR  LCC  10/00/70  SCPARATC  INTO  KONLON'PROC 

C H SCHLOSSCR  LCC  05/10/00  NO  DATA  INITIALIZATION  OF  UNIT  NAHCS 


KOHLON  PROC 
C 

c« 

CONHON/ KOHLON/  • I/O  PACKCTS  FOR  OCTCCTION  FILCS  (UNITS  01  THRU  OHt: 

I LOIPKTfOI.  a I/O  PACKCr  FOR  BUFFCR  I OR  UNIT  01  (FILC  •OANOCT>n 

0 LOOPKTfSI.  a I/O  PACKCT  FOR  OUFFCR  0 OR  UNIT  00  (FILE  «OAnOET-OI 

3 L03PKT(8>.  a I/O  PACKET  FOR  SUFFER  3 OR  UNIT  03  (FILE  «0AH0ET-3i 

<*  L0*»PKT(6I  a I/O  PACKET  FOR  BUFFER  ■»  OR  UNIT  OH  (FILE  «OANOET-H) 

INTEOCR  L0NPKT(6.HI 

eOUl VALENCE  (LOIPKT( t I .LONPKT( I .1)1 

C* 

CNO 


Q-00 


I 

t 


PM  PACRAOC  APPCNOIX  Q 
HAOmt 


KONNCr«PROC 

OPt 


RomicT«raoe  a 


NItrMY 


C N SCHLOtSCR 
C H SCNLOSSCR 
C H SCHLOSSCA 


lONNCr  AAOC 


« 

COHNON/KONNCT/ 

I KOHNCrn  I . 
e NCTNi . 

3 NCTProSOl  . 

3 AOJNCT(3.3SOI  . 
3 CORNCT(8.3SO)  . 
3 oeONCT(8.350l  . 
3 srHNer(8.390) . 
3 CrOLIN.CroSAM. 
s croLAr.crdLON 
DATA  KONNCrm/ 


CONNON  CONTROL  NCTMORK  POINT  NUNOCRt  A COOROINATCS 


LCC 

03/S9/73 

LCC 

I0/I8/7S 

LCC 

IB/IS/7B 

ORieiNAL  cooe  IN  eOCF 
PUT  IN  LAOCLLCO  CONNON 
OCLCTC  RAUNCr  COOROINATCS 


• CONTROL  NCTUORK  OATAi 
• NANC  or  CONNON  BLOCK 

a HioHCST  Nooe  in  nct 

a POINT  NUNBCR 

a osrC'AOjusreo  scan  cooroi nates 
a CORRECTCO  SCAN  COOROINATCS  ( PROH  NOOCLI 
a ocooraphic  cooroinatcs  (OCorccsi 
a SCENE  transverse  MERCATOR  COOROINATCS  (NETRCS) 
a NETWORK  CENTROIO  (LINE.  SANPLO 
a NETWORK  CENTROIO  (LATITUOC.  LONOITUOEi 
‘KONNCT*/ 


C« 

CNO 


lACROt 


t 


KONtLN-MOe 

001 


KONOLN-MOe  0 CONNON  ORCCTRAt  L INI  TO 


NiOrORT 


C N OCHkOSSCR  Lce 

C N SCNLOOSCR  kCC 


00/0S/7S  ORIOINAk  COOC  IN  rORRROCS 

tf/tS/79  SCMRArC  INTO  KONSLN'RROC 


lONtLH  RROC 


CONNON/ K0N8LN/  • SNCCTNAL  LIHITSi 

A LlNVALUOe.O)  A 0 TO  107  FOR  LIHCHCOi.  tSI.  (•*>  NININUN  4 NAXINUN 

C* 

END 


0am  MACKAOff  AMMNOU  Q 
NAeROt 


RONtYN-MROe 

•01 


KONtYH-RROe  • COMMON  SYNROL  TARLC 


NttrORY 


C N OCNLOttCR 
C N tCNLOftCR 
C H SCNLOStCR 
C N SCNLOOSCR 


LCC  0Y/07/7Y 
LCC  OC/Ot/70 
LCC  10/00/79 
LCNSeo  09/10/00 


ORIOINAL  eOOC  IN  rORRROCO 
tCRARATC  INTO  KONSYH-RROC 
RCRLACC  KOTtIT  WITH  NCISVN 
NOlNrO/NOOATA  I'l'C  A l-K-C 


HACMINt'OCRCNOCNr  CODO 


AOtUNCS  AT  LCASr  6 CHARACTCRS  RCR  KSYN  CLCNCNr. 
ASSUNCS  UNI  VAC  ItOO  rtCLOATA  CHARACTCR  SCT. 


KONOYN  PROC 


PARANCTCR  ISVHLO-O 
PARANCrCR  ltYHHl*099 
PARANCTCR  ISYHNI >ISYNH| *1 
PARANCTCR  tSVNN0*ISYNHl*0 
PARANCTCR  KSTNSZ*1*I8YNN0 


■ INFO  LOH  VALUC 

• INFO  HI  ON  VALUC 

• 'NO  INFO*  VALUC 

• ‘NO  DATA*  VALUC 

• Size  OF  SYNOOL  TABLC 


IN  HOROS 


C« 


CONNON/KONSYN/ 

I NCISYN.  a NAXIHUN  NUNBCR  OF  CHARACTCRS  PCR  SYNOOL  OF  CURRCNT  SYNBOLS 
0 KOYNIKSYNSZI  A CHARACTCR  STRINO  SYNOOL  TABLC: 

SYNOOL  FOR  INFO  LOH  VALUC 
SYNOOL  FOR  INFO  HI  OH  VALUC 
SYNOOL  FOR  'NO  INFO'  VALUC: 


KSYMd^lSYHLOl 

a 

CHAR  STRINO 

KSYH(t»ISYNHI) 

a 

CHAR  STRINO 

DATA  KSYN(I«ISYNNII/* 

ai'/  a 

CHAR  STRINO 

c* 

STRINO  • 

c« 

t'l'C  • 

c* 

l-K-C  • 

data  KSYN(l«ISYNNOi/*t 

!•/  a 

CNAR  STRINO 

c# 

STRINO  • 

c« 

l-l-C  • 

1 -K-C  • 

c* 

00  IINTCNSITV  • lOCt 
IN  (COLOR  • UHITCI 
SYNOOL  FOR  'NO  DATA* 

OS 
IN 


VALUC: 


(INTCNSITY  • BOX 
(COLOR  • HHITCi 


CNO 


0*09 


t 


L) 

OAN  PACKAOC  AMCNOIX  Q K0NTM.-ra0C 

NACKOft  OtI 


e KOMrM.*Moe  • conhon  hultI'^urposc  taxlc 

c 

e 

^ e 

e NitroAT 

e — 

e 

e c H tCNLomA  Lce  ta/tv/Yx  oaioinal  cooc  in  roANNoct 

C C N tCHLOttCA  kCC  l«/Ot/7«  tCAAAATC  INTO  KONtAk-AAOCt 

e NCLHKC/rONAKINt  kCC  IO/II/7A  OCLCTI  TAAC  NCAOCA  tfurf 

C 

c 

KOHrtk  AAOC 
C — 

c« 

AAAANCrCA  KT|LtZ»t000  A NUNACA  Of  MONOS  IN  KTAALC  ANNAY 
CONHON /KONTAL/ 

1 KTAkTY,  a TAAkC  TYNC«  I*  •.•TICK*.  TNCO*  . TACT’I 

A KYALNH.  a TAOLC  HINOOU  NUNACN 

3 KTAALC I KTBLSZI  a TAALC  TON  TICKS.  rRCQUCNCV.  TACrORS 

C« 

C« 

C*  TICK  TASLC.  ONC  mono  NCR  TICK  RACKCO  AS  rOLLOHSi 

ocriNC  LiNriccNrici-Piotoo.is.KrAALeiNTicn  a rrint/rlot  linc 

OCriNC  C0LTIClNT|Ct*PL0ltA.I7.KrASLC(NTICn  a RRINT/PLOT  COLUMN 

OCriNC  LCVTICINTtCl^fLOtlS.Ot .KTASLCtNTICt I a TICK  LCVCLi 

C«  0 • RRIHARY  TICK 

C«  I • SeCONOARY  TICK 

C* 

C« 

INTCOCR  KPCHANiei  a CMANNCLS  USCO  IN  PRCQUCNCV  TAALC 

INTCOCR  KrRCOntS.S*  a prcoucncy  taalc  por  oisrlavs/nars 
INTCOCR  KPNCROMO.I8I  a CROSS  PRCO  TAALC  MO  INT  X IS  COLORS! 

COUIVALCNCC  (KTASLCMI.KPCNANI 
CQUIVALCNCC  IKTAALC! 1 1 i .KPRCQI 
COUIVALCNCC  IKTAALCISOM .KPRCAOl 

c« 

c* 

C«  ORTNOOONAL  PACTOR  INPO  OCRIVCO  PRON  CORACLATION  I ROTATION  •« 

INTCOCR  KRIXCO  a NUNSCR  OP  RIXCLS  CORRCLATCO 

INTCOCR  KCHACO  a NUNSCR  OP  CMANNCLS  CORRCLATCO 

INTCOCR  KPACCO  a NUNSCR  OP  PACTORS  OCRIVCO  PRON  CORRCLATION 

CQUIVALCNCC 
a iktaalcmi .KRixeoi . 
a (KTAOLCtOI .KCNACOI . 
a (ktaalci 31 .KPACCO* 

ACAL  CNNCANI7I  $ NCANS  OP  ORIOINAL  CMANNCLS 

ACAL  CNSTO(7l  S STANOAAQ  OCVIATIONS  OP  ORIOINAL  CMANNCLS 

ACAL  RCrVAN(t.7l  a INOI VIOUAL/CUNULATIvC  RCRCCNT  OP  VAAIANCC 
CQUIVALCNCC 

a IKTASLCMO*  .CNNCANI. 
a IKTAALCtCOI .CNSTO*. 
a IKTASLCISO* .RCTVAAI 

ACAL  C0AACL(7.7I  a CORACLATION  COCPPICICNTS  OP  ORIOINAL  CMANNCLS 
ACAL  CI0VALI7.7I  A CIOCNVALUCS  ON  OIAOONAL.  2CAOS  OPP  OIAOONAL 
ACAL  CI0VCC<7.7t  • CIOCNOCCTOAS 


) 


Q-AS 


OAN  PACKAOC  AMCNOIX  0 
fMeMt 


KONTtk-MlOe 

0«t 


RCAk  rtrNuc(7.Tt  • rAcroR  trnucruiic  (com  ut  CNANNCkt  a rAcroxti 

RCAk  rtTR0r(7.TI  I ROTATCO  fACrOR  STRUCrURC 
RtAL  rCN0RH(7.7l  I fACTOR  COCmCICNTt  Of  NORNALIXCO  CNANNCLt 
RCAk  rCNR0ri7.7l  • ROTaTCO  fACrOR  COCmCICNTt  or  NORNAkllO  CNANNCkt 
RCAk  re0RI0(7.7l  • fACrOR  COCrriCICNTC  or  ORIOINAk  CNANNCkt 

RCAk  reoRort7.7)  • rotatco  rAcroR  eocrriciCNrt  or  oRioiNAk  CNANNCkt 
CQUI VAkCNCC 
t (XrARkC(tO*.CORRCkl . 
t rxTAikCfieot.ctovAki. 

A INTAikCdtOl.CIOVCCI. 

A fKrAikCltooi.rtrRuci. 

A (xrAikCtttOi.rtrRon. 

A CKTAOkCiXOOt.rCNORNi. 

A (KrAikCdtoi  .rcNRori . 

A (KrAOkCM»ooi  .rcoRioi . 

A (KrAOkCcHsot .rcoRon 
c« 

CNO 


0-C7 


DM  MCKAOC  AMCNOIX  0 
NACMt 


KPNXOT-AftllOC 

Ml 


KONXOr-AraM  t AM  COMMON  OLOCK  fON  OROONAN  CXCCUTION  OMirCHCO.  COUNTCRO 


! Ml  f TORY 


• 

c 

N 

fCNLOnCR 

LCC 

tt/Ol/70 

ORtOlNAL  COOC  IN  INOIVIOMAL  ROUTlNCt 

• 

c 

N 

tCNLOOKR 

Lce 

Ot/Ol/70 

NAOLCY  COUNTCR 

• 

c 

N 

•CNkOtUR 

kce 

IO/CC/70 

NCOLOR  f MITCH 

• 

r 

N 

tCNLOSSCR 

LCC 

01/07/00 

SCRARATC  INTO  KONXOT-ARROC 

! CXCCRTtONS 


I.  OCCLARAriONt  or  KONXOr  eONHON  VARiAiLC  NAHCt  IN  TNIf  AtSCNRlCR  RROC 
Nuor  ALMAYS  HArCH  THOtC  IN  TmC  CORRCSRONOINO  rORTRAN  RROC . 

KONXOr*  RROC 


tfOt)  . rORVRAN  lAOClLCO  COMMON 


KONXOr 

INTO 

c 

i 

. rORTRAN  LAOCLLCD  COMMON 

COMMON 

RCS 

* 

• 

RCCr  or  COMMON  allocatco  i 

NOATCN* 

CQur 

COMMON »0. .Cl 

• 

t*OArCH.  0*OCNANO 

NCriRN* 

eour 

COMNON*0. .$> 

t*C0NriAN.  o*ooN*r 

NCNCCK* 

CQur 

CONMON*0. .C3 

l*CNCCKOUr.  O-RROOUCTION 

NCCNO* 

cour 

CONNON*0.  .f<» 

i*ccHO.  o-ooN*r 

NOATAC* 

cour 

CONNON*e. .C9 

• 

i*0ArA/CNCCK0ur 

NAOLCV* 

cour 

CONNON*0. .CO 

• 

DYNAMIC  COrO  CAOO  LCVCL 

NLCONO* 

cour 

COMMON* I . .Cl 

• 

t*LC0CN0.  0*NONC 

NCOLOR* 

cour 

COMMON* 1 . .Ct 

• 

l•COLONCRr.  O-NONC 

• 

(INTCRVCNINO  OHirCH  RCtCRVCO  rOA  ruTuRC  UCC« 

NRRONT* 

cour 

COMMON*! . .CY 

• 

laRROMRY.  0*0ON*r 

NOONR* 

cour 

COMMON*!. .CO 

• 

{••CUMR.  0*0ON*r 

NTRACC* 

cour 

COMMON*!. .00 

• 

!. .OS*TRACC.O*OON*r 

*CNO 


OAN  ^ACKAM  APMNOtX  Q 
ilACMt 


ItUlM-MMC 

Ml 


ItTLUt'MOC  t NANCLItr  MCCiriCAriONt  rM  UNIT  ■ (MOItTRATieil  MAANCICRt 


NltrORT 


tCHLOttCR 

Lce 

It/ff7/7t 

ORIOINAL 

COOC 

IN  rORRROCt 

tCNLOttCR 

Lce 

lt/0l/7t 

tCRARATC 

INTO 

LtTLUO-RROe 

tCNlOttCR 

Lce 

IC/lt/70 

AOO  NCROCO 

HCTNOO 


TMC  NANCLItr  ttATCNCNTt  IN  THIt  rOATRAN  AROC  ARC  UtCO  TOR 
trORINO  RCOItTRATION  RARAHCTCRt  0'<  *INIT  t.  LOAOINO  CHACT  RCOItTRATION 
RARANtrCRt  CRON  UNIT  t.  AND  LOAOlhw  NOMINAL  RCOItTRATION  RARANCTCRt  TRON 
AN  CLLHCNT  IN  THC  OAN  flLC. 


triUt  RROC 


NANCLItT/LtTNCR/  I CRft  tCCNC  NUNtCRi 
I NCRTtin.NCRTtlCl.NCRTtltl 

\ e* 

NANCLItr/LtrORt/ 
t NCRLIN.NCRtAH. 
t ALTXN.ALTtAH. 

7 CTRL.N.CTRtAN. 
t CTRLAT.CTRLON. 
t OIRLAT.OIRLON. 

0 Riroce.ROLOCo. 

1 VANKO. 

C NCROCO 

€• 
e« 
e* 
c* 
e« 
c* 
e* 

4 NANCLItT/LtTtCN/ 

I tCNA.tCNt.tCNC. 

C ROLRAC.tCNTNC.teNriH 

e* 

NANCLltT/LtTflT/  « LCAtT  tOUARCt  flT  RARAHCTCRti 
t NCTLRT.RCreTL. 
t RNtNCr. 

7 UTHCNO.tTHCNO. 

t CORtTNI 1 1 .CORtTNItl .CORtTNISl .CORtTNINl .CORtTNl t> .CORtTNIC* . 
• tTNCORI  1 1 .tTNCORIO  .tTNCORtll  .tTNCOROI  .tTNCORltl  .tTNC0R<8> . 
0 CORtRNin.CORtRHIti  .CORtRNHI  .CORtRHINI  .CORtRNltt  .CORRRNI  ft 

e* 

CNO 


■ ORIITAL  RARAHCTCRti 
A NUNtCR  or  LiNCt.  tAHRLCt 
a ALTiruOC  IN  KiLONCTRCt.  tAHRLCt 
a tCCNC  eCNTCR  LINC.  IAHRLC 
a tCCNC  CCNTCR  LATiruOC.  LONOiruOC  lOCORCCtt 
a tecNC  NAOiR  LATiruoc.  lonoituoc  lOCORCCti 
a tCCNC  RircN.  roll  lOCORCCti 
a tCCNC  TAN  lOCORCCti 


a OCONCTRV 

••  HILL  ARRCAR  At  INTCOCRi 

•CRT* 

IIIttOMtII 

•NON* 

•LCC* 

•Rt  • 

ttttcttsoii 

•tON* 

tttiaotTNfs 

•uth* 

MININtTMl 

a tCANNCN  RARAHCTCRti 


a-tf 


OMI  MClMOff  A^MNOtX  0 
MCMt 


NAXeTT-MMC 

081 


NAXirr 

e* 


oRoe 


e* 


OARAncrcR  NAXivr  • too  I tAOOcor  tNrcoco  in  o*otr  ovrc 


OAN  PACKAOC  AMCNOI 

NAemt 


NAxtcc-raoe 

001 


NAXICC  Moe 
c* 

OAKAHCrSR  NAXICC  • 03  0 HAXIHUN  INrCOCR  CHARACTCR  CQUIVALCNT 

c rOR  UNtVAC  rORTRAN  V 

c* 

CNO 


Q-St 


NACIIOt 


NOl 


1 


HOC 

001 


NAXINT  MOC 

c* 

e*  HAXtNUH  OlONCO  INTCOCN  HHICM  MILL  YICLO  CORKCCT  RCSULTS  UStNO  UNIVAC 

e«  rORTRAN  V CONRILCR.  CA  SIONCO  INTCOCR  TUICC  AS  LAROC  CAN  ACTUALLY  SC 

€•  RCRRCSCNTCO  IN  ONC  UNIVAC  It 00  SCRICS  COHRUTCR  UORO.  OUT  OUC  TO 

C*  OCtlON  rLAHS  IN  THC  UNIVAC  rORTRAN  V CONRILCR  IT  HILL  NOT  ALHAYS 

e*  YICLO  CORRCCT  RCSULTS.t 

RARANCTCR  HAXINT  • 17179000103  0 C««3V-t 

C« 

CNO 


o*st 


OAN  MCKAOC  APPCNOtX  Q 
NACmt 


NCROCT-^IIOCt 

OOt 


c 

c 

c 

c 

e 

e 

e 


NCRocr-miocs  • cohhon/ncaocii  ■locks  ros  cnrs  ocrccrioN  rites 


HISTORY 


e 

E 

N SCHLOSSER 

LEC 

IB/B7/73 

c 

e 

N SCNLOSSER 

LEC 

IBTI9/7S 

e 

E 

N SCNLOSSER 

LEC 

07/01/70 

c 

MEL NKE/ TOMPKINS 

LEC 

10/11/79 

e 

e 

N SCNLOSSER 

LEC 

OS/ 16/BO 

ORIOINAL  coot  IM  rORPROCS 

SPLIT  INTO  CRTS-PROCS  A AOO  KLSTYP 

AOO  LCVTOL  A KTIPIX 

RCNANC  A RtOROANIze  POR  HOP  TAPCS 

IN  KONKLS  RCPLACe  NOrCHO  HtTH  NOUTCH 


C 

C 

KOMNCR 

e 

c« 
e« 
c* 
c* 


PROC 


C« 


C« 


C* 


C« 

c« 

c« 

c« 

c« 

c« 

c« 

c* 

c« 

c* 

e« 

c« 

c* 

e* 

c* 


this  LABtLeO  CONHON  IS  PART 
WORDS  1-6  UNIQUtLV  lOeNTlrv 


(SECTORS  0-ai 
AN  CRTS  SCENE. 


or  THE  DETECTION  PILE  HEADER. 


PARAHETER  SIZNER  - 64 


CONHON/KOHNER/ 

I NERSAT(6I .NERSEN. 
4 NERTS(3) . 

7 NERLIN.NERSAN. 


a ERTS  SCENE  PARAHETERSt 


9 NEROAY.NERHON.NERYR. 
6 NCRSEL.NERSAZ. 

4 NERCHA. 


9 ALTKN.ALTSAN. 

7 CTRLIN.CTRSAN. 

9 ctrlat.ctrlon. 
I OIRLAT.OIRLON. 
S PITOEO.ROLOEO. 
9 YAHOEO.HNYOEO. 
7 NEROEO.  a 


6 NERRES. 


9 NERCOR. 


SATELLITE.  SENSOR 
ERTS-NO.  OAYS-S I NCE -LAUNCH.  ONT 
NUNBER  OF  LINES.  SANPLES  OF  DATA  IN  FULL  SCENE 
(USED  FOR  registration.  EXCLUDES  PAD  PIXELS* 

OAY( INTEGER) . MONTH ( ALPHA  I . YE AR ( I NTEOER > 

SUN  ELEVATION.  SUN  AZIMUTH  (DEOREES* 

NUMBER  OF  CHANNELS  ALLOCATED  IN  PILE 
(OATA  IS  NOT  NECESSARILY  PRESENT  FOR  ALL  CHANNELS* 
altitude  (kilometres.  SAMPLES* 

SCENE  CENTER  (LINE.  SAMPLE*  (USED  FOR  REGISTRATION 
SCENE  CENTER  (LATITUDE.  LONGITUDE* 

SCENE  NAOIR  (LATITUDE.  LONGITUDE* 

PITCH.  ROLL  AT  SCENE  CENTER  (DEGREES* 

YAM.  HEADING  MINUS  YAM  AT  SCENE  CENTER  (DEGREES* 

OF  IMAGE  OATA: 

LAMBERT  CONFORMAL  CONIC  PROJECTION 
POLAR  STEREORAPHIC  PROJECTION 
SPACE  OBLIQUE  MERCATOR  PROJECTION 
UNIVERSAL  transverse  MERCATOR  PROJECTION 
HOTINE  OBLIQUE  MERCATOR  PROJECTION 
ERTS  (UNRESANPLEO* 
a RESAMPLINO  ALGORITHM: 

•C*  • CUBIC  CONVOLUTION 
*N*  - NEAREST  NEIGHBOR 
• • - NONE 

a type  OF  CORRECTION  APPLIED  TO  UNCLASSIFIED  DATA: 

*U*  • UNCORRECTEO 

•S*  - SYSTEM 

*0*  • OEOHETRIC  CONTROL  POINTS 

*R*  • RELATIVE  (OUNNY*  CONTROL  POINTS 


a 
a 
a 

a 
a 
a 

a 

a 

a 

a 

a 

a 

oeonetry 

•LCC*  - 
•PS  • - 
•SOM*  - 
•UTM*  - 
•MOM*  - 
•ERT*  - 


0 NERRANIIO*  .NEROAinO*  .NERTNOdO* 


a FOR  EACN  CHANNEL i 


0-33 


^KNOn 


NCROCT'MIOCt 


MACROS 

BOB 

C* 

•ANOt 

•%»/’S’/*8*/*7*/’B*/’A’/’B*/*C’/ ’O’/ ’ 

e* 

c* 

OAtNt 

*H*  - MIOM  / 

’L*  - LOW  / * * • NO  DATA 

c« 

c« 

TRANSi 

c« 

• • • 

NO  data 

c« 

0 NERAON. 

B ’A* 

• A8CEN0IN0  / 

’0*  - OESCENOINO  NODE 

C* 


t NCRPAT.NeiHIOM.  • NOMINAL  MArw.  ROM  (CNARACTCR  STRINO).  * * IF  UNOCFINCO 

3 Ncer.NCcror  • ccr  strip  •.  total  • cct  strip<s>  for  this  sccnc 

INTCOCR  KOHNCRISIZNCRI 
CQUlVALCNCe  (NCRSATC 1 1 .KOMNCRm  I 


C* 

CNO 


KOHKLS  PROC 
C 

e* 

C«  this  LABCLCO  CONNON  is  part  (SECTORS  3-Ht  OF  THE  DETECTION  FILE  HEADER. 

C*  WORDS  1*88  SHDULD  UNIQUELY  CHARACTERIZE  A SET  OF  SPECTRAL  CLASSIFICATION 

C*  LIMITS. 

C« 

PARAMETER  SIZKLS  • 89 

C* 


C* 


C* 


COMMON/ KOHKLS/ 

I KLSTYP.  a OISP/OET/HAP  TYPE:  ’RAO’ / *ORA • / *LAP* / ’OEN* / • CL A * / • OLD* / * NUL 
8 MTERAL(«n.  a CLASS  NAME  (BINARY  CLASSIFICATION  ONLY! 

8 NOUTCH.  a NUMBER  OF  OUTPUT  CHANNELS 

7 N8FCNR(5>.  a NUMBER  OF  BUFFER  CONTaININO  RAH  CHANNEL  1/8/3/H/S 

8 NLINCH.  a NUMBER  OF  LIMIT  CHANNELS 

3 LINCHIS).  a limit  CHANNEL  CONTAINED  IN  BUFFER  NUMBER  |/8/3/*»/S 
B LCVLO(SI.  a LIMIT  CHANNEL  LOH  VALUES 
3 LCVHKSl.  a LIMIT  CHANNEL  HlOH  VALUES 

B LCVTOL.  a ’NEAR  HIT’  TOLERANCE  FOR  LIMIT  CHANNEL  VALUES 
S KTIPIX  a COUNTS  PER  PIXEL 


integer  KONKLSISIZKLSI 
equivalence  (KLSTyP.KOHKLSI 1 1 > 


equivalence  (LINCNIII  ,LINCHn.(LCVLOm.LCVLOII.(LCVMIItl.LCVHlll 

C* 


ENO 


OMFIT  PROC 


e«  THIS  LABELED  CONNON  IS  PART  (SECTORS  S-Sl  OF  THE  DETECTION  FILE  HEADER. 
C*  MOROS  1*17  UNIQUELY  CHARACTERIZE  A CONTROL  NETWORK. 

C* 

PARAMETER  SIZFIT  • H8 

C* 


0*3*» 


ft*N  PACKAOC  AmNOtX  0 
NACIIOt 


NCROCT-MOCt 

eos 


COMMON/ KONrtr/ 

I tCNA.tCNO.SCNC.  • NIMNON  SCAN  COerrieiCNrs  CRAOIANS) 

•»  NOLRAC.  • ROLRAO»SCNC 

9 SCNTMt.  • HALF  OF  ACTIVC  SCAN  ANOLC  (RAOIANSI 

0 SCNTIU.  A RADIANS  PER  SAMPLE  AT  RADIAN  NATURAL  FREQUENCY 

T NCTLPT.PCTCTL.  S NUMOER  of  control  points  a PERCENT  OF  SCENE  COVERED 

9 RNSNET.  S ROOT>NEAN*SOUARE  ERROR  1 METERS)  OF  ADJUSTMENT 

0 UTNCNO.  A UTN  CENTRAL  MERIDIAN  (OEOREES) 

1 STNCNO.  a STN  central  meridian  (DEGREES) 

t CORSTN(S).  a COEFFICIENTS  --  CORRECTCO  TO  SCENE  TRANSVERSE  MERCATOR 

0 STNCOR(S).  A COEFFICIENTS  --  SCENE  TRANSVERSE  MERCATOR  TO  CORRECTED 

<»  CORSRM(S).  A COEFFICIENTS  --  CORRECTED  TO  SCENE  ROTATES  MERCATOR 

0 IRFD.  A REPRESENTATIVE  FRACTION  DENOMINATOR 

9 CORPPOIS).  A coefficients  — CORRECTED  TO  PRINT/PLOT  DEVICE 

9 PPOCOR(8)  A COEFFICIENTS  --  PRINT/PLOT  DEVICE  TO  CORRECTED 

C« 

INTEOER  KOMFIT(SIZFIT) 

EQUIVALENCE  ( SCNA . KOHFI T ( t ) ) 

C« 

END 


KONOET  PROC 
C 

C* 

C*  THIS  LABELED  COMMON  IS  PART  (SECTORS  7-8)  OF  THE  DETECTION  FILE  HEADER. 

C*  UNUSED  JENMOY  ELEMENTS  MUST  CONTAIN  BLANKS.  OTHER  UNUSED  VARIABLES  IN 

C«  THIS  COMMON  BLOCK  MUST  CONTAIN  BINARY  ZEROS.  VARIABLES  IN  THIS  COMMON 

C*  MUST  ONLY  BE  USED  BY  ROUTINES  IN  THE  OPENEN/REAOBN/CLOSESN  SERIES. 

C« 

PARAMETER  SIZOET  • SB 

C« 

COMMON/ KONOET/  A HINOOHS  AND  OENERATION  OATES  FOR  •»  DETECTION  FILESs 

C«  AXIS  NODE  FILE  (CCT) 

I MSAOUH  (B.  S.  «»  ).  A DETECTION  HI  NOON  PACKETS 

9 JENNOY(V).  a OENERATION  MONTH.  DAY.  YEAR  FOR  EACH  DETECTION  FILE 

9 LOETRSO)  A LENOTH  OF  DETECTION  FILE  RECORDS  (IN  UNI  VAC  SECTORS) 

C« 

DATA  A PACKET  SIZE  (NODES) t 
I NSADUU(B.I.I)/3/ 

B NSAOHU(B. I .B) /3/ 

3 NSADHU(B.I.3)/3/ 

A <»  HSAOUU(B.  I .V)  /3/ 

C* 

INTEOER  KONOET(SIZOETl 

CQU I VALENCE  ( MSAOUH ( I . I . I ) . KOMDE T ( 1 ) ) 

e* 

END 


Q-S9 


OAH  PACKAOC  AmNOiX  Q 
NACROt 


NULCHII'RIlOe 

QOt 


NULCNII  RROe 

C« 

PARAHCrCII  NULCNR** 
C* 

CNO 


Q-S8 


NACIIOt 


NO  I 


Nutctr-Moe 

001 


NULCSr  MOC 

c* 

MRAHCrCR  NULCSr**0  • NULL  CHARACTCR  STRINO  rUNIVAC  FORTRAN  VI 
C* 

CNO 


o-r? 


( 


1 

J 


OAH  MCKAOC  AMCNOIX  Q PtCOCr-mOC 

HACROt 


RICOCr  RROC 

e«  (C  N tCNLOStCRI 

C* 

«• 

RARAHCTCR  HALTNl«*»  • NAXIHUN  HALTN  TOR  PICTAR 

RARANCrCR  KRAOHI-ISR  A NAXIHUN  KNAOC  rOR  NICTAR 

C« 

CNO 


NACIIOt 


1 


MCOCr-MOC 

••I 


neocr  ^noe 

•« 

«•  (j  e emsn 

•• 

••  TNit  PRoe  tcrs  HAxinuN  valucs  roR  tnc  nunrcr  or  altcrnatc 
••  RRINT  riLCt  ANO  NUHRCR  Of  COLURNI  RCR  RAOC  ro  1C  UtCO  IN 
•«  RRrCLAtt. 

• « 

• « 

RARANCrCR 

0 RALrHI-9.  a MAX  • Of  ALfCRNArC  MINT  riLCt 

a KRAOHl«t3t  a NAX  • or  COLUNNt  RCR  RAOC 

e •• 

c •• 

CNO 


O'St 


NACIIOt 


•Ml 


I 


raoocr*Moe 

oei 


piioocr  ^Roc 

e «•  (C  H tCHLOttCRI 

e •• 
c •• 

RARAHCrCR  NALTNI-A  • MAXINUH  NALTN  TOR  RRTOCT 

RARANCrCR  KRAONIallt  • RAXtHUH  KRAOC  TOR  RRTOCr 


DAN  PACKAOC  APKNOU  Q 
NACROt 


ratocr-moe 

••I 


e Axtocr-RROC  • ecrinc  trRueruM  or  rtxCL  lurrcR 

c 

e 
c 

e NitroRY 

c 

e 

e CM  tCNLottCR  Lre  oo/n/Tt 

e 4 e cRior  lcc  ot/ot/tt 

e 
e 

rxiocr  root 

c« 

NNCNONiet  roA  roiNrcxt  to  locations  in  rixct  turreo 
ocriNiNO  turrcA  stauctunc 


ACOUIACNCNTt 

ocsiON  A eooc 


c« 

c* 

c» 

c* 


AAAANCTCA 
C*  HNCNONIC  HCANINO 

C*  ....... 

C« 

C«  AACANOLC  AOATION  Of  iurrCA 

c« 

A AXACCN»t . a 

A AXLINO-O.  a 

A AXCHAN*S.  a 

A AXQUAL«H.  a 


ACCOAO  NUHOCA 
LINC  NUHOCA 
CMANNCL  NUHOCA 
OUALlfY  COOCi 


C« 

C» 

C« 

e« 

e« 

c« 


c« 


c« 

e« 


e* 


c* 


AX0INT*S. 

AXLilN*i. 

AXLSAH«7. 

AXLCOLO. 


A AXHOIN»S. 


AXNSAN«0. 

AXHC0L«0. 

AXNOIN«IO. 

AXNOOA«II. 

AXLJOI«lt. 

AXNUOI-IS. 


ri( 


L --  0000  DATA 

I --  DATA  OASCO  ON  SUitTITUTCO  LiNC 
0 --  rilLCO  LINC  ON  INAUT 
S ••  riLLCO  LINC  ON  OUTAUT 

A ••  QUALITY  COOC  UNAVAILAiLC  OUC  TO  TAUNCATION 
0 ••  NO  DATA 

tINTYACi  *CNA*/*SYT*/‘INT*/’NULMN0T  AAALICAOLCI 
LONCST  fiN  CONTAININO  OCriNCO  AIXCL  (flAfT  OCAINCO 

AixCLi.  0 ir  NO  ocriMco  aixcls 

LONCST  SANALC/COLUNN  NUHOCA  ACACACNCINO  OCAINCO 
AIXCL  iriAST  OCriNCO  AIXCLI.  0 ir 
NO  OCriNCO  AIXCLS 

HIONCST  OIN  CONTAININO  OCriNCO  AIXCL  (LAST  OCAINCO 

AIXCLI.  0 ir  NO  ocriNCo  aixcls 

HIONCST  SANALC/COLUNN  NUNOCA  ACACACNCINO  OCAInCO 
AIXCL  (LAST  OCriNCP  AIXCLI.  0 IT 
NO  OCriNCO  AIXCLS 
*N0  INAO*  rLAO 
'NO  DATA*  THACSNOLO 

LON  JOIN  (0  If  UNKNOHN  OA  NOT  AAALICAOLCI 
NI9N  JOIN  10  If  UNKNONN  OA  NOT  AAALICAOLCI 


e* 

e* 

e* 

e« 


a AX0INS*I«  0 OINS 


o-oi 


OAN  ^ACICAOC  AMCNOIX  0 

NAewt 


MMCr-MMC 

•tt 


e*  Norct 
c* 

e«  t.  ^IXCLt  IN  ALL  CNANNCLt  ANC  TNC  tANC  IN  tIZC. 

e«  ACNICVCO  If  NCCCttANT  IV  NCtANm.lNO  NIXCLS  fNON  LON 

C«  RCtOLUrtON  CNANNffLt. 

c« 

e«  *.  A LOH  RCtOLUnON  CNANNCL  HNICN  tt  NOT  NCtANNLCO  It 

e«  TNCATCO  At  NAVINO  NO  MriNCO  OIXCLt. 

e* 

e«  1.  oixcLt  roN  tnc  oanc  cantn  location  rooN  oirrcNCNT 

e«  CNANNCLt  ANC  ALNAVt  AttlONCO  TMC  tANC  tAHNLC  NUHOCN. 

c* 

C«  •».  tAI**LC  NUNOCN  I CONNCtNONOt  TO  ThC  LCftHOtT  NIXCL  IN  TNC 

C*  tCCNC  OCriNCO  IN  AT  LCAtr  ONC  NION  NCtOLUTION  CNANNCL. 

c*  NtxCLt  TO  thc  Lcrr  or  tnio  anc  almayo  conoiocnco 

c«  uNocriNCo. 

c* 

C«  t.  tnc  NiONCtT  rOttlOLC  tANNLC  NUNOCN  CONNCtNONOt  TO 

C«  tnc  NIONTHOtT  NlXCL  IN  THt  tCCNC  TON  HNICN  A NAOIANCC 

C«  VALUC  It  OCriNCO  IN  AT  LCAIT  ONC  NION  NCtOLUTION  CNANNCL. 

C«  NiXCLt  TO  tnc  NIONT  Of  THIt  ANC  ALHAVt  CONtlOCNCO 

C*  UNOCriNCO. 

c« 

C«  0.  tnc  INNUT  HINOOM  NUtr  ALUATt  tc  A tiNOLC  CNVCLONC  HITNOUT  VCNTtCCt. 

c« 

C*  7.  NNCN  TNC  OUTNUT  It  MACNINC  NCAOAOLC  (IN  CNTtOUN. 

C*  CLAtttrv.CTC. I THC  CNTINC  ANCA  INtlOC  TnC  CNVCLONC 

C«  or  TNC  OUTNUT  Ml  NOON  NACKCT  MILL  tC  NNOCCttCO  ANO 

C*  tnc  VCNTICCt  HILL  OC  lONONCO. 

c* 

C*  0.  UNCN  TNC  OUTNUT  It  ONANNIC  I IN  NICTAO.COLONTAO.NNrCLAtt. 

C*  CTC.i  tnc  ANCA  INtlOC  TnC  CNVCLONC  OUT  OUTtlOC  ThC 

C*  VCNTICCt  or  TNC  OUTNuT  NlNOOW  NACKCT  HILL  tC  NAtKCO 

C«  MITN  NO'OATA  TNNCtNOLO. 

C* 

C«  t.  riLTCNINO  MILL  ALMATt  iC  OONC  ICNONC  NAtKINO. 

C« 

CNO 


out  PACKAOC  A^mis  a 

IMCIIM 


Ml 


rnremi  mm 

€•  tCMI 

e«  ?NC  KriNff  AKOeCQlMCS  IN  TNlt  rONMAN  MOC  TNANtfONN  COONOINATCt 
e«  MTMCCN  TNC  VAttlOVt  trStCNt  UfCe  ny  lanmay  ano  tnc  oan  aackam. 

C«  TMC  AMMCNY  LltYt  fON  TNCU  KflNC  ANOCCOUNCt  ANC  KttONCO  tO  ACAHI  Y 

e«  rUYUAC  NCriNCNCNYfl  IN  YNC  NMnt.  ANOWNCNYt  NOY  CUIMCNYi.V  WtCO  IN  YNC 

e«  NOMit  AAACAN  MIYNIN  YNC  OCAlNlYlONt  Af  tANO-ANOt  ON  IANO*OI.  CONAUCN 

e*  OAYINIIAYION  NCNOVCt  YNC  AOOlYtONAL  COOC  YNUt  OCNCAAYCO.  If  YNCU 

e«  AMUNCNYC  NAO  NOY  AAACANCO  NIYNIN  YnC  OCAINIYIONS.  YNC  CONAUCN  NOULO 
e«  NAYC  OCNCAAYCO  tAUAIOUt  OIAONOOYICS. 

e* 

€• 

e«  YNC  NOOCL  rOA  CONACCYINO  AOJUAYCO  tCANNCA  COOAOlNAYCf  INCtUOCS: 

e*  ACeCLCAAYlON  IN  NIAAOA  scan  VCLOCITT 

c«  aanoaahic  crrccr 

C*  CONSYanY  AOLk  HIYHIN  A SCCNC 

c* 

c* 

C*  COAACCYCO  TAON  AOJUSTCOt 

c« 

OCriNC  COAL*»A(AOjLlN.AOJSAHt>«OJUN*IAOJSAN-AOJSANI  A AOJSAN  NOY  USCO 
ocr I NC  COASN A ( AO^ I N . AOJSAN I *C  Y ASaH * AL  T SAN*  T AN 
S lAOtAAC'SCNYNf *SCNA*SIN 

S (SCNYIH*iAOJSANo|l*SCNin»IAOJklN-AOJLiNI  S AOJLIN  NOT  USCO 

C* 

c* 

C*  AOJUSrCO  fAON  COAACCrCOi 

c* 

ocriNC  aojlncicoalin.coasani*  coal in^icoasan-coasahi  a coasan  not  usco 

eCriNC  AOJStC(COALIN.COASANi*l . •(ASINI AHAIt I • I . . ANi Nt I *1 . . 
a <IAYAN( IC0ASAN-CYASAN> /ALYSAH»>AOLAAC*SCNrMtl /SCNAI • • I 

S •SeNll/SCNYlH*ICOAL IN-COAL  INI  a COALIN  NOT  USCO 

c* 

c* 

C«  SCCNC  YAANSVCASC  NCACAYOA  fNON  COAACCYCO i 

c* 

OCfINC  SYNNWCICOALIN.COASANI* 

S COASYNf ll*COALIN*COASrN(CI *C0ASAN*C0ASYH( SI 

ecriNC  syncnocoalin.coasani* 

S COASYHfi»l«COALIN*€OASrN(SI  •COASAN*Cv)ASYN(SI 

c* 

c* 

C*  COAACCYCO  fAON  SCCNC  YAANSVCASC  NCACaYOAi 

c* 

OCriNC  COALNSISYM.SYNNI- 

S fYMOAl  1 1 *SYNN*SYNCOAttl  «SYNC*SYNC0AI  SI 

ocriNC  coasnsisync.stnni* 

S SYNCOAI<»l*SYNN*SYHCOAISt*SYNC*SYNCOAISI 

c* 

c* 

c*  AAINY/AVOY  CAON  COAACCYCOt 

e* 

ecriNC  aaolncicoalin.coasahi* 

S eOAAAOm*COALlN*  0.*COASAN*COAAAO<SI  S COAAAO<Cl«0. 

OCriNC  AAOCNCICOALIN.COASANI* 


e-AS 


MU  ^MKMC  AmWIX  0 

memt 


••t 


» eoMM(«MeoiiL  I M*eoMPOtst  •eoii«Aii*eeiirpot  •> 

e« 
e* 

e«  eoMicerco  rnon  ppiNr/PLori 
e* 

ecriNC  eoiiiiipfPPOLiN.ppoeoti* 

» ppoeo«m«ppoLiN*  o.«ppocoL*ppoeoiifii 

OCPINC  eOMAPCPPOLIN.PWOU* 

A ppMoiitA  I «PP0L  I N«ppoeoii(  ti  «ppoeoi.  ♦ppocopi  • i 

e* 

CMO 


« PPM0IHtl*0. 


0««« 


nonoosnonoooooooooAOAAoon 


NACIIOt 


NOt 


MlNOON-PROet 

001 


UtN00U»M0CS  • OeriNC  tORUr.  output  uinoom  packcto  a thcir  otructurc 


NtOTORY 


E 

H 

SCML08SER 

LEC 

08/03/7V 

ORIOINAL 

CODE 

E 

M 

SCHLOSSER 

LEC 

iB/Ot/TS 

REPLACE 

RENTER  BY  WUSEO 

E 

H 

SCNLOSSER 

LEC 

IB/lS/79 

REPLACE 

UINC  BY  USPtOO.  DELETE  RAM 

THC  STANOARO  packet  USED  IN  THE  OAR  PACKAGE  TO  OEPINE  A TUO'OINENSIONAL 
HINOOU  IS  A VARIAOLE  LENOTN  ARRAY  lEITHCR  INTEOCR  OR  REAL  I OF  TUO-HORO 
NOOE8  IN  THE  PORN:  UINPKTI AXIS.NOOCI . THE  HEAD  NODE  CONTAINS  A POINTER 

TO  THE  HIGHEST  NODE  CURRENTLY  USED  AND  THE  PACKET  SIZE  IN  NODES.  THESE 
TUO  NUHOERS  ARE  ALWAYS  STORED  AS  INTEGERS.  REGARDLESS  OP  THE  ARRAY  TYPE. 


NDEP  PROC 


• ALL  AXIS  AND  NODE  NNENONICS  ARE  SHOWN  BELOW: 


C« 

C« 

C* 

C« 


C* 

C* 

c* 

c* 

c* 

c* 


c* 


PARAHETER 

AXIS  AXIS 

NNENONIC  NEANINO 


A HENTER>1. 
A MUSED- I . 

A HSIZE-B. 

A HLAT-I. 

A HLGN-B. 

A HLIN-I. 

A HSAN-B. 

A UCGL-B. 

A UEA  -I. 

A UNO  -B. 

A MX  -I. 

A UY  -B 


A highest  node  used  (IN  NODE  WHEAD  ONLY  -•  (OLD  PORHII 
I HIGHEST  node  USED  (IN  NGOE  WHEAO  ONLY) 

a packet  size  in  nodes  (in  node  whead  only) 
a LATITUDE 
a LONGITUDE 
a LINE 
a SAMPLE 
a COLUMN 

a easting 
a northing 

a X 
a Y 


parameter 

USED/ NODE  USED  NODE 

MNEMONIC  MEANING  CONTENTS 


A MNUL  -0.  a NO  HINOOU 
A UHEAO-I.  A 
A UNiN  -B.  a 
A UMAX  -S.  a 

A k'PIOO-N.  a NO  TICKS  OR  ORIGIN 
A UTIC  -s.  a 
NTIC«>I 


UlNOOU  HCAO 
ENVELOPE  Ml  Ml  NUN 
ENVELOP'’  MAXIMUM 

oata  Increments* too 

PRIMARY  tick  INTERVALS 
SECONDARY  TICK  INTERVALS 


Q-MS 


NACROt 


NO  I 


MlNOOH'MOet 

000 


A HORio-7.  a NO  vcRriers  orioin  or  vcRriees 

a HVCR  *0  a CIQSINO  vcrtcx 

c«  uvCR*i  RcerANOLC  vecroR  isr  vcRrex 

e«  HVCR^O  RCCTANOLC  OIAOONAL  ONO  VCRTex 

C«  MVCR^l  TRIANOLC  OOUNOARY  3RD  VCRTCX 

e«  HVCR«N  N'ORAN  OOUNOARY  NTH  VCRTCX 

C« 

c* 

c* 

e«  NOTCSt 

C«  I.  ROLYORAN  VCRTICCS  ARC  ALUAYS  STORCO  IN  COUNTCR'CLOCKHISC  CCCWI  OROCR 

C* 

c«  a.  thc  closino  vcrtcx  or  an  n-oram  contains  a ouplicatc  or  thc  n-th 

C*  VCRTCX  (LAST  VCRTCXI . 

C* 

CNO 


KONIUU  PROC 

C 

C* 

PARANCTCR  HUI>3  a NUNBCR  Or  NOOCS  IN  INPUT  UINOOU  PACKCTS 

CONHON/KONIMH/  a INPUT  UlNOOH  PACXCTS: 

I KOHlHNCti.  a NANC  Or  CONNON  BLOCK 

B NSAIMHIB.HUt ) . a NULTISPCCTRAL  SCAN  AOJUSTCO  COOROINATCS 

3 coRtuuiB.uun  a corrcctco  scan  cooroinatcs  (from  moocd 

DATA  KONIUHC t ) / ‘KOMIUU* / 

DATA  a PACKCr  size  (Nooest: 

B HSAIHUIB. I ) /HMl / 

3 coRiuu(B.n/HHi/  a intcgcr  in  rcal  arravi 
c« 

r«3 


KONOHU  PROC 

c 

c* 

PARANCTCR  UU0-B6  a NUNBCR  OF  NOOCS  IN  OUTPUT  MlNOOH  PACKCTS 
CONNON/KONOHH/  S OUTPUT  HI  NOON  PACKCTS: 

I KONOuuin.  a nanc  or  connon  block 

0 KSYOHU(B).  a OUTPUT  COOROINATC  SYSTCN  NANC8  FOR  CACH  NOOC 

0 NSAOHHIB.UHOI . a NULTISPCCTRAL  SCAN  AOJUSTCO  COOROINATCS 
3 OCOOHHIB.HHOI . a OCOORAPHIC  COOROINATCS  (OCORCCSt 
•»  utnouucb.hho*  . a utn  cooroinatcs  INCTCRSI 
9 PPOOHUIB.UHOI  a print/plot  ocvice  cooroinatcs 
data  KONOHHI  I WKONOUHV 
OATA  a PACKCT  size  (NOOCSIt 
B NSAOHUIB.n/UUO/ 

3 OCOOHHIB.il/HUO/  a INTCOCR  IN  RCAL  ARRAVI 

* UTN0UU(B.II/UH0/  a intcocr  in  rcal  arrayi 

9 PPOOUNIB.tl/UUO/  a INTCOCR  IN  RCAL  ARRATI 

c« 

CNO 


Q-<»0 


OAN  PACKAOC  AMCNOtX  Q HtNOOM<>PIIOet 

HACIIOS  OOS 


Q><»7 


ENOn 


MACHOS 


XQTLOO-HHOeS 

sot 


e 

e 

c 

c 


XOrtOO-MOCS  A COMMON  BLOCKS  FON  AXOT  A OAN  LOO  riLC  NANiMULArtON 


history 

c 

N 

SCHLOSSER 

LEG 

IB/B7/73 

E 

N 

SCHLOSSER 

LEC 

tB/0t/7S 

E 

H 

SCHLOSSER 

LEC 

0I/03/7B 

E 

H 

SCHLOSSER 

LEC 

I0/BB/7B 

E 

H 

SCHLOSSER 

LEH8C0 

OB/BS/BO 

ONIOINAL  COOe  IN  FONFMOCS 
SCPANATC  INTO  XQTLOO-PMOCS 
MAOLCV  COUNTCR 

BIOOCR  LOO  BUFft.  MOO  PKT.  HCOLOR  SW 
LOCAL  NOOe  SHtrCH  A NOOe  SNITCH  SAVe 


c 

c 

SY8X0T 

C 

c« 

c« 

c» 

c« 


PROC 


FOR  INCLUSION  IN  BLOCK  DATA  SUBROUTINE  SYS-SLOCK  ONLY 
must  not  BE  INCLUOEO  IN  EXECUTABLE  SUBROUTINES  111 


COHHON/KOMXQT/  A PROORAH  ID  AND  STATUS  INFO: 

1 NSHTCHIE).  A MODE  ShIICHES  I NO  >;EFINES  IN  BLOCK  DATA  SUB> 

JNOY. JHHS.  JOHN.  A PROORAH  AXQT  OATE/TIhE  (FIELOATA) 

JPRTCN.JRUNIS) . JPROO(N) . JHOYHHISi . A PROORAN  HEAOINO  LINE  0 


JH00II2.EI.  A 

linch.kinch.  a 

LPAOE.KPAOE.  A 

lsinch.  a 

LSPAOe.  A 

KONPRT.  A 

HNEHON.  A 

I halth.  a 

B hsalth.  a 

3 ncaro.npaoe.nline.  a 
•»  noharn.nofatl .nototl.  a 

5 NOCLRU.NOCLRF.  A 

6 NUNOON  A 


C 

c 

c 

c« 

CNO 


HEAOINO  LINES  1 A 8 
OAN  LINES/INCH.  COLUMNS/ INCH 
OAN  LINES/PAOE.  COLUNNS/PAGE 
INSTALLATION  SYS-CEN  LiNES/iNCH 
INSTALLATION  SYS-OEN  LINES/PAOE 
PRINT  CONTROL:  * AUT ’ / * NAN  * / ' NON  * 

OEVICE  TYPE  MNEMONIC  FOR  ONSITE  PRINTERS 
0AM  MAX  NO  ALT  PRT  FILES  (NALTH  <«  MSALTMI 
SYS-OEN  MAX  NO  ALT  PRT  FILES  IMSALTM  « SMALTMI 
CARO/PAOE/LINE  COUNTERS 

OIAONOSTIC  COUNTERS  (SEE  MOUARN.  MOFATL.  ETC. I 

clearance  counters 

UINOOH  NUMBER: 

0 * INITIAL  VALUE 
<0  • REAOY  FOR  FIRST  HINOOU 
>0  • NEXT  UINOOH  (OR  HINOOU  IN  PROCESS! 


KONXOr 
C 

c« 

c* 

c« 

c* 


PROC 


FOR  INCLUSION  IN  EXECUTABLE  SUBROUTINES  ONLY 

MUST  not  be  INCLUOEO  IN  BLOCK  OAT A SUBROUTINE  SYS-BLOCK 


I I 


COMMON/ KONXQT/  • PROORAN  10  ANO  STATUS  INFO: 

1 NSUTCN(fl.  • NOOE  SNITCHES  (SEE  OEFINES  BELOUl 

t JMOY. JNNS. JOHN.  • PROORAN  OXOT  OATE/TInE  (FIELOATaI 

3 JPRrCN.JRUN(3i.JPR00(N!.JH0YNH(3l.  • PROORAH  HEAOINO  LINE  0 
•>  JHOOIII.BI.  • HEAOINO  LINES  I I t 


0*N0 


OAN  MCKAOC  AI>KNOIX  Q 
HACmt 


XOTLOO*#IIOCt 

sot 


* 


* 


c 

c 

c 

c« 


c* 


c* 

CNO 


5 LtNCN.KINCH. 

• ttAOC.KPAOC. 

7 LStNCH. 

• LttAOC. 

• KONtMr. 

0 NNCnON. 

1 NALTN. 
t NSALTH. 

I NC ARO.NSAOC.nl I Nt. 

N NOUARN.NOFArL.NOrort. 
9 NOCLRH.NOCLRr. 

6 NUNOOU. 


7 HSUSAVI8I 


0 OAN  LINCS/INCN.  C0LUHN9/INCN 
S OAN  LlNCt/RAOC.  COLUNNS/SAOC 
S INtTALLATION  SYS-OCN  LtNCt/INCN 
a INSrALLATION  SYS'OCN  LINCS/RAOC 
a RNINT  CONYROLt  *AUT */ *NAN*/ *NON* 

a ocviee  tyrc  nncnonic  for  onsitc  rrintcrs 

a OAN  NAX  NO  ALT  RRT  FILC8  (NALTN  <•  N8ALTHI 
a SY9-0CN  NAX  NO  ALT  FRY  FILCS  (HSALYH  * SNALYNt 
a CARO/RAOC/LINC  COUNYCRS 

a OiAONOSYIC  COUNYCRS  CSCC  NOUARN.  HOFAYL.  CYC. I 
a CLCARANCC  COUNYCRS 
a HI  NOON  NUN8CR: 

0 • INIYIAL  VAL UC 
<0  • RCAOY  FOR  FIRST  HI  NOON 
>0  > NCXY  HINOOH  (OR  HlNOOH  IN  PROCCSS> 

a SAvco  Hooc  suircHCs 


INYCOCR  JRPtOY(tO> . JPI0YI7I 

CQUIVALCNCC  ( JRUN( 1 1 .URPlOYI I ) I . ( JPROOM ) . JPI OT ( I I ) 


OCFINC  NBArCH«FLO(OO.S.HSHYCH( I ) I 
OCFINC  NCFtRH«FLO(Oe.6.N8HTCH( I ) ) 
OCFINC  NCHCCK>FLO( la.O.HSHTCHC I I I 
OCFINC  NCCHO  •FLOl ta.8.NSHYCH( I n 
OCFINC  HOATACaFLOICH.O.HSUTCHI I ) I 
OCFINC  NAOLCV«FLO(30.6.NSurCH( I I ) 
OCFINC  NLCONO«rLO(00.6.NSHYCH(2> ) 
OCFINC  NC0L0R*FL0(06.6.NSHTCH(2> I 
OCFINC  NLOCAL-FLOl IS.S.NSHTCHiai > 
OCFINC  NPRONr-FLOMO.e.NSUTCHCa)  I 
OCFINC  NOUNP  •FL0(2**.6.HSHYCH(ai  I 
OCFINC  MTRACC«FLO(30.8.HSHrCH(a) I 
INYCOCR  KOHXQTdl 

CQUIVALCNCC  ( NSH YCH (II. KONXQT (III 


a I -BATCH.  O-OCHANO 
a l-CONPIRH.  O-OON'T 
a l-CHCCKOUT.  0-PROOUCT!ON 

a i-ccHO.  O-OON’T 
a I -oata/chcckout 
a OTNAHIC  CSFS  aAOO  LCVCL 
a t-LCOCNO.  O-NONC 
a l-COLORCRT.  O-NONC 
a I -LOCAL.  O-NOT 
a l-PROMPT.  O-OON’T 
a t-ouNP.  O-OON’T 

a I . .63-TRACC. O-OON’T 


XQYOCF  PROC 

C* 

C-  THIS  FUNCTION  RCTURNS  A ZCRO  OR  ONC . INOICATINO  HHCThCR  ThC  FIRST 
C*  LCTTCR  OF  THC  SYRINO  AROUHCNT  HAS  SPCCIFtCO  AS  AN  OPTION  ON  THC  aXQT 

e«  CARO.  BCFORC  RCFCRCNCINO  THIS  FUNCTION.  AN  ARRAY  NANCO  JPCT  nuST  BC 

C*  LOAOCO  HITH  at  LCAST  THC  FIRST  16  HOROS  OF  THC  PROORAH  CONTROL  YABLC 
C*  BY  A CALL  TO  CRPCT. 
c« 

OCFINC  XQYOPY(SYRlNOI-FLO(  (•»*STRtNO/B*«30l . 1 .UPCYdSI  I 

e* 

CNO 


KONLOO  PROC 

C— 


Q-V9 


0*11  MCKAOC  AOOCNOIX  Q 
NACIIOO 


XQTtOO>OIIOCt 

•OX 


c* 


c* 

CNO 


COHHON/KOHLOO/  • 1/0  OAeKer/oiirrcR/ooiNTeos  ron  loo  rite  (unit  iit 


LOOCr.  • OOINTCR  TO 

Looior.  • PoiNrcR  ro 

L ONOrC . L OHARN . L or A rt . 


LOrCRM.  • 

LOORKTiat.  • 
LturRfOI.  • 
LONSCC.  > 

Locsrtxt.  • 
LOoriL(6>.  a 
LiurRRtoi.  a 

LUOPKTtOl  8 
eOUIVALCNCE 
I ILSUrRm.LRUNtOt 
9 aSUPRiS)  .LOPLO)  . 
3 ILBUPRtS) .LOPHI > . 
•»  (LBurR(*»1  .LORHl ) . 
S IL8UFR(5> .L0HAX1 


poiNrcR  ro 

I/O  PACKET 


per  SECTOR 
IO/OATE/TINE  SECTOR 
a POINTERS  ro  OlAONOSriC  sector 
TERNI NATION  SECTOR 
FOR  LOO  FILE  l•|•.•  M 
FIRST  S UOR08  OF  99  WORD  LOO  BUFFER 
NUNBER  OF  SECTORS  IN  LOO  FILE  (INITIALLY) 

FIRST  3 HOROS  OF  CSFS  STRING  (INITIALLY  *a*.*USE  I.*.* 
EXTERNAL  NAHE  OF  LOO  FILE  POLLOUEO  BY  ‘ * ( INITIALLY) 

LAST  S HOROS  OF  99  UORO  LOO  BUFFER 

I/O  PACKET  FOR  OlAONOSTtC  NSO  OUEUE  FILE  ('HOQUEUE*) 
a LOO  FILE  HEAOER 

EXCLUSIVE  ACCESS  MORO 
POINTER  TO  PCr  SECTOR  FOR 
POINTER  TO  PCT  SECTOR  FOR 

POINTER  TO  PCT  SECTOR  FOR  FIRST  PROO  OF  NEWEST  RUN 


OLDEST  PROORAN 
NEWEST  PROORAN 
FIRST  PROO  OF  NEWEST 


POINTER  TO  HAXIHUn  PCT  SECTOR  ALLOWED 


INTEOER  KONLOOdl 

eoUI VALENCE  (LOPCr.KONLOO( t ) I 


0*80 


OM  ^ACKAOC  APKNOU  R 
CMAII/tYrC/srillNO  MNiriNCt 


RRCrACC-R 

oai 


McrACC  ro  arkmoix  r 


TNC  rUNCTIONt  AND  TRARSfORHS  IN  THIS  ARKNOIX  ARC  OCSIONCO  TO  tUMORT 
ORCRATIONS  ON  INTCOCR  STRINOS.  CNARACrCR  STRIN08.  CHARACrCR  SUFrCRS. 
CNARACrCRS.  RYTC  STRINO*.  BYTCS.  ANO  NYRLCt  IN  AS  NCARLY  NACNlNC'INOCRCNOeNr  A 
MANNER  AS  POSSIRLC.  ONLY  A VERY  TCH  RRINITIVC  ROUTINES  ARC  EVEN  AWARE  OF  THE 
NACMINC'OCRENOCNY  INTERNAL  REPRESENTATION  OF  THE  OATA. 


NOMENCLATURE 


INT  (INTEOER): 

A FORTRAN  INTCOCR  VARIABLE  OR  CONSTANT  CONTAINING  THE  INTERNAL 

representation  of  a sioneo  fixed  point  number  with  a naonituoe  less 
THANa«*3l.  TO  maintain  MACHINE  INDEPENDENCE.  VALUES  OUTSIDE  THIS 
RANOE  ORDINARILY  SHOULD  NOT  BE  USED. 

1ST  (INTEOER  STRINO>: 

A FORTRAN  INTCOCR  ARRAY  INTERPRETED  AS  A STRING  OF  INTEGERS. 

CST  (CHARACTER  STRING): 

A FORTRAN  INTCOCR  ARRAY  OR  HOLLERITH  LITERAL  CONTAINING  THE  PACKED  INTERNAL 
representation  of  a STRINO  OF  CHARACTERS  IN  THE  NATIVE  CHARACTER  CODE  OF  A 
MACHINE.  THE  NUMBER  OF  BITS  PER  CHARACTER  ANO  THE  NUMBER  OF  CHARACTERS  PER 
WORD  IS  KNOWN  ONLY  TO  THOSE  PRIMITIVE  ROUTINES  WHICH  EXTRACT  OR  INSERT 
INDIVIDUAL  characters.  HOWEVER.  THE  PACKED  CHARACTER  MUST  NOT  CONTAIN 
MORE  THAN  8 SIGNIFICANT  BITS  (EXCLUOINO  PAD  BITS). 

LCN  (LCNOTH  OF  CHARACTER  STRING  OR  SUB-STRING) 

TNO  DIFFERENT  LENGTHS  ARE  ASSOCIATED  WITH  EACH  CHARACTER  STRINO: 

the  physical  length  of  a CHARACTER  STRING  IS  FIXED  ANO  UNCHANGEABLE  -- 
FOR  A CHARACTER  STRINO  CONTAINED  IN  A (POSSIBLY  DIMENSIONED) 

INTEOER  variable.  ITS  PHYSICAL  LENGTH  IS  THE  MAXIMUM  NUMBER  OF 
CHARACTERS  WHICH  THE  VARIABLE  CAN  HOLD.  FOR  A CHARACTER  STRINO 
DECLARED  AS  A HOLLERITH  LITERAL.  ITS  PHYSICAL  LENGTH  IS  DETERMINED 
BY  THE  COMPILER. 

THE  LOGICAL  LENGTH  OF  A CHARACTER  STRINO  IS  VARIABLE  ANO  DEPENDS 

UPON  THE  CURRENT  CONTENTS  OF  ThE  STRING  --  LOGICAL  LENGTH  IS  THE  SUN 
OF  ALL  LEADING  BLANK  CHARACTERS.  EMBEDDED  BLANK  CHARACTERS.  ANO 
NON-BLANK  characters  WIThIN  THE  PHYSICAL  STRING.  LOGICAL  LENGTH 
IGNORE*  TRAILING  BLANK  CHARACTERS.  (IF  THE  STRING  CONTAINS  ONLY 
BLANK  iARACTERS.  THEN  THE  FIRST  BLANK  IS  CONSIDERED  LEADING.  ANO 
ALL  the  rest  trailing.  YIELDING  A LOGICAL  LENGTH  OF  1 CHARACTER.) 

the  length  of  a substring  within  a STRINO  IS  explicitly  specified 
BY  THE  PROORANNER  ANO  IS  INDEPENDENT  OF  EITHER  THE  PHYSICAL  OR  LOGICAL 
length  of  the  parent  STRINO. 

LOC  (LOCATION  OF  INT.  CHR.  ICE.  BYT.  NYB.  OR  SUBSTRING  WITHIN  STRING) 

LOCATIONS  IN  A STRING  ARE  ALWAYS  NUMBERED  IN  INCREMENTS  OF  I FROM  LEFT 
TO  RIGHT,  starting  WITH  I. 


OAN  l»ACKAOC  AMCNOtX  R 
CMAR/eyrc/trRiNo  routincs 


RRCrACC-R 

00» 


CR  (CNARAcrcR  turrcRi i 

A rORTRAN  INTCOCR  ARRAY  CONTAININO  YNC  RACKtO  IRYCRNAL  RCRRCSCNTAriON 

or  A strino  or  cmaractcrs  in  ync  nativc  charactcr  cooe  or  a hacninc. 
roocTMCR  WITH  tnc  riAot  ANO  roiNrcRS  Nccoco  roR  lurrcR  nANiruLArioN. 

YNC  ACTUAL  RerRetCNTATION  ANO  POSITtON  HITNIN  TMC  RUrrCR  Or  ITS  riAOS 
ANO  ROINTCRS  IS  KNOHN  ONLY  TO  TNC  MIHITIVC  OUrrCR  NANIRULATION 
RouriNCs. 

CNR  (CNARACTCRI t 

A rORTRAN  INTCOCR  VARIAOLC  OR  CONSTANT  CONTAININO  TNC  UNPACKCO  INTCRNAL 

rcprcscntation  op  a sinolc  charactcr  in  tnc  nativc  charactcr  COOC  or  A 

NACNINC.  LCrr-ALIONCO  ANO  RI0HT*PILLC0  HITH  SPACCS.  NUHCRtC  COHPARISONS 
eCTUCCN  CHARACTCRS  SHOULD  NOT  SC  HAOC . 8INCC  ThC  RCSULTS  OCPCNO  ON 
OIPPCRCNT  NACHINC  CONVCNTtONS  POR  RCPRCSCNTINO  THC  SION.  THC  NATIVC 
CHARACTCR  COOC  POR  UNI  VAC  PORTRAN  V IS  6*8IT  PICLOATA. 

ICC  (INTCOCR  CHARACTCR  COUIVALCNT): 

A NON'NCOATIVC  PORTRAN  INTCOCR  VARIAOLC  OR  CONSTANT  CONTAININO  THC  UNPACKCO 
INTCRNAL  RCPRCSCNTATION  OP  A SINOLC  CHARACTCR  IN  THC  NATIvC  CHARACTCR 
COOC  OP  A NACHINC.  SO  ALIONCO  THAT  THC  I -C -C  CORRCSPONOS  TO  ITS  CHARACTCR 
COLLATINO  SCQUCNCC.  starting  PRON  ZCRO.  NUNCRIC  COHPARISONS  HAY  ec 
PCRPORHCO.  OCARINO  IN  NINO  THAT  THC  RCSULTS  HILL  VARY  HITH  OIPPCRCNT 
CHARACTCR  COOCS.  POR  UNiVAC  PORTRAN  V THC  l-C*C*S  RANOC  IS  0 TO  63. 

BST  tgrre  string) i 

A PORTRAN  INTCOCR  ARRAY  CONTAININO  THC  PACKCO  INTCRNAL  RCPRCSCNTAT I ON  OP 
A string  op  BYTCS.  CACH  PACKCO  BYTC  CONTAINS  8 SIONIPICANT  BITS  ANO  NAY 
ALSO  CONTAIN  ANY  NUNBCR  OP  ZCRO'PILLCO  PAD  BITS  RCQUIRCO  BY  THC  HAROHARC 
TO  ACHICVC  CPPICICNT  BYTC  ACCCSS.  THC  TOTAL  NUNBCR  OP  BITS  PCR  PACKCO 
BYTC  ANO  THC  NUNBCR  OP  BYTCS  PCR  HORO  ARC  KNOHN  ONLY  TO  THOSC  PRIHITIvC 

routincs  hhich  cxtnact  or  inscrt  inoivioual  bytcs.  on  uni  vac  tiio 
SCRICS  COHPUTCRS  THCRC  ARC  POUR  S-BIT  PACKCO  BYTCS  PCR  HORO. 

B<N>  (CXTCRHAL  BYTC  STRING) i 

A PORTRAN  INTCOCR  ARRAY  CONTAINING  THC  PACKCO  CXTCRNAL  RCPRCSCNTATION 
OP  A string  op  bytcs.  CACH  PACKCO  BYTC  CONTAINS  N BITS.  OP  HHICH  NOT 
HORC  than  B arc  SIONIPICANT.  ALL  NON-SIONIPICANT  BITS  (IP  ANY)  ARC 
ZCRO'PILLCO.  HOST  CONNONLY.  N IS  CQUAL  TO  B.  TO  INSURC  NACHINC 
INOCPCNOCNCC.  THC  RROORANNCR  SHOULD  ASSUNC  THAT  THC  CXTCRNAL  ANO 
INTCRNAL  RCPRCSCNTAT IONS  OP  BYTC  STRINGS  ARC  OIPPCRCNT.  AND  CALL  ThC 
APPROPRIATC  routincs  TO  CONVCRT  ThCN  APTCR  INPUT  ANO  BCPORC  OUTPUT. 

BYT  (BYTC) I 

A NON-NCOATIVC  PORTRAN  INTCOCR  VARIABLC  OR  CONSTANT  RCSTRICTCO  TO  B 
SIONIPICANT  BITS.  SO  ALIONCO  THAT  THC  RANOC  IS  0 TO  *CSS.  TO  NAINTAIN 
NACHINC  INOCPCNOCNCC.  VALUCS  OUTSIOC  THIS  RANOC  NUST  NOT  BC  USCO. 

RCOAROLCSS  or  THC  ACTUAL  NUNBCR  OP  BITS  PCR  PACKCO  BYTC  ON  A PARTICULAR 
NACHINC.  THC  CONTCNTS  OP  A BYTC  NAY  BC  INTCRPRCTCO  AS  THC 
iNTCOCR'CHARACrCR-CQUl VALCNT  OP  A SINOLC  CHARACTCR  PRON  A PORCION 
charactcr  COOC.  AN  UNSIONCO  INTCOCR.  OR  ThC  CONPLCNCNT  RCPRCSCNTATION 
IN  B BITS  OP  A SIONCO  INTCOCR  BCTUCCN  •IB7  ANO  *IC7. 


OAK  PACKAOC  AMCNOiX  H 
CNAII/lvrC/trRINO  MOUriNCt 


mrACC-M 

DOS 


NYI  (NVtLC)i 

A NON-NCOAriVC  roATRAN  INTCOCR  VARUtCC  OR  CONtTANr  RCtTRICTCO  TO  •» 

siONirtCANr  tirt,  to  alionco  that  tnc  ranoc  it  o ro  «it.  ro  naintain 

NACNINC  INOCRCNOCNCC.  VALUCt  OUTtlOC  THIt  RANOC  NUtT  NOr  iC  UtCO. 
RCOAROLCtt  or  TNC  ACTUAL  NUHOCR  Of  II Tt  NCR  RACKCO  NYlLC  ON  A RARTICULAR 
NACNINC.  THC  CONTCNTt  OF  A NYlLC  NAY  IC  INTCRRRCTCO  At  A 
NALr-lYTC.  A tNALL  UNtlONCO  INTCOCR.  OR  THC  COHRLCHCNT  RCMCtCNTATION 
IN  •»  II  Tt  or  A tIONCO  INTCOCR  ICTUCCN  -7  ANQ  *7. 

HCX  (NCXAOCCINAL  0101 Tli 

A rORTRAN  INTCOCR  VARlAlLC  OR  CONITANT  CONTAININO  THC  UNRACKCO  INTCRNAL 
RCMCtCNTATION  Or  A tiNOLC  CNARACTCR  HITnIN  THC  RANOC  ‘0*  THRU  ’0* 

ANO  *A*  thru  *r*  IN  THC  NATIVC  CNARACTCR  COOC  Or  A NACHlNC. 

LCrT'ALIONCO  ANO  RIOHT-riLLCO  HITH  SPACCt.  THC  CONTCNTt  Or  A HCXAOCCIHAL 
OlOIT  HAY  BC  INTCRPRCTCO  At  THC  ChARACTCR  RCPRCSCNTAT I ON  Or  A NY0LC. 

OlV  (00U8LC  BYTCi^ 

A ^iON•NCOATI  VC  rORtRAN  INTCOCR  VARIABLC  OR  CONSTANT  RCtTRICTCO  TO  16 
SIONiriCANT  BITS.  80  ALIONCO  THAT  THC  RANOC  IS  0 TO  *6S.S3S.  TO  NAINTAIN 
NACNINC  INOCPCNOCNCC.  VALUCS  OUTtlOC  THIS  RANOC  NUST  NOT  BC  USCO. 

THC  CONTCNTt  Or  A OOUBLC  BYTC  HAY  BC  INTCRPRCTCO  At  THO  CATCNATCO 
BYTCS.  AN  UNtlONCO  INTCOCR.  OR  THC  CONPLCHCNT  RCPRCSCNTaT I On  IN  10 
BITS  or  A SIONCO  INTCOCR  BCTHCCN  >32.767  ANO  *32.787. 

QBY  CQUAORUPLC  BYTOt 

A rORTRAN  INTCOCR  VARIABLC  OR  CONSTANT  RCtTRICTCO  TO  32 
SIONiriCANT  BITS.  ANY  NON-SI  ONI riCANT  BITS.  IT  PRCSCNT.  ARC  ZCRO 
riLLCO.  THC  SION  or  a QUAORUPLC  BYTC  IS  NACHlNC  DCPCNOCNT  ANO 
THCRCrORC  CONSIOCRCO  UNOCriNCO.  THC  CONTCNTS  Or  A QUAORUPLC  BYTC  NAY 
BC  INTCRPRCTCO  AS  roUR  CATCNATCO  BYTCS.  OR  AS  THC  CONPLCHCNT 
RCPRCSCNTATION  IN  32  BITS  OF  A SIONCO  INTCOCR  HITH  A HAONITUOC  LCSS 
than  2««3I . 

KONC  (ONC't  CONPLCHCNT I 

A rORTRAN  INTCOCR  VARIABLC  CONTAININO  THC  ONC'S  CONPLCHCNT  RCPRCSCNTA- 
riON  IN  A tPCCiriCO  NUHBCR  or  SIONirtCANT  bits  (typically  <*.  B.  IB.  32) 
or  A SIONCO  INTCOCR.  ANY  NON-SI ONiriCANT  BITS,  ir  PRCSCNT.  ARC  2CR0 
riLLCO.  THC  SION  OF  ONC*t  CONPLCHCNT  RCPRCSCNTAT I 0N8  HITH  rCUCR  THAN 
32  BITS  It  ALNAYS  POSITIVC.  ThC  SION  or  ONC'S  CONPLCHCNT  RCPRCSCNTATtONS 
HITH  32  BITS  IS  NACHlNC  OCPCNOCNT  ANO  THCRCroRC  CONSIOCRCO  UNOCriNCO. 
ONC’t  CONPLCHCNT  RCPRCSCNTaT I ONS  HITH  HORC  THAN  32  BITS  SHOULD  NCVCR  BC 
UtCO.  ONC’S  CONPLCHCNT  RCPRCSCNTATtONS  HUST  BC  CONVCRTCO  TO 
ordinary  iNTCOCRt  UlTH  NORHAL  SION  CXTCNSION  BCPORC  BC I NO  USCO  IN 
ANY  ARIThNCTIC  OPCRATIONS. 

KTHO  (TUO’t  CONPLCNCNTI 

A rORTRAN  INTCOCR  VARIABLC  CONTAININO  THC  THO’S  CONPLCHCNT  RCPRCSCNTa- 
riON  IN  A SPCCiriCO  NUHBCR  or  SIONiriCANT  bits  (typically  <*.  B.  IB.  32l 
or  A tIONCO  INTCOCR.  ANY  NON-tlONiriCANT  BITS,  ir  PRCSCNT.  ARC  ZCRO 
riLLCO.  THC  tION  or  ThO’S  CONPLCHCNT  RCPRCSCNTATtONS  HITH  rCHCR  THAN 
St  BITS  It  ALUAYt  POtITivC.  THC  SION  or  TUO'S  CONPLCHCNT  RCPRCSCNTaT IONS 
UITN  32  BITS  IB  NACHlNC  OCPCNOCNT  AND  THCRCrORC  CONSIOCRCO  UNOCriNCO. 

TMO’t  CONPLCHCNT  RCPRCtCNTATIONt  HITH  NORC  THAN  32  BITS  SHOULD  NCVCR  BC 
UtCO.  THO’t  CONPLCHCNT  RCRRCtCNT AT  I ONS  NUST  BC  CONVCRTCO  TO 
OROINARY  INTCOCRt  HITH  NORHAL  SION  CXTCNSION  BCrORC  SCI  NO  USCO  IN 


PM  PACKAOC  APKNOtX  M 
CHAR/PVrC/trPINO  ROUrtNCt 


MCrACCHI 

et* 


ANY  ARtYNNCrte  ONCRATlONt. 

truO*«  COMNLCMCNT  NAS  t RCMCtCNT  AT  IONS  fOR  ZCROi  -0  A *01 


USAOC 


ro  NtNINtZC  HACHINC  OCRCNOCNCC.  ORCRATIONS  INVOtViNO  A HACNINC’S  NATIVC 
CNARACrCR  coot  SHOULD  ALWAYS  UTILIZC  THC  CST/CHR/ICC  rANILY  Or  ROUTINCS. 
HNILC  rwosc  INVOLVtNO  rORCION  CHARACrCR  cooes  SHOULD  ALWAYS  UflLtZC  YHC 
t<N>/osr/RYr  rAHiLv  Dr  RouriNCs. 

OOUSLC  SVre/CHARACrCR  riCLOS  should  usually  start  at  an  000 
■YTC/CHARACreR  LOCATION. 

OTHCR  HULTirte  BYTC/CHARACTCR  rtCLOS  should  usually  start  at 
•YTC/CHARACreR  LOCATIONS  t.  8.  8.  ...  (<»«N-3i  ... 

OCTINT  and  RUTINT  arc  RROVlOeO  rOR  COHRATiaiLlTY  IN  NANtPULATiNO  STRINOS 
OP  INTCOtRS.  ThCY  arc  NOT  AS  PAST  AS  CONVCNTIONAL  SUOSCRI PT I NO.  ANO 
SHOULD  ONLY  SC  USCO  HHCN  NCCCSSARV. 

THC  OTHCR  INT  SCRIC8  OP  ROUTINCS  ARC  HIGHLY  CPPICICNT. 

HHCN  PAS8IN0  A CHARACTCR  STRINO  AS  AN  AROUHCNT  TO  A PUNCTtON  OR  SUOROUTINC: 
--  IP  THC  string  is  CONTAINCO  IN  A HOLLERITH  LITERAL.  ThC  COHPILER 
(OR  PRC'COHPILCRI  WILL  APPEND  ONE  (NULCHR)  OR  MORE  (NULCST)  ‘STOP* 
CHARACTERS  TO  HARK  THC  PHYSICAL  END  OP  ThC  STRINO. 

••  IP  THC  STRINO  IS  CONTaINCD  IN  AN  INTCOCR  VARIABLE.  ThC  PROORANHER 
RUST  CITHCR  explicitly  PASS  ThC  LCNOTH  IN  A SEPARATE  AROUHCNT  OR 
CLSC  INSERT  A NULCHR  OR  NULC8T  TO  IHPLICITLY  PASS  ThC  LENGTH  BY 
NARK I NO  THC  END  OP  THE  STRING. 


« SUBROUTINES  PRCPIXCO  WITH  AN  ASTERISK  ARC  • 
« BCINO  PHASeO  OUT  ANO  SHOULD  NOT  BC  USCO I I • 


R-R 


AMCNOI«*ll 

•01 


•AN  OACKAOC  AOOCNOIX  R 
CNAR/iTTC/tTRlNO  ROUflNCt 


•rar.tc  OAH.RRCfACC'R 
•RRT.te  OAN.ARRCNOIX-R 
•rar.te  0AH.At«»ctr 
•Mr.te  OAN.AtACI 
AMT.te  0AM. ••?•»••/ 1 1 00 
•RRr.te  OAN.isri»M/itio 
•Mr.te  OAH.MMtr/i  loi 
•Mr.te  OAN.itHitr/ttio 
•Mr.te  OAN.etiNir 
•Mr.te  OAN.conetr 
•Mxr.te  OAN.etoru 
•Mr.te  OAN.etHiN 
•Mr.te  OAH.CtHRL 
•Mr.te  OAN.CLRQUO 
•Mr.te  OAN.etriiAt 
•Mr.te  OAH.ctr<»ct 

•Mr.te  OAN.CtTHtN 
•Mr.te  OAH.CtTHRL 
•MT.tC  OAN.CURttr 
•Mr.te  OAN.cetHct 

• MT.tC  OAH.CttHtN 
•Mr.te  DAN.CCtHRl 
•MT.tC  OAH.OCOOC 
•MT.tC  OAN.CtHAt 
•MT.tC  OAN.etHCtr 
•MT.tC  OAN.rimct 
•MT.tC  OAH.oeTBYT 
•Mr.te  OAH.OCTCHR 
•MT.tC  OAM.OCTOar 
•MT.tC  OAN.OCTHCX 
•NtO.N  .OCTtCC 
•MT.tC  OAN.OCTINT 
•MT.tC  OAN.OCTNUL 
•MT.tC  OAN.OCTNYt 
•MT.tC  OAH.OCTQtY 
•MT.tC  OAH.OCTOKN 
•MT.tC  OAN.ONAttA 
•MT.tC  OAH.ortYTt 
•MT.tC  OAK.  ICC 
•MT.tC  OAN.tCMR 
•MT.tC  0An.l«»X0NC 
•MT.tC  OAH.I<»KrMO 
• MT.tC  OAN.KHRAIN 
•MT.tC  OAN.KONC**! 
•MT.tC  0AN.KTM0«»I 
•MT.tC  OAN.lAMtA 
•MT.tC  OAN.LtYTCO 
•MT.tC  OAN.LiYTNC 
•MT.tC  OAN.LCNRCQ 
•MT.tC  OAH.LCMNC 
•MT.tC  OAH.lCtrCQ 
•MT.tC  OAN.lCNCtr 
•MT.tC  OAN.ICNRAO 
•MT.tC  OAN.UCCCO 
•MT.tC  OAH.UCCNC 
•MT.tC  OAH.UNTCO 


. fiOOOl  ter  TAit  • It  t tl 

. Aten  orre  troiNO  roR  eNARAercR  rtrino 
. Aten  orre  rtrino  tor  cteoie  rytc  trRiNo 

. INTCRNAI.  lYTC  tTRIRO  TOR  ••■IT  CXTCRNAL  OYTC  tTR 

. INTCRNAL  RYTC  tTRlNO  TOR  t-tlT  CXTCRNAL  OYTC  tTR 

. •••tr  CXTCRNAL  arre  ctrino  for  intcrnal  orre  ctr 

. •••ir  CXTCRNAL  OYTC  tTRlNO  TOR  INTCRNAL  OYTC  tTR 

. initial  ICC  CHANAercR  turret 
. eNARAcrcR  turret  rot  CHAtAcrct  trtiNO 
. eNAtAcrct  turret  rot  rue  i*tCAO*i 
. CNAtAcrct  turret  rot  iNTcoct 

. CNARAcret  turret  rot  tCAt 

. CLCAR  QUAtret-UOtO  HOOC 
. CHAtAcret  trtiNO  rot  Aten  oytc  trtiNO 
. CHAtAcrct  tTtiNo  rot  etcoic  arre  trtiNO 
. CMAtAcrct  trtiNO  rot  iNreoet 

. CNAtAcret  trtiNO  rot  tCAu 

. cutvATutc  ntr  octivATivei  or  oytc  trtiNo 

. VAtlAtLeueNOTN  !<•  • CHAtt  tTtlNO  rOt  CHAt  tTt 

. VAtlAtLe-LCNOTH  (<•  • CHAtl  tTtlNO  rOt  iNTCOCt 

. VAtlAtLe-LCNOTH  !<•  t CHAtl  tTtlNO  rOt  tCAL 

. occooc  NUNCtic  CHAtAcret  trtiNO 
. etcoic  OYTe  trtiNO  rot  accii  arre  trtiNO 
. etcoic  OYTe  trtiNO  rot  CHAtAcret  trtiNo 
. rue  rot  CMAtAcret  turret  f*utire*i 
. aer  NON*Neo  itreoet  rtOH  oytc  in  oytc  trtiNo 
. oer  CHAtAcret  rtON  CHAtAcret  trtiNO 
. oer  NON'Neo  iNreoet  rton  ooutic  tYre  in  oYre  trt 
. oer  MexAoeciHAL  CHAt  rtON  NYOce  in  arre  srtiNO 
. oer  iNTeoet-CHAt-eouiv  rt.^N  chan  trt  itee  oercNt 
. oer  INreoet  rtoN  itreoet  trtiNO 
. tCOIN  ettot  HALKtACK  (AtOt  NATCH  OeTtYT /CHt/ 1 NT 
. OCT  NON'Neo  iNTeoet  rtoN  tme  in  arre  trtiNo 
. oer  INreoet  rtON  QUAOtutie  arre  in  arre  trtiNO 
. OCT  Ncxr  cNAt  trt  I NO  data  no  rtoH  ihaoc  turret 
. otAoieNT  MtT  oetivATivei  or  arre  trtiNO  amay 
. OCT  AttAY  or  NON-Neo  iNTeoett  rtoN  arre  trtiNo 
. INreoet  CNAtAcret  eouivAccNr  irton  CHAtAcreti 
. CHAtAcret  ertON  itreoet  CNAtAcret  couivAieNTi 
. iNTcoet  rot  ONC't  conneNeNT 
. iNTCOCt  rot  TU0‘t  CONtLeNCNT 
. • CNCOOC  0-CNAt  (riCLOATAI  trtINO  rtON  intcocr 
. ONC't  CONtLCNCNT  rot  INTCOCt 
. ruo't  CONtLCNCNT  rot  iNTcoet 

. LAtLACIAN  (tNO  OetlVATIVCl  Or  tYTC  tTtlNO  AttAY 
. LOCATION  or  OYTC  IN  tTtlNO  CQUAL  TO  tCAtCH  tYTC 
. LOCATION  or  tYTC  IN  tTtlNO  NOT  CO  TO  tCAtCH  OYTC 
. LOCATION  or  CNAt  IN  tTtlNO  CQUAL  TO  tCAtCH  CHAt 
. LOCATION  or  CNt  IN  tTtlNO  NOT  CO  TO  tCAtCH  CHR 

. LOCATION  IN  ONC  CMAtACTCt  tTtlNO  Or  ANOTNCt 

. lcnotn  or  CNAtAcrct  trt i no 

. LCNOTN  tAOOCO  TO  NCXT  HQtO  tOUNOAtY 
. LOCATION  or  ICC  IN  trtiNO  cqual  re  ocanch  ice 
. LOCATION  or  ICC  IN  trtlNO  NOT  eo  TO  tCARCN  ICC 

. LOCATION  or  iNTCOCt  IN  tTtlNO  CO  TO  tCARCH  INT 


e«N  PACKAOC  AMCNOIX  N 

CMAR/lvrC/trRtNO  NOUrtNCt 


APMNOIX'N 

oot 


•MIT.te  OAN.UNTNt 
•MIT.tC  OAH.LONCtr 

•rar.tc  OAN.NOvnr/AtN 
•Mir.te  OAH.NOvitr/ron 
•mr.tc  OAN.NOvirr 
•MT.te  OAN.NOVeNR 
•rar.tc  OAN.NOvetr/AtN 
•rar.tc  OAH.NOvctr/roN 
•rar.tc  OAN.NOvotY 
•rar.tc  OAN.NOvitr 
•rar.tc  OAH.Nt«»Ni 
•rar.tc  OAH.NC«»Ni 
•rar.tc  jAH.NCxroK 

•rar.tc  OAN.NiHNt 
•rar.tc  OAH.NIHNC 

•rar.sc  OAH.Purtvr 
•rar.tc  OAH.PurcMN 
•rar.tc  OAN.Purotv 
•rar.tc  OAH.PurHCx 
•Nto.N  .raricc 
•rar.tc  OAH.^uriNr 
•rar.tc  OAN.PurNYt 
•rar.tc  OAH.rarotY 
•rar.tc  OAH.teroMO 
•rar.tc  OAM.tLOCtr 
•rar.tc  OAM.rxuAL 
•rar.tc  OAH.rxuctr 


. LOCAYION  or  INYCOCR  IN  trRlNO  NC  ro  tCANCN  INY 
. • or  CNAN  OrtlNO  LOMCN  in  COLtAriNO  tCQUCNCC 
. NOvc  tYrc  troiNo 

. NOVC  ovrc  trRiNo 

. NOVC  ovrc 

. NOVC  CNARACrCN 
. NOVC  CNANACrCN  tVNlNO 
. NOVC  CNANACrCR  tVNINO 
. NOVC  OOUOLC  tvrc 
. NOVC  INrCOCN  CVRINO 

. NUNOCN  or  ovrct  roo  nuhocn  or  invcocro 

. NUNtCN  or  CNANACrCRt  rON  NUNOCN  Of  iNYCOCNt 
. ocr  roiNrcNt  ro  NCxr  roKCN  in  inaoc  ourrco 
. NUNBCR  or  iNrCOCNt  rON  NUNOCN  or  OYTCt 

. NUNOCN  or  iNreocNt  roN  nuhocn  or  cnanactcno 

. rur  NON'NCO  inrcocN  into  ovrc  or  ovrc  trot  no 
. rur  CNANAcrcN  iNro  chanactcn  ctnino 
. rur  NON'NCO  iNrcocr  into  ooublc  ovrc  or  bttc  otn 

. rur  HCXAOCCiHAL  chan  into  nvblc  in  orrc  trriNO 

. rur  iNrcoCN«CNAN>CQui V into  chan  trr  itcc  rurcHN 
. rur  iNTcocN  into  intcocn  trRiNO 
. rur  NON-NCO  intcocn  into  nvblc  or  ovrc  bnino 
. rur  INTCOCN  into  QUAONurtc  ovrc  or  ovrc  trriNo 
. ter  QUANTCN-HONO  NOOC 
. OLorc  Mtr  ocNivATivci  or  ovrc  otnino 
. TNuc  ir  ctr  It  alnna  (to  irot  * trACO 

. TNUTH  VALUC  or  CNANACTCN  otn I no  COHNANItON 


AtietT 

OtI 


OAN  PACKAOC  AMCNOIX  N 

CNAR^em/srNtNQ  Mourmct 


•UMOMTINC  AtACtn  • Aten  lYrC  STAINO  rON  CHAR  tTRINO  IflCLOArA  I 

0 jAMur.  • Aten  tyre  trniNO 

• 

t ^ttwr.  • iNtCIINAl  CNARACrCR  tTRINO 

1 NCNARtl  t NUNtCR  Of  CNARACTCRt  TO  CONVCRT 

ITNC  tANC  ACTUAL  AROUNCNT  HAT  OC  UtCO  fOR  JCtOUT  A UAtOUfI 


NttTORT 


C N tCNLOttCR  LCC  07/00/70  ORtOlNAL  COOC 


NCTNOO 


TAOLC  LOOK'UR. 


NACMINC-OCRCNOCNT  COOC 


TRANtLATC  TAtLC. 


CXrCRNAL  ACrCRCNCCt 


ocriec  A OCT  i-c>c  tron  cmaractcr  otrino 

RUTOTT  • RUT  OYTC  INTO  OTTC  tTRINO 
CXeCRTIONt 

1.  UAtOUr  It  UNCNANOCO  If  NOTTt  It  LCtt  THAN  I. 

0.  NO  OTMCR  CNCCKt  ARC  HAOC  ON  ANY  OR  ThC  AROUNCNTt. 

OLOtAL  OCCLARATIONt 


NONC. 


LOCAL  OCCLARATIONt 


INTCOCR  NCN  0 NUHOCR  OR  CNARACTCRt  CONVCRTCO 

INTCOCR  Nice  0 t-e*C  OR  CNARACTCR  OCINO  CONVCRTCO 

INTCOCR  JTTA«»C<0<M  0 TRANtLATC  TAOLC  --  AtCII  OYTC  ROR  CNARACTCR 


e 

e 


R>7 


u 


lAM  ^ACKAOC  AP^tlOIX  N 

(HAA/trrc/trRiNO  Aounuct 


AtACVT 

OM 


0 I t X <1  • t t 

DATA  jrrAAC  t 

A I f • A A e 


ft 

ft*. 

91. 

9S. 

19.  9H. 

SO. 

99.  99. 

e 

0 

ff 

r 0 

N 

i 4 

t 

97. 

09. 

09. 

70.  71. 

7». 

71.  7H. 

R 

L 

N 

N 0 

0 

0 0 

t 

79. 

70. 

77. 

79.  79. 

00. 

•1.  90. 

0 

T 

u 

V H 

X 

T I 

9 

9X. 

OH. 

09. 

00.  97. 

00. 

90.  00. 

1 

• 

♦ 

< • 

> 

A 0 

% 

HI  . 

HO. 

HI. 

00.  01. 

00. 

SO.  39. 

• 

( 

1 

t 7 

1 

. X 

9 

HO. 

HO. 

17. 

09.  OS. 

S3. 

HH.  00. 

0 

1 

C 

S H 

9 

9 7 

0 

HO. 

HO. 

00. 

Ot.  Of. 

9S. 

OH.  99. 

9 

0 

« 

1 t 

■ 

7 

90. 

97. 

10. 

99.  H7. 

HO. 

SH.  99/ 

AAOCCOUAC 


CMCCK  rOA  NULL  CONVCAtiON 

trtNCNAAS.LC.OI  00  TO  OitS 


e rAANOLATC  UMILC  tCANNlNO  fAON  AIOHT  TO  LCfT 

e 

OC  900  NCH«NCHANS.I . >1 

CALL  ocricriNiec.  jcsour.tNCNii 
CALL  ourorri  jAOOur.  iNCNi . jrrA*»C(Nicc*n  > 
000  eoNriNuc 
c 
c 

C OONC 

c 

900  ACruNN 
CNO 


/ 


0-9 


UUUUUOOUUUUUUOUOOOUUUOUOOUOUUUUUOUOUUUOUUUOUUU 


OAH  MCKAOe  APKNOIX  II 

CHAR/tYTc/srRiNO  RouriNrs 


ASRCt 

001 


suonouriNC  as*»co(  a ascii  orre  smiNO  for  eacoic  ovrc  strino 

0 4AOOUF.  a ASCII  orre  strino 

• 

1 jcoour.  a cocoic  ovre  strino 

I Novrs)  a NUNOCR  OF  OYTCS  TO  CONVCRT 

(TNC  SANC  ACTUAL  AROUNCNT  NAY  SC  USCO  FOR  JASOUF  A JCOOUFI 


HISTORY 

e H SCHLOSSCR  LCC  07/00/70  ORIOINAL  CODE 
NCTNOO 

taole  look-up. 
hachine-oepenoent  code 
none. 

external  references 


OETBYT  a OET  8YTE  FROM  EBCDIC  BYTE  STRINO  STRING 

PUTBYT  a PUT  BYTE  INTO  ASCII  BYTE  STRING 

EXCEPTIONS 

I.  JASOUF  IS  UNCHANOEO  IF  NBYTS  IS  LESS  THAN  I. 

«.  NO  other  checks  ARC  NAOC  ON  ANY  OF  THE  AROUHCNTS. 

GLOBAL  DECLARATIONS 

NONE. 

LOCAL  UECLARATIONS 


C 


INTCOCR  NOT 
INTCOER  I BYT 
INTEGER  JTTANECE80) 


a NUNBER  OF  BYTES  CONVERTED 
a BYTE  beino  converted 
a translate  table  --  ascii  for  ebcoic 


U«  O O O O U O O uo  U OO  OO  OO  OO  U u U OO  UO  o o 


OAN  ^ACKAOC  AMCNOtX  H 
CNAM/avre/sriiiNo  Rourmcs 


0 t 

f 

3 

9 9 6 

7 

a 9 

A a c 0 e r 

data  t jrTA*»e(Nt  .N-t  .e*!  / 

a CONTROL  CHARACrCRS 

NUL  80N 

STX 

erx 

Hr 

OCL 

vr  pp  CR  so  SI 

0 

000. oot. 

002. 

003. 

0.009.  0. 

127. 

0.  0. 

0.011.012.013.019.019. 

DLC  OCI 

0C2 

0C3 

as 

CAN  CN 

PS  OS  RS  US 

1 

018.017. 

018. 

019. 

0.  0.008. 

0. 

029.029. 

0.  0.020.029.030.031. 

LP  ero 

esc 

CNQ  ACK  BCL 

2 

0.  0. 

0. 

0. 

0.0t0.023. 

027. 

0.  0. 

0.  0.  0.009.006.007. 

8YN 

as 

eor 

0C9  NAK  SUB 

3 

0.  0. 

022. 

0. 

0.030.  0. 

009. 

0.  0. 

0.  0.020.021.  0.026/ 

0 1 

2 

3 

9 9 6 

7 

8 9 

A 8 C 0 e P 

data  ( jrTAfeiNI .N«69. 1281  / 

a 

PUNCTUATION 

SP 

< ( » OR 

•» 

032.  32, 

32. 

32. 

32.  32.  32. 

32. 

32.  32. 

32.096.060.090.093. 129. 

a 

I S • 1 : NOT 

9 

038.  32. 

32. 

32. 

32.  32.  32. 

32. 

32.  32 

033. 036. 092. 091 .099.099. 

- / 

. * > 7 

6 

0'»9.0'»7. 

32. 

32. 

32.  32.  32. 

32. 

32.  32. 

32.099.037.099.062.063. 

ACCeNT 

; • a * * a 

7 

32.  32. 

32. 

32. 

32.  32.  32. 

32. 

32.096. 

098. 039. 069. 039. 061 .039/ 

0 I 2 3 ■»  S 6 

data  ( jrrA4t(NI .N«129.192I  / 
A B c 0 e r 


7 8 9 A 

a LouCR  CAse 
0 H I 


TILO 


32. 

32. 

32. 

32. 

32. 

32. 

32. 

32. 

32. 

32. 

32. 

32. 

t 

32. 

32. 

32. 

891 . 

32. 

32. 

1 

32. 

32. 

32. 

093. 

32. 

32/ 

0 I 2 3 •»  9 6 

DATA  ( jrTAHCrNI .N-I93.2S6I  / 

•t  A B c 0 e r 


7 8 9 A 

a UPPCR  CAse 
0 H I 


c 

123.069.068.067.068.069.070.071 .072.073. 

32. 

32. 

32. 

32. 

32. 

32. 

« 

c 

l•JKLNNOPQR 

0 

I29.079.07S.076.077.078.079.080.08I .082. 

32. 

32. 

32. 

32. 

32. 

32. 

!• 

c 

\ StUVHXYZ 

c 

092.  32.083.089.009.086.087.086.069.090. 

32. 

32. 

32. 

32. 

32. 

32. 

e 

p 

0123996789 

096.099.090.091.092.093.099.099.096.097. 

32. 

32. 

32. 

32. 

32. 

32/ 

AtRCB 

BOB 


B'lO 


oooo  nnon 


OAN  PACKAOC  AMCNOIX  M 
CNAK/ivrc/smiNO  RouriNCt 


AS«»Ct 

oos 


RRoeeouiie 


CMCCK  rOR  NULL  CONVCRSION 
ircNerrs.LC.oi  oo  ro  rod 


TRANSLATE  HHILE  SCANNING  ERON  LEFT  TO  RIGHT 

OO  SOO  N8Y-I. NOTTS 

CALL  OETOTTMOYT.  JEOeur.fNBrn 
CALL  PUTBYTI JASBUF.  iNBYl  . JTTA>»e  ( 1 BYT  * I)  1 

SOO  CONTINUE 


GONE 

900  RETURN 
END 


OAN  MCKAOC  AMCNOIX  N 

CNAR/aYre/smiNo  nouriNCt 


1 tat 
061 


tutwouriNC  atr*»ao(  • intcrnal  tvre  strino  tor  ••tir  avre  itrino  (noai 

0 tttr.  I INTCRNAL  RYTC  STRINO 

t last.  • CXrCRNAL  RYTe  strino  or  0>0IT  oytcs 

1 NtYTSI  • NUNOCR  Of  OYTCS  TO  TRANSrORH 

(TNC  SAHC  ACTUAL  AROUHCNT  HAT  OC  USCO  TOR  IBST  A IRS8> 


HISTORY 


C N SCHLOSSCR  LCC  07/06/78  RCQUIRCHCNTS 

C M SCHLOSSCR  LCC  00/01/79  OCStON/COOC/ TCST 


NCTHOO 


coHPurc  NUHBCR  or  quaorupi c evrcs  ro  transporm.  incluoino  partial 

QUAORUPLC  OYTCS.  COHPUTC  NUHBCR  OP  BLOCKS  (9  QUAOBYTCS  CACHI  TO 
TRANSPORM.  INCLUOINO  PARTIAL  BLOCKS.  COHPUTC  NUHBCR  OP  QUAORUPLC 
OYTCS  TO  transporm  IN  RIGHTMOST  BLOCK.  00  TRANSPORHAT ION  PROM  RIGHT 
TO  LCPT.  STARTINO  HITH  PARTIAL  BLOCK  (IP  ANY). 


NACHINC-OCPCNOCNT  COOC 


HRITTCN  IN  ASSCHOLCR  POR  THC  UNIVAC  IIOB  COHPUTCR.  THC  HCTHOO 
OP  PASSINO  AROUHCNTS  IS  THAT  USCO  BY  UNIVAC  PORTRAN  V.  IHPLCHCNTINO 
COOC  MUST  BC  RCURITTCN  POR  OIPPCRCNT  COHPILCRS  (CO..  UNIVAC  ASCII 
PORTRAN)  AND  OIPPCRCNT  HACHINCS. 


CXTCRNAL  RCPCRCNCCS 


NONC. 


CXCCPTIONS 


I.  IBST  IS  UNCHANOCO  IP  NOTTS  IS  LCSS  THAN  1. 

C.  ThC  TRANSPORHAT I on  INTO  INTCRNAL  BYTC  STRINO  PRON  CXTCRNAL  B-6IT 

BYTC  strino  is  PCRPORHCO  IN  GROUPS  OP  •»  6YTCS  (I  QUAORUPLC'BVTCI  AT  A 
TINC.  thus,  ip  NOTTS  IS  NOT  CVCNLT  OIVISIBLC  BY  X.  ThC  ACTUAL  NUHBCR 
OP  BTTCS  TRANSPORHCO  HILL  BC  THC  NCXT  HIOHCR  NUHBCR  WHICH  IS  CVCNLT 
OIVISIBLC  BY  X. 

S.  NO  OTHCR  CHCCKS  ARC  NAOC  ON  ANT  OP  TNC  AROUHCNTS. 


OLOBAL  ('CLARATIONS 


R-lt 


f 


OAH  PACKAOC  AMCNOU  R 
CHAR/lYTC/triHNO  ROUTINCS 


MTRM/ttOR 

oot 


AXRt  . STANOARO  UNIVAC  ItOO  RCOISTCR  HNCHONICS 


! LOCAL  OCCLARAriONS 


. RROC  TO  SinULATC  IttO  80  AS  INSTR  ON  tt08 

A«.AS 

A<».8 

AS.  I 

A)».0 

AS.t 

AH.  a 

AS.t 
AH.  8 
AS.t 


PROCCOURC 


. BANKS  RCVCRSeO  TO  CLtMlNATC  INOIRCCT  LOAD  TAeLC  ENTRY 
A8.«8.Xlt  . * or  BYTES  TO  TRANSrORH 

At .0  . DIVISION  COHINO 

A2.3 

Al.H  . Al  • or  QUAOBYTES  TO  TRANSTORN 

. A2  :•  («-n  or  BYTES  TO  TRANSr  IN  RtOHTHOST  QUAOBYTE 


LA.U 
AA.U 
01. U 

ANA.U 

JN 


LA 

LA 

HSI  .U 
HSI  .U 
AA 
AA 

LXt .XU 
LXI.XU 
J 


TRANSr  J TRQBTt 

J TROBTt 

J TR0BY3 

J TRQBYH 

J TROBYS 


AB.AO 
A3. AO 

A8.8  . B HOROS  PER  INPUT  BLOCK 

A3.B  . 9 HOROS  PER  OUTPUT  BLOCK 

At. I. XI I . At  t*  AOOR  or  RiOHTNOsr  input  block 

AS.O.Xtt  . A3  t«  AOOR  or  RtOHTHOST  OUTPUT  BLOCK 

At.«B  . INPUT  BLOCK  AOOR  INCREHENT  IS  >8 

A3. *9  . OUTPUT  BLOCK  AOOR  INCREHENT  IS  *9 

TRANSr.AI  . start  TRANSPORHINO  AT  PROPER  QUAOBTTCtll 


AO.O  . OlVISION  COHINO 

At. 8 

AO. 9 . AO  • or  BLOCKS  TO  TRANSrORH 

. Al  !•  I•«|l  or  QUAOBYTES  TO  TRANSr  IN  RIOHThOST  BLOCK 
AO. I . AO  :•  or  BLOCKS  TO  TRANSrORH 

AO. RETURN  . RETURN  IP  NO  BLOCKS 


9(001  . t-BANK 

bsthbb*  la 

LA.U 
AA.U 
01. U 


BOAS*  PROC 

LA 
OSL 
SSL 
OSL 
SSL 
OSL 
SSL 
OSL 
SSL 
ENO 


R-tS 


U 


OAN  PACKAOC  AmNOix  N nr*»n/itot 

CHAM/irre/sTRiNO  routincs  oos 


J 

TRQBYS 

J 

TRQBY7 

J 

TRQBYB 

rRQRvg 

LA 

•QAS 

A8.7.AB 

BA 

A?. 8. AS 

rRQRYt 

OL 

A*».8.A8 

OfL 

BQA8 

A<».38 

SA 

AS. 7. AS 

TRQRY7 

OL 

A7 . S . At 

OSL 

8QAS 

A>».tS 

SA 

AS. 8. AS 

TROavR 

OL 

A*».*».At 

OSL 

BQA5 

A>».t<» 

SA 

AS.S.AS 

TRQBYS 

OL 

A*».S.  At 

OSL 

BOAS 

A*».tO 

SA 

AS.H.AS 

TRQBY** 

OL 

A<».t.  At 

OSL 

BOAS 

A4.18 

SA 

AS.S.AS 

TRQBYS 

OL 

AH. t . At 

OSL 

BOAS 

AH.  tt 

SA 

AS.t. AS 

TROBva 

OL 

AH.O.At 

OSL 

BOAS 

AH. 8 

SA 

AS.I .AS 

TROBYt 

LA 

AS.0.«At 

SSL 

BOAS 

AS.H 

SA 

AS.0.*AS 

JOO 

AO. TRQBYS 

RCrURN 

J 

CNO 

H.XI  1 

) 


R-l** 


( ! 

OAH  MCKAOC  AMCNOIX  R MTRM/lltO  | 

CHAR/tYrC/STRINO  ROUriNCS  OOt  I 


tuMourtNC  BtroRRi  a intcrnal  rytc  strino  tor  r-rit  rytc  strino  in  tot 

0 tRRr.  I tNYCRNAL  BYTC  STRINO 

• \ 

1 ItttR.  a CXrCRNAL  RYTC  STRINO  Of  R-RIT  RYTCt  ■ 

1 NRYTSI  a NUNRCR  Of  RYTCS  TO  TRANSrORN  | 

ITNC  SAHC  ACTUAL  AROUHCNT  NAY  RC  USCO  FOR  IRST  0 IRSR) 


NISTORY 


C M SCHLOSSeR  LCC  07/06/YR  RCQUlReNeNTS 

C H SCHLOSSER  LCC  00/01/79  OCSION/COOE/Tesr 


NETHOO 


CONFUTE  NUNBCR  OF  QUADRUPLE  BYTES  TO  TRANSFORN.  INCLUOINO  PARTIAL 
QUADRUPLE  BYTES.  CONFUTE  NUNBCR  OP  BLOCKS  (9  QUAOBYTCS  EACH)  TO 
TRANSFORN.  INCLUOINO  PARTIAL  BLOCKS.  CONFUTE  NUNBCR  OF  QUADRUPLE 
BYTES  TO  TRANSFORN  IN  RIOHTNOST  BLOCK.  DO  TRANSFORNAT ION  FRON  RIOHT 
TO  LEFT,  STARTINO  WITH  PARTIAL  BLOCK  (IF  ANYI. 


nachinc-oepcnoent  code 


HRITTCN  IN  ASSCNBLER  FOR  THE  UNIVAC  I I 10  COHPUTER  USINO  SPECIAL  BYTE- 
NANIPULATION  HAROUARE  NOT  PRESENT  IN  THE  UNIVAC  1108.  THE  NETHOO 
OF  PASSINO  AROUNCNTS  IS  THAT  USED  BY  UNIVAC  FORTRAN  V.  INPLCNCNTINO 
CODE  NUST  BE  RCURITTCN  FOR  DIFFERENT  CONPILCRS  (CO..  UNIVAC  ASCII 
FORTRANI  and  different  NACHINCS. 


external  references 


NONE. 


exceptions 


I.  IRST  IS  UNCHANOCO  IF  NBYTS  IS  LESS  THAN  I. 

t.  the  TRANSFORNAT I ON  INTO  INTERNAL  BYTC  STRINO  FRON  EXTERNAL  B-BIT 

BYTE  STRINO  IS  PERFORNEO  IN  OROUPS  OF  >»  BYTES  (I  OUAORUPLE-BYTC>  AT  A 
TINE.  thus,  if  NBYTS  IS  NOT  EVENLY  DIVISIBLE  BY  *> . ThC  ACTUAL  NUNBCR 
OF  RYTCS  TRANSFORNEO  HILL  BC  THE  NEXT  HIOHCR  NUNBCR  UHICH  IS  EVENLY 
eiVtSIBLC  BY  «*. 

9.  NO  other  checks  ARC  NAOE  ON  ANY  OF  THE  AROUNLNTS. 


R-tS 


w 


OAN  MCKAOC  AMCNOIX  ft  ttriM/lltO 

CHAft/tYrc/srniNO  aoumncs  oot 


. OLOftAL  OCCtAftATIONt 


• 

AXftt 

. ITANDARO 

UNI  VAC  1100  ftCOISTCR  NNCNONIC9 

! LOCAL 

OCCLAftArtONt 

•QAS* 

AROC 

. tltO  ftO  AS  INSTRUCTION  COOCO  TOR  1106  ASSCNftLCR 

tNtrftr 

ro«N 

IS  . instruction  torn 

iNtTRr 

OSY.Ot.OS.O 

.0.0  . RQ  AS 

* 

CNO 

• 

. pftoecouftc 

« 

$(001 

. t'SANK 

. RANKS  RCVCRSCO  TO  CUNINATC  INOIRCCT  LOAD  TARLC  CNTRY 

•$r<»se« 

LA 

A8.«2.Xlt 

. • or  Rvrcs  TO  TRANsroRH 

LA.U 

Al  .0 

. DIVISION  CONINO 

AA.U 

AC. 3 

• 

01. U 

Al  .<* 

. Al  t«  « or  OUAORYTES  TO  TRANSrORN 

• 

. AC  1 * ( • 

-II  or  orres  ro  TRANsr  in  riomthost  ouAoaYre 

* 

LA.U 

AO.O 

. DIVISION  COniNO 

AA.U 

At  .• 

* 

ot.u 

AO. 9 

. AO  i>  • or  SLOCKS  TO  TRANSrORH 

. At  1 ■ ( • 

•II  or  OUAORYTCS  TO  YRANSr  IN  RIOHTNOSr  SLOCK 

ANA.U 

AO.I 

. AO  i*  l*-t)  or  SLOCKS  TO  TRANSrORN 

• 

UN 

AO. RC TURN 

. RETURN  ir  NO  RLOCKS 

• 

LA 

AS.  AO 

• 

LA 

A3. AO 

« 

N$I.U 

AC.S 

. R WORDS  RER  iNRUT  SLOCK 

Nil.U 

A3. 9 

. 9 WORDS  RCR  OUTRur  SLOCK 

AA 

AC. I. XII 

. AC  >•  AOOR  or  riontnost  inrut  slock 

AA 

A3.0.XI  I 

. A3  !•  AOOR  or  riontnost  outrut  slock 

LXI .XU 

AC. -9 

. INRUT  SLOCK  AOOR  INCREnENT  IS  -S 

IXI .XU 

A3.  *9 

. outrut  slock  AOOR  INCRENENT  IS  -9 

• 

U 

TftANSf .Al 

. start  TRANSrORHINO  AT  RRORER  QUADSTTCltl 

fllANSr 

J 

TRQRVt 

• 

u 

TftQSVC 

J 

TRQ9V3 

• 

J 

TROSYR 

• 

J 

TRQ9Y9 

• 

J 

TRQ9YS 

• 

u 

troryy 

• 

J 

TR01Y9 

• 

TftOftVt 

LA 

A9.Y.AC 

• 

•OAS 

• 

$A 

A9.R.A3 

• 

ft-U 


OAN  PACKAOC  AAKNOIX  M MrAM/ltlO 

CNAii/evrc/ trill  NO  tour  i net  o«i 


rOQOYt 

OL 

AH.B.AB 

on 

iOAt 

AN.lt 

tA 

At. 7. At 

TNQ0V7 

OL 

AN.t.At 

on 

00A8 

AN.CB 

tA 

At. 8. AS 

rNQOYO 

OL 

AN.N.At 

on 

OOAB 

AN.tN 

tA 

AS.t.AS 

TNQOYS 

OL 

AN.S.Af 

on 

BOAS 

AN. BO 

tA 

A5.N.A3 

rNQIYH 

OL 

AN.B.AB 

on 

BOAS 

AN.  16 

tA 

At. 3. A3 

YNQ8Y3 

OL 

AN. 1 ,AB 

on 

BOAS 

AN.  IB 

SA 

A8.B.A3 

YRQOYf 

OL 

an.o.ab 

on 

BOAS 

AN.  8 

BA 

At. t .A3 

rRQBYt 

LA 

At.O.*AB 

tn 

BOAS 

At.N 

tA 

At.0.«A3 

• 

JOO 

AO. rRQBYt 

• 

RCtURN 

J 

N.XIt 

CNO 

» 


N-17 


MN  MCRAOC  APKNOIX  A 
CNAR/eyrC/tTRINO  ROUriNCt 


MAttr/iiot 

eot 


tumouriNC  M«Mr(  • t-iir  sytc  strino  roR  intcrral  svrc  strino  ciioii 

0 iitt.  A cxrcRNAL  •rrc  strino  op  a-oir  avrcs 
• 

t latr.  0 INTCRNAL  avTC  OTRINO 

1 Ntvrti  • NUNiCR  OP  arret  ro  convcrt 

(TNC  tAHC  ACTUAL  AROUNCNT  NAT  aC  UtCO  POR  IRtT  A IRtOI 


NltrORT 


C N SCNLOSSCR  LCC  07/08/7a  ORIOINAL  RCQUlRCHeNTS 


NCTNOO 


CONRRCSS  AOJACCNT  g«OIT  OYTeS  INTO  8-01 TS  CACH.  ANO  THCN 
SNIPT  INTO  PROPPR  ALIONNCNT. 


NACHINC-OCPeNOCNT  COOP 


HRITTCN  IN  AtSCHaiCR  POR  THE  UNI  VAC  1100  CONPUTER.  THE  NETHOO 
OP  PA8SIN0  AROUHENTS  IS  THAT  USED  BY  UNIVAC  PORTRAN  V.  INUENENTINO 
CODE  MUST  BE  REURITTEN  POR  OIPPERCNT  COMPILERS  tCO..  UNIVAC  ASCII 

portrani  ANO  oipperent  machines. 


external  reperences 


NONE 


EXCEPTIONS 


I.  laSB  IS  UNCNANOEO  IP  NavTS  IS  LESS  THAN  I. 

t.  NO  other  CHECKS  ARE  HAOE  ON  ANY  OP  THE  AROUHENTS. 

OLOOAL  declarations 


NONE. 


AXRS  . RANKS  REVERSEO  TO  ELIMINATE  INDIRECT  LOAD  TASLE  ENTRIES 

SfOOl  . I -SANK 

ssNSsr* 

NOT  yet  inplenenteo  •••••••••# 


OAN  MCKAOC  AMCNOtX  R 
CHAR^trrC/ffRlNO  ROUTtNCS 


■•«■«?/ II  to 
001 


tuoROuriNC  it%etr(  « o>tir  tm  itrino  roR  intcrnal  rvtc  atrino  mioi 

0 totti  • cxrcRNAL  orrc  otrino  or  ••oir  rytcs 
• 

1 ittr.  • intcrnal  rvtc  otrino 

t NRYTOi  • NUNOCR  Of  RVTCt  TO  CONVCRT 

(TNC  OAWC  ACTUAL  AROUHCNT  NAY  RC  UOCO  COR  IROT  A IRORI 


NIOTORY 

C N tCNLOttCR  LCC  07/0R/7R  ORIOINAL  COOC 
NCTNOO 

eONNRCSt  AOJACCNT  9-01 T RYTCt  INTO  O-RITS  CACH.  AND  TMCN 

tNirr  into  MorcR  alionncnt. 

NACNlNC-OCrCNOCNT  COOC 


MRITTCN  IN  ASOCNOLCR  fOR  TMC  UNI  VAC  1110  COHAUTCR  USINO  SrCCIAL  OTTC- 
HANirULATION  HAAOUARC  NOT  RRCSCNT  IN  TNC  UNIVAC  IIC8.  THC  NCTHOO 
or  RAtOiNO  AROUMCNTt  If  THAT  USCO  OV  UNIVAC  FORTRAN  V.  INRUCNCNTINO 

COOC  Husr  oc  RCHRirrcN  roR  okfcrcnt  conrilcrs  leo..  univac  ascii 
rORTRANI  ANO  OirrCRCNT  NACHINCS. 


CXTCRNAL  RCrCRCNCCS 


NONC 


CXCCRTIONO 


I.  1000  IS  UNCNANOCO  ir  NOYTS  IS  LCSS  THAN  I. 

t.  NO  OTMCR  CNCCKS  arc  NAOC  on  any  or  THC  AROUNCNTS. 

S.  OINCC  TNC  ACTUAL  CONVCRSION  IS  RCRrORNCO  IN  OROURS  Or  f RYTCS  AT 
A TINC.  UR  TO  7 HORC  RYTCS  THAN  RCOUCSTCO  NAY  RC  CONVCRTCO.  IRST 
ANO  IRSO  SHOULD  SC  LAROC  CNOUON  TO  ACCONNCOAIC  THIS. 


I 


AXRO  . otanoaro  univac  ttoo  rcoistcr  nncnonico 


R-IR 


I 


I 


M«Mr/lltO 

oot 


riNCs 


. LOCAL  OCCLANAnONf 


ttoot  . 0- 
XtNXNt 

>tANR 

N.O 

XSAVC 

• 

act 

1 

.'  RROCCOURC 

Sion  . I- 

SANK 

OtROST* 

sx 

xa.xsAvc*o 

tx 

XS.XSAVC*l 

tx 

XN.XtAVC»0 

• 

LA 

At .•t.XI 1 

LX 

Xf . 1 .XI 1 

AA.XU 

AC.'I 

LX 

XN.O.XI  1 

,‘N 

At. RETURN 

SSL 

At.t 

LXI.XU 

Xt.l 

LXI .XU 

X*».  1 

J 

riRSTCYCLC 

• 

NCxrCYCLC 

JOO 

AS.NCxrwORO 

AX. XU 

xt.  1 

AA.XU 

At.'l 

riRSTCYCLC 

LX 

xs.xnxNo 

LA. XU 

A3. 7 

OL 

AO.O.*Xt 

• 

000 

AO 

iroRH 

LOSL 

AO.O.'XS 

SA 

AO.O.'XN 

JOO 

At.NCxrcYCLC 

LX 

Xt.XSAVC*0 

LX 

Xl.XSAVC*! 

LX 

X<*.XSAVC*t 

• 

RETURN 

J 

R.XIt 

CNO 

. X tMCRCNCNr  • <».  X NOOinCII  • • 
. OAVC  ARCA  rOR  X RCOt  C.S.*» 


SAVC  RCOS 


NUNRCR  or  irrct  ro  convca' 
AOORCts  or  o-iir  inrut  rurrcR 
NUHRCR  or  irrcs  - i 
AOORCtt  or  •••tr  ourrur  ourrcR 
NO  tYTcs  ro  coNvcxr 
NUNtCR  or  tNRUr  UOXOf  • I 
Auro  INCACNCNT  rOR  iNRur  It  I 
AUTO  INCRCnCNT  rOR  OUTRUT  It  I 


OCCRCNCNT  tNirrt  A RCCYCLC  ir  ZERO 
CONTCNTS  AT  AOOR  Xt  ALREADY  EXHAUSTED 


NUNtCR  or  II rt  ro  SHirr  is  i.tc.  ... 
CIONT  SNirrt  RER  cycle 

LOAD  9 NOS  iNRur  A INCRCNCNT  AOOR  lY  I 
eONRRCtt  t RYTEt  IN  AOAAI  <NANO*COOEO> 
roRN  It  . instruct  roRN 

irORN  017. 0<».  0.0. 0.0  . oot  AO  instruct 
SNirr  H.t  tYTCS  INTO  AO 
STORE  OUTRUT  no  A INCRCNCNT  AOOR 
OCCRCNCNT  INRUT  UOS  LCRT  A RCRCAT 


R-ca 


etimr 

oti 


OAN  MCKAOC  AWNOIK  A 
CNAA/tYrC/tTRINO  AOUriNCt 


tvmourtNC  cainitc  a iNiriALirr  CNAAAcrcA  aurrcN 
0 vtQun  • ouraur  CNAAAcrcN  turrca 


NISrOAV 


C N ICNLOttCA  LCe  09/lt/Tt  ACQUIACNCMrt 

C M tCNLOttCA  LCe  09/97/79  OC9ION  « COOK 


NCTNOO 


iNiruLizc  9ur«‘CR  nulcst  k AoiNrroo. 

novc  NUICHA.  AAOOCO  HtTN  9CANKS.  TO  trOlNO  AOAMON  Of  OurrCA. 


NACHlNC-OCOCNOCNr  cooc 


NONC. 


cxrrANAt.  nercACNCCt 


NOvctr  a novc  cnanactcn  trnino 

inrcoen  ncvni  a nunoen  or  CNAAAcrcos  roo  nuhoca  or  iNrcocoa 


cxecrrioNt 


t.  ir  K90ur  It  tNALLCA  IN  tIZC  THAN  A trANOAAO  CNAAACrCN  iurrcN 
(9UCH  At  tcturi.  icturc.  rre.i.  tncn  tnc  nctuart  aac  uNOCriNCO. 


0L09AL  OreiAAAriONt 


iNCLuoc  etocr.Litr  a ocriNC  trnucruNc  or  cnanactcn  aurrcNt 

iNCiuoc  NULCtT.utr  a ocriNC  nou.  cnanactcn  ctnino 

INCIUOC  NULCNN.UtT  a OCriNC  NUtk  cnanactcn 


LOCAL  eCCLANATIONt 


INTCOCN  KOeuriCOtCtNI  a ANOURCNT 


NNOCCOUNC 


N-Ct 


€•1111  r 

••• 


OAH  •*€•*•€  APMNOIK  • 

CNAN/tyrC/tTRINO  Rouriiict 


c 

c iNiruLiZff  mft.c«r,  location  nointcr.  cno  rointcr 
c 

KROUTICRNUL I •NULCOT 
KRO«ir<CtLOC>*0 
KROUrtCRCNOt^NCNNI  (CRNUfll 

c 

c 

e INITIALIZC  NON’ROINTCR  RORTION  Of  RUrrCR  TO  I NULCNR  RAOOCO  NlTN  ORACCO 

c 

CALL  NOVesr ( KOOUT .1(1. (KROur ICOCNOI > . 

• NULCNR.dt  ,(ti  .*  *1 

c 

e 

e OONC 

c 

RCruRN 

CNO 


R-M 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOUOO  OOUOOMOOOOOOOOOO 


OAN  ^ACKAOC  AMCNOIX  A 
CNAR/IVrC/STRINO  ROUriNCS 


eiACtr 

oot 


SUtAOUriNC  C8*»CST(  • AAPCNO  CNAAACrCRS  TO  CHAA  AurrCA  FAOn  CHAA  STAINO 
0 KAOUr.  A OUTPUT  CHAAACTCA  BUrrCA 


I KSTIN.  • input  CHAAACTCA  STAINO 

( LOCIN.  A (OPTIONAL)  CHAR  LOC  HITHIN  INPUT  STAINO  HHCAC  SUBSTRINO  BCOINS 

( LCNINO.  A (OPTIONAL)  LCNOTH  A OIRCCTION  OF  INPUT  SUBSTRINO 
S S.S)  A TO  KCCP  COHPILCR  STAAIOMT  --  DON'T  UBCIII 

(CHAA  LOCATION  COUNTCO  FROM  I AT  LCFt  OF  STAINO) 

(POSITIVS  OIRCCTION  > LCFT  TO  RIOMT) 


HISTORY 


C H SCHLCSSCR  LCC 

C H SCHlOSSCR  LCC 


09/18/79  RCQUIRCHCNTS 

09/87/79  OCSION  A COOC 


HCTHOO 


OCTCRMINC  ACTUAL/ IMPLIED  VALUES  FOR  OPTIONAL  ARGUMENTS. 

MOVE  INPUT  SUBSTRINO  TO  FIRST  AVAILABLE  LOCATION  IN  OUTPUT  CHARACTER 
BUFFER  AND  UPDATE  BUFFER  POINTER. 


machinE'OCpenoent  code 


UNIVAC  fortran  V RETURN  K. 


EXTERNAL  RCFCRCNCCS 


ARORCT  A OCTCRNINE  NUMBER  OF  ACTUAL  AROUMCNTS  A RETURN  K VECTOR 

HOVCST  A MOVE  character  STRINO 

INTCOCR  LENCST  A LCNOTH  OF  CHARACTER  STRING 

INTEGER  lOUP  A INTEGER  DUPLICATE  (INDIRECT  RCFCRCNCC  TO  OPTIONAL  ARO) 


EXCEPTIONS 


I.  IF  kbout  is  smaller  in  size  than  a stanoarc  character  buffer 

SUCH  AS  ICBUFl,  IC8UF8.  ETC.)  THEN  THE  RESULTS  ARC  UNDEFINED. 

8.  IF  kbout  has  not  been  PREVIOUSLY  INITIALIZED  BY  CBINIT  THE  RESULTS 
ARC  UNDEFINED. 

3.  IF  the  input  SUBSTRINO  LIES  WHOLLY  OR  PARTIALLY  OUTSIDE  ITS  STRING  THE 
RESULTS  HILL  BE  UNOCFINCO. 

A.  IF  THE  optional  AROUMCNTS  LOCIN  A LCNINO  ARC  OMITTED.  THEN  KSTIN 
NUST  BE  A VARIABLC-LCNOTH  CHARACTER  STRINO  (A  HOLLERITH  LITERAL. 


R>83 


UUUUU  UUUUUOUUU  u o u o ouuo 


OAN  PACKAOC  AMCNOIX  A 
CHAR/tvrC/srRINO  AOuriNCS 


caocsr 

ooc 


c 

c 

e 8. 

c 

e 

c 

e 

e 0L08AL 

C 

C 


OA  AN  AAAAY  Of  AACKCO  CHARACrtRS  TCANINATCO  WITH  NULCNA  OA  NULCSTI. 

ir  rHCAC  IS  iNfurriciCNr  roon  achainino  in  thc  output  aurpcR.  thcn 
ONLY  PART  OF  TNC  INPUT  STRINO  MILL  8C  APPCNOCO  TO  THC  8UFFCR  ANO 
THC  ACHAINOCA  lONORCO. 


0CCLAAATI0N8 


INCLUOe  C80CF.LIST  • OCFINC  STRUCTURC  OF  CHARACTER  8UFPCRS 

INCLUOC  NULCST.U8T  I OCFINC  NULL  CHARACTER  STRINO 


LOCAL  OCCLARATIONS 


INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 

INTCOCR 


K80UT(C8SZINI  A AROUHCNT 

NAROS  A NUH8CR  Or  ACTUAL  AROUHCNTS 

krctn  a rcturn  k vccroR 

LCNOUr  A LCNOTH  (NUneCR  OF  CHARACrCRS)  TO  APPCNO 

LOCINN  A CHAR  L OC  MITHIN  INPUT  STRINO  HHCRC  SUBSTRINO  8C0INS 

LCNINN  A LCNOTH  A OIRCCTION  OF  INPUT  3U8STR1N0 


PROCCOURC 


OCTCRMINC  NUN8CR  OF  ACTUAL  AROUHCNTS  A RETURN  K VECTOR 

S IFIKSTIN.CQ. ' . ’ I CALL  XRC077(2I  A>A  <•«  0C8UC  *«•  A>A 
CALL  ARORCT(NAROS.<<ReTN> 


OCTCRHINC  VALUES  FOR  OPTIONAL  AROUHCNTS 
L0CINN«l 

I F ( NAROS . OT . 8 1 LOCI NN« I OUP ( L OC I N > 

IFCNAROS.LC. 3)  LCNINN-LCNCSTIKSTIn. I 30 -LOCI NN* I 
IF(NAR0S.0T.3)  LCNINN>IOUP(LCNINO) 


CNCCK  8UFFCR  POlNTCi?S 

IF(K80UT(C8NUL) .NC. NULCSTI  00  TO  900 
IF(K80UT(C8L0CI .LT. 01  00  TO  900 
IF(K80UTIC8CN0I .0T.8S6I  00  TO  900 
C 

e 

C COHPUTC  LCNOTH  TO  APPCNO  TO  8UFFCR  (IF  ANY! 

e 

LCNOUT>NINO(K80UT(C8CNOI •K80UTIC8L0CI . I A8$(LCNINNI I 
IFCLCNOUT.LC.OI  00  TO  900 

c 

c 


R-C* 


u w 


OAN  ^ACKAOC  AMCNOIX  II 
CNAR/iYre/sriiiNO  nouriNCs 


Ct*»C<T 

003 


Nove  suesroiNO  ro  rmor  availaolc  location  in  ouffcn 

CALL  HOVCSr ( KOOUr . I KOOUr ( COLOC I » I I . I LCNOUT I . 

• KSrtN.ILOCINNI .(LCNINNI.*  *1 

c 

c 

C UroATC  OUFFCN  LOC  TO  FOINT  TO  LAST  CHARACTCN  IN  OUFFCR 
C 

KOOUT ( COL  OC I -KOOUT ( COL  OC I ♦LCNOUT 
f 

c 

CS900  NCruNN  KRCTn 

900  coNTtNue  a«a  oesuo  a«a 
c s triKsriN.CQ. ’ . ’ I call  xrcottcoi  a«a  ««•  oesuo 
NcruRN  KRCTn  a-a  oesuo  a*a 
CNO 


a>a 


N«CS 


OAN  fiACKAOC  AMCNOIX  M 
CHAM/lvrC/smiNO  MOUriNCS 


ct»rtL 

oot 


CNOr  INPLCHCNTCOI 


uouowuuuuuuuououooouuuuooouuuou  uuuuooooouuwooouw 


OAN  PACKAOC  AWNOIX  A 
CNAR/irrc/srAiNo  rouhncs 


CAAIN 

001 


SUOAOUriNC  COHINt  • CNCOOC  INrCOCA  A AAACNO  TO  CMAAACrCA  OurrCA 
0 Koour.  • ouTAur  CNAAAcrcA  ourrcA 


I INroCA.  • INTCOCA  ro  CNCOOC 

I NINFLW,  • COATIONAU  HININUN  FICLO  MlOTN  (tO  IF  ONI FTCOi 
I LOZCNA.  a (OFTIONAL)  LCAOINO  ZCRO  CHARACTCA  I8LANK  IF  ONITTCO* 
0 t.t>  a ro  KCCA  confilca  staaiont  ->  ooN*r  usciii 


HltrORY 


C N SCHLOSSCA  LCC  09/80/79  ACOUtRCNCNTS 

C H SCHLOSSCA  LCC  IO/QS/79  OCSION  A COOC 


NCTHOO 


OCTCANINC  ACTUAL/tNPLtCO  VALUES  POR  OATtONAL  AROUNCNrs. 

CNCOOC  iNreocR  with  hininuh  riCLOuiorH  of  hinflh  a haxihuh  PtCLOHiorH 

OF  18.  HOVE  CNCOOEO  SfAINO  TO  FIRST  AVAILABLE  LOCATION  IN  OUTPUT 
CHARACTER  BUFFER  AND  UPOATC  BUFFER  POINTER.  THIS  TRANSFORN  PROVIDES 

cxrcNOCo  pascal-type  intcocr  encooino. 


NACHINE-OCPENOENT  CODE 


UNIVAC  fortran  V RETURN  K. 


external  references 


ARORCr  a OCTCANINC  NUNBCR  OF  ACTUAL  AROUNCNTS  A RETURN  K VECTOR 

CSTHIN  a CHARACTER  STRINO  POR  INTCOCR 

INTCOCR  lOUP  a INTCOCR  OUPLICATC  (INOIRCCT  RCFCRCNCC  TO  OPTIONAL  ARO< 


CXCCPTIONS 


I.  IF  KSOUr  IS  SNALLCR  IN  SIZE  THAN  A STANOARO  CHARACTER  BUFFER 
(SUCH  AS  ICBUFI.  IC8UF8.  ETC. I THEN  THC  RESULTS  ARC  UNOCFINCO. 

8.  IF  KBOUT  HAS  NOT  BEEN  PREVIOUSLY  INITIALIZED  BY  CBINIT  THE  RESULTS 
ARC  UNOCFINCO. 

3.  IF  TMCRC  IS  INSUFFICIENT  ROON  RCNAININO  IN  THE  OUTPUT  BUFFER.  THEN 
ONC  OR  NORC  *7*  HILL  BC  APPCNOCO  TO  ThC  BUFFER.  IF  POSSIBLE. 


OLOBAL  OCCLARATIONS 


B-f7 


OAN  PACKAOC  AMCNOIX  M 
CNAR/irrc/sniiNO  routincs 


CRAIN 

QOC 


INCLUOC  CROCr.LISr  A OCFINC  STRUCruRC  or  CHARACrCR  BUrrER 

INCLUDE  NULCSr.LISr  A OCriNC  NULL  CHARACTER  STRING 


c 

c 

C LOCAL  declarations 
C 

e 

INTEGER  ABOUT tn 
INTEGER  NAROS 
INTEGER  KRETN 
INTEGER  NINIFH 
INTEGER  LEAOZC 
C 
C 

C PROCEDURE 


A AROUNENT 

A NUNBER  OP  ACTUAL  AROUNENTS 
A RETURN  K VECTOR 
A HININUH  riELO  WIDTH 
A LEAOINO  ZERO  CHARACTER 


C 

C 

C DETERMINE  NUMBER  OF  ACTUAL  ARGUMENTS  A RETURN  K VECTOR 


C 


CALL  ARORETtNAROS.KRETNI 


C 

c 

c determine  values  for  optional  arguments 
c 

MINIFU-IA 

IF(NARGS.GE.T)  M t NI FU> I OUP (Ml NFLHl 
LEAOZC-’  * 

IF(NARG$.GE.<»)  LEAOZC-IOUPCLOZCHRI 

c 

c 

C CHECK  BUFFER  POINTERS 

c 

IFIKBOUTrCBNUL > .NE.NULCSTI  GO  TO  900 
IPtKBOUTICBLOO .LT.OI  GO  TO  900 
IPIKBOUTICBENO) .0T.AS6I  00  TO  900 
C 
C 


C COMPUTE  MAXIMUM  LENOTH  TO  APPEND  TO  BUFFER.  IF  ANY 
C 


LENNAX-MINO(KBOUT(CBENOI •KBOUTCCBLOO .MAXOIMINIFM. 18)1 
IFILENMAX.LE.O)  GO  TO  900 
C 
C 


C ENCODE  INTEGER  AT  FIRST  AVAILABLE  LOCATION  IN  BUFFER 
C 


CALL  CST9IN<KB0UT. (KBOUT(CBLOC) -I  I .(LENMAXI . 

• INTOER.MINIFU.LEAOZC) 

c 

c 

C UPDATE  BUFFER  LOC  TO  POINT  TO  LAST  CHARACTER  NOW  IN  BUFFER 
C 


KMUT ICBLOC  ) -LENCST  IKBOUT  . I KBOUT  ICBLOC  i -LENNAX 1 1 
C 

c 


R-CD 


u u 


OAN  ^ACKAOC  APKNOIX  R 
CNAR/irre/STRlNO  ROUriNCS 


CMIN 

009 


OONC 

000  RCrURN  KRCTN 
CNO 


uuuuuuuouuuuuouoouuuuoouuooouuu  uuoouuouwuuowoow 


OAN  ^ACKAOC  APACNOIX  A 
CNAff/tYrC/tTRlNO  AOUTINCt 


ei«m. 

001 


OUOAOUMNC  COHALt  A CNCOOC  ACAL  A AAACAO  TO  CNAAACrCA  OUPPCA 

0 Koour.  0 ouTAur  cnaaactcr  ouppcr 


I ACAL. 
t HINPLM. 
I NOAACC. 
I LOZCNA. 

0 o.ti 


a ACAL  ro  CNCOOC 

a (OPriONALI  HININUH  PICLO  HIOTH  (tO  IP  ONirrCOi 
a (OprioNALi  NUNOCR  OP  oioirs  or  prccision  it  ip  onirrcoi 

a (OPrtONALI  LCAOINO  ZCAO  CHARACTCA  (BLANK  IP  ONITrCOi 
a ro  KCCP  CONPILCA  STRAIOHr  ••  OON*r  uscill 


NitroAr 


C H SCHLOSSCR  LCC  10/10/79  ACQUIRCHCNTS 

C N SCHLOSSCR  LCC  10/11/79  OCSION  A COOC 


NCTHOO 


OCTCRHINC  ACTUAL/ I RRL ICO  VALUCS  POR  OPTIONAL  AROUNCNTS. 

CNCOOC  RCAL  Ml TH  NINIHUN  riCLOHlOTH  OP  NINPLH  A NAXinUN  PICLOMIOTH 
OP  IZ.  NOVC  CNCOOCO  STRINO  to  PIRST  AVAILA8LC  LOCATION  IN  OUTPUT 
CHARACTCR  BUPPCR  and  UPOATC  8UPPCR  POINTCR.  THIS  TRANSPORN  PROVIOCS 
cxrcNOCO  pascal-typc  rcal  cncooino. 


NACHINC-OCPCNOCNT  COOC 


UNIVAC  PORTRAN  V RCTURN  K. 


CxrCRNAL  RCPCRCNCCS 


ARORCr  a OCTCRHINC  NUNOCR  OP  ACTUAL  AROUNCNTS  A RCTURN  K VCCTOR 

CSTNRL  a CHARACTCR  STRInO  POR  RCAL 

INTCOCR  lOUP  a INTCOCR  OUPLICaTC  (INOIRCCT  rcpcrcncc  to  optional  aroi 


CXCCPTIONS 


I.  IP  KBOUT  IS  SNALLCR  IN  SIZC  THAN  A STANOARO  CHARACTCR  BUPPCR 
ISUCN  AS  ICBUPI.  ICBUPZ.  CTC.*  TNCN  ThC  RCSULTS  ARC  UNOCPINCO. 

e.  IP  KBOUT  HAS  NOT  BCCN  PRCVIOUSLY  INITIALIZCO  BY  CBINIT  THC  RCSULTS 
ARC  UNOCPINCO. 

S.  IP  TNCAC  IS  INSUPPICICNT  ROON  RCNAININO  IN  THC  OUTPUT  BUPPCR.  THCN 
ONC  OR  HORC  HILL  BC  APPCNOCO  TO  TmC  BUPPCR.  IP  POSSIBLC. 


OLOCAL  0CCLARATI0N8 


R*S0 


OAN  PACKAOC  AMCNOIX  R 

CHAR/tYrc/sriitNO  RourtNCt 


C — 

c 

tNCLuoc  CMcr.Lisr  • ocriNC  tmucruRC  or  CNARAcrcR  turreii 

INCLUOC  NULCSr.LlSr  • OeriNC  null  CHANACrCR  STRING 

e 

e 

e LOCAL  OrCLARATIONS 
C 

c 

INTCOCR  KROurm  a arouhcnt 

INTCOCR  NAROS  I NUHRCR  Of  ACTUAL  AROUNCNTS 

INTCOCR  KRCTN  a RCTURN  K VCCTOR 

INTCOCR  HINiru  a HININUH  TICLO  UlOTH 

INTCOCR  NOIOPR  a NUNSCR  OP  OIOITS  OP  PRCCtSION 

INTCOCR  LCAOZC  a LCAOINO  ZCRO  CHARACTCR 

c 

c 

C PROCCOURC 

c 

C 

c 

C OCTCRHINC  NUNBCR  op  ACTUAL  AROUNCNTS  t RCTURN  K VCCTOR 

c 

CALL  ARORCTINAROS.KRCTNI 

c 

c 

C OCTCRHINC  VALUCS  POR  OPTIONAL  AROUNCNTS 
C 

HiNirH*ia 

I P t NAROS . OE . 9 i N ! N I PH« I OUP ( N 1 NPL  U 1 
NOIOPR-e 

I P I NAROS . OC . 4 i NO I OPR* I OUP I NOPRCC I 
LCAOZC**  ’ 

I P I NAROS . OC . S > LC AOZC * I OUP  f LOZCHR I 

c 

c 

C CHCCK  OUPPCR  POINTCRS 

c 

IPCKSOUT(CSNUw) .NC.NULCSTI  00  TO  900 
IPIKSOUTICSLOCi .LT.OI  00  TO  900 
IPIKSOUTICaCNO* .OT.esOI  OO  ro  soo 
c 
c 

C COHPUTC  NAXINUN  LCNOTn  TO  APPCNO  TO  SUPPCR.  IP  ANY 

c 

LCNHA.t*NiNO(KtOUT(CSCNOI>KOOUT(CSLOCi  .NAXOtHINIPM.lZl  i 
IPILCNk1AX.LC.0i  00  TO  SOO 

c 

c 

C CNCOOC  RCAL  AT  PIRfT  AVAILARIC  LOCATION  IN  BUPPCR 

e 

CALL  CSTHRLtKtOUT. (KSOUTICBLOCI *1 1 . ILCNNAXi . 

• RCAL.NINIPH.NOIOPR.LCAOZCI 

c 

c 

C UROATC  BUPPCR  LOC  TO  POINT  TO  LAST  CHARACTCR  NOW  IN  BUPPCR 


CBNRL 

OOff 


R*3I 


OAH  PACKAOC  AMCNOIX  R 
CNAR/Ivrc/STRINO  ROUTlNCt 


eViNL 

§•3 


KIOUnCtLOCI  •LCNCtr  IK30UT.  IKIOUr  (CItOCi  *LCNHAX1 1 

e 

e 

e ooNC 
c 

•00  RCTURN  KRCTN 
CNO 


••3t 


OAN  MCKAOC  AWCNOIX  A 
eNAR/ArrC/tTAiNO  RQUriNCt 


CLRQMO 

••I 


SUtROUnNC  CLROHO  • CLCAN  QUARrCR  MORO  NOOC 


. NItrORY 
• ••••••• 

« 

• . C N tCNLOttCR  LCC  07/tt/7t  ORIOINAL  COOC 

. HCrNOO 
• ••■•••• 

« 

cxecunvc  Rcouesr. 

. NACHINe-OCRCNOCNr  COOC 

HAirrCN  IN  ASSCHOLCA  rOR  THC  UNIVAC  ItOO  SCRieS  CONPUTCRS  UNOCR  thc 
CXCC>t  OACRATINO  SYSrCH. 

. CxrCRNAL  RCrCRCNCeS 
* 

CR  RSRt  CHANOe  RIT  IN  PR0CC$80R  STATC  RCOiSrCR 
. CxeCPTIONS 


t.  THC  CONPUfCR  HURT  RC  IN  QUARrCR-HORO  NOOC  HNCN  CALLINO  ANY  rilANIPORHt 
UNICM  RCRPORN  RYTC  OR  NYtLC  OPCRATIONS  (OCTRYT.  PUTRYT.  NOVRYf.  CYC.l. 


. OlORAl  OCCLARATIONR 


AXRR  . RTANOARO  UNIVAC  1100  RCOIRYCR  HNCNONICR 

* 

. LOCAL  0CCLARA7I0NR 


R(0n  . 0-RANK 
NP  PORN 

NARK  NP 


. RANKR  RCVCRRCO  TO  CLININATC  INOIRCCY  LOAD  YARLC  CNTRY 
IR.I.IR.I 
0.0.0. 1 


0(001  . 1*RANK 
CLROMO*  LA 

CR 


. RANKR  RCVCRRCO  TO  CLININATC  INOIRCCT  LOAO  TARLC  CNTRY 

AO. NARK 

RRRO 


R*XS 


u 


e*N  MCKAOC  A^NOU  M CiMMO 

CNAii/tvrc/sriiiNO  ftourtNCt  ooc 


J I.Xlt 

CNO 


UWUWOUOWVtUOOOUWOUUtJOUUOUUUUtJOOUUtJUUUOOOWOOUUUOU 


OAN  MCRAOC  APMTNOU  R 
CMAR/STrC/tTIIINO  MUTtNCt 


CtTRAt 

•0t 


tumourtNC  ctrAA«<  t CNARAcrsR  trnim  roR  Atcti  rttc  ttRiNO 

0 JCtRUr.  • CHARACrCR  trRINO 

• 

t JAIRUr.  9 Atcti  ivrc  ctrino 

1 NRTrti  • NUNCCR  or  irrct  ro  convcrt 

(TNC  tANC  ACTUAL  AROUftCNT  RAY  1C  UtCO  fOR  UAMUf  A UCtRurt 


NltrORT 


C M tCNLOttCR 
C N tCHLOttCR 


LCC  OY/OO'Yi  ORIOtNAl.  COOC 

LCHtco  os/co/io  trank atc  ottcs  ovcr  icy  to  ‘T* 


ncthoo 


TAOLC  LOOK'UR. 

NACMINC-OCRCNOCNT  COOC 

rtClOATA  TRANSLATC  taolc. 

CXrCRNAl  RCrCRCNCet 

OCTOYT  a OCT  RYTC  rOOH  intcrnal  oytc  STRINO 

RUTCNR  9 RUT  CHARACTCR  INTO  CNARACTCR  STRING 

csccrtions 

I.  jctRur  It  uncnanoco  ir  noyts  is  lcss  than  i. 

C.  NO  otncr  cmccks  arc  naoc  on  any  or  THC  ANOUKCNTS. 

OLOiAl  OCCLARATIONS 

NONC. 


LOCAL  OCCLARATIONS 


INTCeCR  HOT  9 NUNOCR  OT  SYTCS  CONVCRTCO 

INTCOCR  iOYT  0 OYTC  &CIHO  CONVCRTCO 

INTCOCR  UTTCRAlfNi  0 TRANSLATC  TARLC  CNARACTCR  rOR  ASCII  SY?C 


C 


R-SS 


0«ll  PACKAOC  A^WNOI*  R 
fMMi/tvrc/trRiNO  RourtNCt 


ctr«At 

•ot 


U 


c 

e 

e oitiAttv 

data  jrrcvA  t 

% * **  *1**  *B*»  *•*•  *S*#  *S*»  *A**  IN*« 

e 

8 *C**  *!*•  ***•  *••**  ***•  */*• 

c 

• ‘0*.  ‘f.  *1*.  •«»•.  *8*.  *8‘,  *7*. 

e 

7 *8*.  *8*.  *1*.  *1*.  •<*.  *••»  •»*.  •7*. 

e 

0 ••*.  ‘A*.  *8*.  *C*.  *0‘.  *C*.  T*.  *0*. 

c 

1 *H’.  ‘I*.  ‘J*.  ‘f.  *ll*.  *0*. 

c 

t ’R*.  *0*.  *A*.  *8*.  ‘T*.  *0*.  *V.  •M*. 

C 

1 •A*.  ‘T*.  *2*.  M*.  ‘A*.  • 

C 

C 

C PROCCOUAC 

c 

c 

c 

C CMACK  POP  NULL  CONVCMION 

c 

iPiNSrr8.LC.oi  00  ro  ooo 
c 
e 

C TRAN8LATC  HNILC  8CANNIN0  PROP  LCPT  TO  RIOHT 
C 

00  800  Nsr>i.NOvrf 

CALL  ocrsvrdSYr.  jAOSuP.fNorn 
IP( lovr.or. i87t  i8vr«8s  oaocii  r* 

l8rr«HAkO( ISYT'SC.OI  O eONVPRT  all  A8CII  CONTROL  etURO  ro  SPACa 
iPMsrr.or.sii  iSYr«i8Yr>xt  a convcrt  lohcr  ro  uppcr  caoc 
CALL  PureMRfuc80uP.<Mort.  jrrci»A(i8Yr*iii 
800  CONTINUC 

c 

e 

C OONC 

c 

800  RCruRN 
CNO 


4 


1 


R*SS 


oooooooooooooooooooooooooooooooooooooooooooooo 


OAN  MCKAOC  APPCNOIX  R 
CNAR/lvrC/trillNO  ROUriNCt 


etrucR 

o«i 


tuMOuriNC  ctmic  a cnar  strino  for  escotc  arre  strino  (ficloatai 

0 jcsaur.  a cnaractcr  strino 

• 

1 uctRur.  a cteete  rytc  strino 

I NRYTSI  a NUNRCR  OF  OYTCS  TO  CONVCRT 

ITMC  SAHC  ACTUAL  AROUNFNT  NAY  RC  USCO  FOR  JCOOUF  A JCSRUFt 


HISTORY  . 

C H SCHLOSSCR  tec  07/aO/YS  ORIOINAL  COOF 
NCTHOO 

table  LOOK-UP- 
HACHINE-OEPENOENr  CODE 
TRANSLATE  TAOLE. 


EXTERNAL  REFERENCES 


OETBYT  a OET  BYTE  FROH  BYTE  STRING 

PUTCHR  a PUT  CHARACTER  INTO  CHARACTER  STRING 

EXCEPTIONS 

I.  JCSBUF  IS  UNCHANOEO’IF  NBYTS  IS  LESS  THAN  I. 
a.  NO  other  CHECKS  ARC  NAOC  ON  ANY  OF  THE  AROUHCNTS. 


GLOBAL  declarations 


NONE. 


LOCAL  declarations 


INTCOCR  NBY  B NUNBER  OF  BYTES  CONVERTED 

INTEOER  IBYT  S BYTE  BEING  CONVERTED 

INTCOCR  JTTCYCC8NI  S CHARACTER  TRANSLATE  TABLE 

C 

e 


7 


R-S7 


o o o o 


etriict 

oot 


U 


OAN  MCKAOr  AMCNOIX  M 
CNAR/lYrC/SrillNO  AOUTINCS 


e 

c 


e 

e 

c 

c 

c 

e 

c 

c 

c 

c 

e 


0 t t 

data  jrreiic 

/ 

s 

•» 

a 

8 

7 

a 

a 

A 

a 

C 0 

c 

r 

c • •.•A*.*8' 

• 

•C’ 

.•0*. 

•f. 

•F’. 

•O’. 

•M’. 

•1’. 

•(  •. 

i a 
• 0 

•<•.•!•. 

•♦•. 

•1  • 

0 ‘S’.’J’.’X’ 

t 

•f 

.•H*. 

•M’. 

•O’. 

•R’. 

•O’. 

•R’. 

•I*. 

•f. 

•••.•I’. 

•»•. 

•\  • 

c •-•.•/•.•S’ 

•T’ 

.•w. 

•V. 

•M’. 

•X’. 

•V. 

•Z’. 

a • 

• 

a • 

• • 

•f  •.  • 

F •o’.’i’.’a’ 

• 

•S’ 

. ••»•. 

•S’. 

•8’. 

•7‘. 

•8’. 

•9* . 

1 • . 

•#• . 

•O’. IH’ . 

•••. 

•B* 

MOCeOURC 


CHCCK  FOR  NULL  CONVCRSION 

tF(Narrs.Le.o)  oo  ro  soo 


c 

c 

C TRANSLATC  UHtLC  SCANNINO  FROH  LCFT  TO  RIOHT 
C 

OO  500  Nar-t.NBYrs 

CALL  oerarmarr.  jeaaur.cNavn 

iaYr*noo( laYT .6<»i  a use  only  a lcast  sionificant  airs 
CALL  PurcHRcucsauF.  (nby)  . jrrc>»e(  IBYT*!  n 
SOO  CONTINUe 


ooNe 

800  RCTURN 
CNO 


) 


R>38 


ouuuuouuuuuuuuuuuuouuuuuuuuuuouou 


OAN  MCKAOC  APACNOIX  A 
CNAA/IVrC/trAlNO  ROUriNCt 


CtTHtN 

001 


OUOROUrtNC  COMtNI  0 CNAAACTCR  OTRINO  fOR  INTCOCR 

0 Korour,  o outrut  cnaractcr  otrino 

f LOCOUr.  0 CNARACrCR  LOC  HI  THIN  OUTRUT  OTRINO  MNCRC  SUOOTRINO  OCOINS 
( LCNOUT.  0 LCNOTH  (>0>  OR  OUTRUT  SUOOTRINO 


I INTOCR.  0 INTCOCR  TO  CNCOOC 

I NINRIM.  0 (ORTIONAU  NININUN  riCLOUIOTN  (LCNOUT  IF  ONITTCOI 
I LOtCNR.  • (ORTIONAU  LCAOINO  ZCRO  CNARACTCR  (RLANK  IF  ONITTCOI 
0 0.01  0 TO  KCCR  CONRILCR  STRAIONT  --  DON'T  USCIK 

(CNAR  LOCATION  COUNTCO  FRON  1 AT  LCFT  OF  STRINOI 


HISTORY 


C H OCHLOSSCR 
C N SCNLOSSCR 


LCC  09/00/70  RCQUIRCHCNTS 

LCC  I0/0**/79  OCSION  A COOC 


NCTNOO 


OCTCRNINC  ACTUAL/ I NPL ICO  VALUCS  FOR  OPTIONAL  AROUHCNTS. 

CNCOOC  INTCOCR  INTO  SUOOTRINO  HITH  NININUN  PICLONIOTH  OF  NINFLU  I 
NAXINUN  PICLONIOTH  OP  LCNOUT.  THIS  TRANSPORN  INPLCNCNTS  CXTCNOCO 
PASCAL-TVPC  INTCOCR  CNCOOINO. 


NACNlNC>OCPCNOCNT  COOC 


UNI  VAC  fortran  V RCTURN  K. 


CXTCRNAL  RCPCRCNCCO 


« 


ARORCT  0 OCTCRNINC  NUNRCR  OP  ACTUAL  AROUNCNTS  A RCTURN  K VCCTOR 

NOVCOT  0 NOVC  cnaractcr  STRINO 

PUTCHR  0 PUT  cnaractcr  INTO  CNARACTCR  STRINO 

PUTICC  a PUT  INTC0CR*CNARACTCR-CQUI VALCNT  INTO  CNARACTCR  STRINO 

INTCOCR  lOUR  a INTCOCR  OUPLICATC  (INOIRCCT  RCPCRCNCC  TO  OPTIONAL  ARO< 

INTCOCR  ICC  a INTCOCR  CNARACTCR  CQUIVALCNT 


CXCCPTIONO 


I.  IF  TNC  OUTPUT  OUROTRINO  LICS  UNOLLY  or  partially  OUTSIOC  ITS  otrino  TNC 
RCSULTO  HILL  tC  UNOCFINCO. 

C.  IF  TNC  CNCOOCO  INTCOCR  (INCLUOINO  NINUS  SION  IF  NCOATIVCI  RCOUIRCS  NORC 
than  LCNOUT  CNARACTCRO.  TnCN  CSTNIN  HILL  RCTURN  ALL  *T*  IN  TNC  OUTPUT 
OUROTRINO. 


R'SO 


uouoooou 


OAN  PACRAOC  AMCNOU  R 
CNAR/RVrC/STRtNO  ROUtlHCt 


CtriltN 

OOt 


3.  NO  or NCR  CNCCKO  ARC  RAOC  ON  ANY  OF  TNC  AROUNCNTt. 


OLOiAL  DCCLARATIONO 
NONC. 

LOCAL  OCCLARATIONS 


tNTCOCR  NAROS 
INTCOCR  KRCTN 
INTCOCR  INORCH 
INTCOCR  LOUTAB 
INTCOCR  LCOO 
INTCOCR  LFLO 
INTCOCR  LFLOAB 
INTCOCR  LriN 
INTCOCR  ICCDIO 
INTCOCR  ICCZCR 
INTCOCR  LCAOZC 


• NUNBCR  or  ACTUAL  AROUNCNTS 

• RcruRN  K vccroR 

A INTCOCR  QUOTICNT  RCNNANT  IABSOLUTC  VALUC* 

• LOC  OF  OUTPUT  8UBSTRIN0  ABSOLUTC  VALUC 

A LOC  or  eooeo  9trino 
A LOC  or  NININUH  HlOTH  PICLO 
A LOC  or  NININUH  HIOTH  riCLO  ABSOLUTC  VALUC 
A CONHON  riNAL  LOCATION 

A INTCOCR-CHARACTCR-CQUIVALCNT  Or  CNCOOCO  DIGIT 
A INTCOCR-CHARACTCR-CQUI VALCNT  Or  ZCRO  CHARACTCR 
A LCAOINO  ZCRO  CHARACTCR 


PROCCOURC 


OCTCRNINC  NUNBCR  Or  ACTUAL  AROUNCNTS  A RCTURN  K VCCTOR 

CALL  ARORCTI NAROS. KRCTN I 
C 

c 

C INiriALIZC  LOCATION  POINTCR8 
C 

LriN«LOCOUr«LCNOUT>l 

LrLO«LOCOUT 

iriNAROS.OC.Si  LrLO>LriN<IOUP(NINrLUI»l 
LrLO«NAXOILriO.LOCOUT) 

c 

c 

C INITULIZC  SION’OCPCNOCNT  VARIABLCS 

c 

INORCN-IABSI INTOCRI 

L0UTAB«L0C0UT 

LCLOAO-LCLO 

irilNTOCR.OC.OI  00  TO  100 

loutab*loutab«*  a lcavc  rooh  roR  ninus  sign 
LrL0AB«LrL0AB«l 
too  CONTINUC 

c 

c 

C INITULIZC  ZCRO  CHARACTCR  A LCAOINO  ZCRO  CNARACTCR 

c 

ICCZCR*ICCl*0*l 


R-RO 


uuuu  uuuu  uuuu  uuou 


OAN  PACKAOC  APKNOIX  R 
CHAR/tVTC/tTRINO  ROUTlNCt 


etTRtN 

001 


LCAOXe** 

irtNAROO.Ot.Ot  LCAOXe-tOURILOXCNOt 

c 

e 

e CNCooc  otoiro  roon  rioht  ro  Lcrr  until  quoticnt  rcnnant  i«  xcro 

e 

triLriN.LT.LOUTAOl  00  TO  SOO 
00  too  LC00*iriN,L0UTA0.-l 

t CCO 1 0*N00 1 1 NORCH . 1 0 1 » I CCZCN 
INQRCN«INQRCN/IO 

CALL  RUriCClKtrour. (LCOO) . ICCOtOi 
If MNORCN.CQ.Ot  00  TO  HOO 
too  CONTINUC 


fLAO  CNCOOINO  OVCRfLOU 

300  CALL  NOVCSrCKSrour.tLOCOun . (LCNOUTI . 
• •?*. Ml. CU.MM 

00  TO  900 


CNCOOC  ANY  RCNAININO  NON-OLANK  LCAOINO  ZCRO  CHARS  IN  HINIHUH  UIOTH  flCLO 

•»00  iriLCAOZC.CO.  ’ M 00  TO  900 
<»tO  IffLCOO.LC.LrLOASt  00  TO  SOO 
LCOO-LCOO-I 

CALL  PUrCHRCKSrour. (LCOOl . LCAOZCI 
00  TO  **S0 


CNCOOC  MINUS  SION  IP  INTCOCR  IS  NCOATIVC 

900  IPCINTOCR.OC.OI  00  TO  000 
LCOO*LCOO-t 

CALL  RUTCHRCKSTOUT.ILCOOI . ‘-M 


CNCOOC  ANY  RCNAININO  OLANK  CHARACTCRS  IN  HINIHUH  HlOTH  PICLO 

SOO  IPILCOO.LC.LPLOI  00  TO  700 
LCOO*lCOO«t 

CALL  RUTCHRCKSTOUT. (LCOOl . ’ M 

00  TO  SOO 
C 
C 

C SNIPT  CNCOOCO  STRINO  INTO  RROPCR  ALIONHCNT 

c 

700  CALL  NOVCSTCXSTOUT.iLOCOUTI .(LCNOUTI . 

• KSTOUT.(LCOOI.(LPIN-LCOO*ll .*  M 

c 

c 

C OONC 

c 

SOO  RCruRN  krctn 
CNO 


etr«nL 

001 


OAR  RACICAOC  AORCNOtX  R 
CRAR/OYrC/OTRINO  NOUTINCO 


OUOROUTINC  eOri»RL(  • CNARACrCR  OTRINO  fOR  RCAL 

0 KOTOUT.  • OUTRUr  CNARACTCR  OTRINO 

( LOCOUr.  • CNARACTCR  LOC  HI  TNI N OUTRUT  OTRINO  HNCRC  OUOOTRINO  OCOINO 

1 LCNOUT.  • \>CNOTN  <>0i  OF  OUTRUT  OUOOTRINO 


t RCAL.  • RCAL  TO  CNCOOC 

I NIHRLH.  • fORTIONALt  HININUN  flCLOHIOTH  CLCNOUT  If  OHITTCOI 

I NORRCC.  • (ortional)  nuhocr  or  oioito  or  rrccioion  ic  ir  onittcwi 

I LOZCHR.  • (ORTIONAL I LCAOINO  ZCRO  CNARACTCR  lOLANK  ir  OHITTCOI 

0 0.0*  • TO  KCCR  CONRILCR  OTRAIONT  --  OON’T  UOCItl 

(CNAR  LOCATION  COUNTCO  RROH  I AT  LCRT  OR  OTRINOI 


NIOTORY 


C N OCHLOOtCR  LCC 

C H OCHLOSSCR  LCC 


tO/tO/70  RCQUlRCNCNrs 

10/11/79  OeSION  I COOC 


ncthoo 


OCTCRNINC  actual/ I HRL ICO  values  rOR  ORTIONAL  arouhcnts. 

CNCOOC  RCAL  INTO  SUOSTRINO  HITH  NININUN  FICLOHIOTH  OF  HlNFLW  A 
HAXIHUN  FICLOHIOTH  OF  LCNOUT.  THIS  TRANSFORH  IHRLCHCNTS  CXTCNOCO 
RASCAL'TYPC  RCAL  CNCOOINO. 


NACHINC'OCRCNOCNT  COOC 


UNIVAC  fortran  V RETURN  K. 


EXTERNAL  RCFCRCNCCO 


ARORCT  A OCTCRHINC  NUHOCR  OF  ACTUAL  AROUHCNTS  A RETURN  K VECTOR 

NOVCST  0 NOVe  character  STRINO 

RUTCHR  • RUT  CHARACTER  INTO  CHARACTER  STRINO 

RUTICC  • RUT  INTCOCR-CHARACTCR'CQUIVALCNT  INTO  CHARACTER  STRING 

INTCOCR  lOUR  a INTCOCR  OURLICATC  IlNOIRCCT  RCFCRCNCC  TO  ORTIONAL  AROI 

INTCOCR  ICC  a INTCOCR  CHARACTER  CQUIVALCNT 


CXCCRTIONO 


I.  ir  the  OUTPUT  SUOSTRINO  Lies  UHOLLV  OR  PARTIALLY  OUTSIDE  ITS  STRINO  THC 
RCSULTS  HILL  OC  UNOCFINCO. 

0.  ir  THC  CNCOOCO  RCAL  (INCLUOINO  NiNUS  SION  IF  NCOATIVCI  RCOUIRCS  NORC 
than  LCNOUT  CNARACTCRS.  THCN  CSTARL  HILL  RCTURN  ALL  'T*  IN  THC  OUTPUT 
SUOSTRINO. 


R'Rt 


uuouuouo  o o u u 


•0t 


OAN  PACKAOC  APMNOIX  H 
CNAR/tm/tTRINO  ROUT  I NCR 


3.  NO  or NCR  CNCCKt  ARC  NAOC  ON  ANY  Of  TNC  AROUNCNTO. 
OLOOAL  OCCLARATIONO 


NONC. 


LOCAL  OCCLANATIONS 


INTCOCN  NANOS 
INTCOCN  KRCTN 
RCAL  QUORCH 
INTCOCR  LOUTAB 
INTCOCN  LCOO 
INTCOCN  LCLO 
INTCOCN  LCLOAB 
INTCOCN  LOOT 
INTCOCN  LCIN 
INTCilCN  I CCD  10 
!r;TCOCN  ICCZCN 
INTCOCN  NOIONN 
INTCOCN  LCAOZC 


• NUHOCN  or  ACTUAL  ANOUHCNTS 

• NCTUNN  K VCCTON 

a RCAL  QUOTICNT  NCNNANT  (A8S0LUTC  VALUCI 
a LOC  or  OUTPUT  suostnino  absolutc  valuc 
a LOC  or  cooco  stnino 
a LOC  or  niNiNUN  hiotn  riCLO 
a LOC  or  NININUN  hioth  riCLO  absolutc  valuc 
a LOC  or  dot  ioccinal  point) 
a CONNON  riNAL  location 

a intcocn-chanactcR'Cqui VALCNT  or  cncooco  oioit 
a lNTCOCR*CHANACTCR-CQUt VALCNT  or  ZCRO  chanactcn 

a NUNSCN  or  oioits  or  pnccision 

a LCAOINO  ZCNO  CHANACTCN 


PNOCCOUNC 


OCTCNNINC  NUNBCR  OP  ACTUAL  ANOUNCNTS  S NCTUNN  K VCCTON 
CALL  ANORCTINAROS.KNCTNI 


INITIALIZC  LOCATION  POINTCNS  S DOT 

LriN*LOCOUT*LCNOUT«l 
LPLO-LOCOUT 

irtNAROS.OC.SI  LrLO*LPlN>IOUP(NINrLHl *1 
LPLO^NAXOarLO.LOCOUTI 

• NOI0PR«( 

iriNAROt.OC.B)  NOIOPN«NAXOI lOUPtNOPNCCI .01 
LOOT«LriN«NOIOPN 

CALL  PUTCHNfKSTOUT. ILOOTt . *.•) 

C 

C 

• C INITIALIZC  BION-DCPCNOCNT  VARIAiLCS 

e 

OUONCH*ARS(RCALI«rLOATltO*<NOIOPR>«O.S  B ABSOLUTC  VALUC.  BCALCO  I NOUNOCO 

LOUTAB«LOCOUT 

LPLOAR^LPLO 

iriRCAL.OC.OI  00  TO  100 

LOUrAB*LOUTAR*l  B LCAVC  ROON  POR  HI NUB  SION 


R-Nl 


nnn  n 


0AM  OACRAOC  AMCNOIX  X 
CNAR/OYTC/OTRINO  ROUTtMCt 


etTARt 

001 


LrkOAO«LrLOAO«l 
too  CONTtNUC 
e 
c 

e tNtrUktZC  ZCRO  CNAXACrCR  o lcaoino  zcro  cnaractca 

e 

teczcR«ieci*o*i 

kCA0ze>*  * 

iriNAR00.0C.7l  LCAOZe-IOUAILOZCHX) 

e 

c 

e CNCooc  0101 rt  rxon  xiont  to  Lcrr  until  quoticnt  xcnnant  < i.o 
c 

irariN.LT.LOUTAOl  00  TO  soo 
00  coo  Leoo»LriN.LOurAO.>i 

triLCoo.CQ.Loon  oo  ro  too 

tCCOIO*NINOC9. irixi ANOOCQUOACN. 10. > I I *ICeZCR 
OUOXCN«OUORen/tO. 

CALL  xurieecKsrouT. ucool . iceoio) 

100  in  lOUORCn.LT.  1 .01  . ANO.  ILCOO.LC.LOOrn  00  TO  >»00 

coo  CONTtNUC 
c 
c 

c rLAO  CNCooiNO  ovexrLou 
c 

soo  CALL  NOVCSTCKSTOUT. ILOCOUT) . ILCNOUTI . 

00  TO  900 


CNCOOC  ANY  RCHAININO  N0N«9LANK  LCAOINO  ZCRO  CHARS  IN  HININUN  UIOTh  FICLO 

ROO  iriLCAOZC.CQ. * *1  00  TO  900 
RCO  iriLCOO.LC.LrLOAOl  00  TO  900 
LCOO«LCOO-l 

CALL  RUTCNRIK9T0UT. (LCOOi . LCaOZCI 
00  TO  RCO 

c 

c 

C CNCOOC  NINU9  SION  If  INTCOCR  IS  NCOATIVC 

c 

SOO  iriRCAL.OC.Ot  00  TO  soo 
LCOO«LCOO*I 

CALL  RUTCNRIKSTOUT. ILCOOl  . '''I 

c 

C 

C CNCOOC  ANY  RCHAININO  CLANK  CNARACTCR9  IN  NlNlNUN  UlOTN  flCLO 

e 

coo  iriLCOO.LC.LrLOl  00  TO  700 
LCOO-LCOO't 

CALL  RUTCNRIKSTOUT. ILCOOl.  * *1 
00  TO  COO 

c 

c 

C SNtrT  CNCOOCO  STRINO  INTO  RRORCR  ALIONNCNT 

c 


R«R« 


OAN  ^ACKAOff  AmnOlX  M 
CNAN/lvrC/triltNO  MOUTlNCt 


CtfUIIL 


700  CALL  HOVeOTfKOTOUr.lLOCOUn.aCNOUn. 

• Korour.(Leoo>.ariN-LCoo*n.*  *i 

e 
e 

e ooNC 
e 

000  RCrURN  KRCTN 
CNO 


OMI  MCKMC  AMCNOIX  R 

eiuM/tvrc/triiiNO  RouTiNtt 


CVMtT 

Ml 


tNOT  IHRLCMCNTCOI 


I 


emct 

o«i 


MN  ^ACKA0C  AmNOtX  « 

CMM/tvrc/ trill  NO  noun  net 


OOMLC  OMCItlON  rUNCTION 

0 a VANum.c-i.CNorN  troiNO  i<«  t cnami 

• COtACtf 

1 KtriN.  a iNNvr  CNANAcrffii  otnino 

f LOeiN.  a (ONTIONALI  LOC  IN  KttlN  UNCNC  tUOtTNINO  OCOiNt  tl  If  OHITTCOt 

I LCNINO.  a (ONTIONALI  ACNOTN  A OIRCCTION  Of  INNUT  tUOtfOINO  (•  If  ONITTCO 
(Notirivc  oiNCcnoN  • Lcrr  ro  NioHn 
iCNAN  AOCAriONt  coiwrco  rnoN  i at  LCrr  or  troiNOi 
0 o.ti  a ro  Kccr  conoucn  troAiONr  --  ooN*r  uociii 


Hitroor 


C N tCNkOOtCII  LCC 

C H SCNLOttCn  LCC 


10/00/70  RCQUIOCNCNTO 

IO/tS/70  OCSION  A CODC 


NCTNOO 


ocrcoHiNC  AcruAL/inruico  valucs  roo  orrioNAL  AOouNCNrs. 

novc  iNOur  tuotraiNO  ro  ourrur  vAoiAOLC'LCNorM  troiNO  uitn  naxihuh 

LCNOTN  or  0 CNARACrCRC. 


NACHiNC-OCrCNOCNT  COOC 


UNI  VAC  rONTRAN  V RCTURN  K. 


CXrCRNAL  RCrCRCNCCO 


ARORcr  a ocrcRRiNC  nuhocr  or  actual  arouncnto  a rcturn  k vcctor 
Rovcor  a novc  cnaractcr  croiNO 

INTCOCR  lour  a intcocr  ourlicatc  (iNoiRCcr  RcrcRCNCC  ro  orrioNAL  aro> 


cxccrrioNt 


I.  ir  COtV.O  It  NOT  OCCLARCO  OOUOLC  MCCItlON  IN  TMC  INVOKINO  ROUTINC. 
TNC  RCtULTO  MILL  OC  UNOCriNCO. 

0.  NO  OTNCR  CNCCKO  ARC  NAOC  ON  ANY  Or  TNC  AROUNCNTO. 


OLOOAL  OCCLARATIONO 


INCLUOC  NUL'.'NR.LIOr  a OCriNC  NULL  CNARACTCR 


R-N7 


O O O M 


ctv»e« 

•tt 


OAN  MCRAOC  APRCNOIX  II 
CNAR/tm/tmiNO  ROUriNCt 


e LOCAi  effCLARAriONt 

e — 

e 

mrCOCA  NANOt 
INTCeCII  KRCTN 

mrcocR  lociNN 

tNrCOCR  LCNINN 


• miNMA  or  AcruAi  ARoimCNrt 

i MTIRIN  K VCCTOO 

A CHAR  LOe  HirNiN  tmiNO  MMCOC  tUitnilNO  OteiNS 

• LffHorN  A eiMcrioN  or  mrur  tuotmino 


ocrconiNC  NUNom  or  actual  AOounCNTt  » actuan  a vcctoa 

CALL  AAOACrCNAAOS.KACTAI 


OCrCAAlNC  VALUCS  rOA  OrriONAL  aaouhcnts 

ioeiNA«i 

iriNAAot.oc.o  LOCiNN«iouriioeiNt 
LCNINAa»0 

iriNAAOt.Oe.SI  LCNlNA«IOUr(LCNlNOI 
LCNINA*NAXO(-i.HlAOI*O.LCNlNNI I 


AOVC  IT.  rCANlNATCO  MITH  NULCHA 

CALL  NOvctrieotACf.ni  .macsilcninai  *i  i . 
• KtrtN.LOCINN.LCNlNN.NULCHAI 

e 

e 

C OOAC 

c 

ACrUAA  kactn 
CNO 


( 

OAN  ^ACIUM  AmmU  II 
CMAII/tTrC/tTlltlM  ROUnNCt 


CMAIN 

••I 


* 


BOIMLC  VMCICtOM  niHCTION 

0 • VAlltAtlC*l.(NOrH  tTRIM  (<>  CNAMI  CONTAININO  CNC00C9  INTCeCA 


• CMAtNt 

I INTOCII.  • INTCOCR  TO  CNCOOC 

I NiMnw.  • le^riQNALi  niNimm  riccoMiorN  tt  ir  onirrcoi 

I kOICMI*  a (OrnONAAi  LCAOINO  ZCRO  CNARACTCN  (tlANK  If  ONirTCOI 

• t.ti  a TO  Kccp  CQMiLca  arNAioNt  --  oon*t  utciii 


Nttrony 


c N tCNueatca 
c N tCNvottca 


uce  at/fa/7t  ACQuiacnCNTt 

LCC  lO/OH/Tt  OCtlON  A COOC 


MTHJu 


KrCWNINC  ACTUAL/ IM^L  ICO  VALUCt  rOA  OATIONAL  ANOunCNTf. 

CNCOOC  INTCOCN  INTO  VANI AtLC'LCNOTN  CMAAACTCA  tTNINO  WITH  niNINUN 
riCLONiotN  or  ninclu  a naainuh  riCLOuioTN  or  a.  thio  ruNcri?N  raoviocs 
cxrcNOCO  rASCAL'Tvrc  intcoca  cncooino. 


AACMINC'OCACNOCNT  COOC 


UNIVAC  rOATAAN  V ACTUAN  K. 


AAOACT  a OCTCANINC  NUNiCA  Of  ACTUAL  AAOUNCNTf  A ACTUAN  K VCCTOA 
AUTCtM  a AUT  CNaAACTCA  into  CMAAACTCA  fTAINO 
COTAIN  a CNAAACTCA  OTAINO  fOA  INTCOCA 

INTCOCA  lOUA  a INTCOCA  OUALICATC  tlNOIACCT  ACrCACNCC  TO  OATIONAL  AAOi 
INTCOCA  LCNCtr  a lcnotm  or  chaaactca  otaino 


caecArioNO 


I.  tr  eOOAIN  It  NOT  OCCLAACO  OOUOLC  AACCItlON  IN  TNC  INVOKINO  aoutinc. 
TNC  ACaULTt  MILL  OC  UNOCflNCO. 

t.  ir  TNC  CNCOOCO  INTCOCA  (INCLUOINO  NINUt  tION  If  ItfOATIvCt  ACOUIACt 
NOAC  TNAN  0 CNAAACTCNt.  TNCN  CMAIN  HILL  ACTUAN  A fTAINO  Of  *7*. 

S.  NO  OTNCA  CNCCKt  AM  HAOC  ON  ANT  Of  TNC  AAOUNCNTf. 

OLOOAL  eCCLAAATIONf 


«-Nf 


oooo  nono  onoo 


0AM  OACKAOC  AMNNOlX  R 
CHAR/OVTC/STRINO  ROUTINCS 


COtRIN 

OOC 


O 


e 

INCLUOC  NULCMR.LISr 

c 
c 

e LOCAL  OCCLARATIONS 
C 

c 

tNreOCR  NAROS 
INTCOCR  KRCTN 
iNreocR  niNiFu 
INTCOCR  LCAOZC 

e 
c 

C PAOCCOURC 

c 

c 
c 


• OCriNC  NULL  CNARACrCR 


• NUNOCR  or  ACTUAL  AROUHCNTS 
a RCTURN  K VCCTOR 

• HININUH  FICLOHIOTM 

• LCAOINO  ZCRO  CHARACTCR 


c octcrhinc  NunacR  or  actual  arouncnts  a return  k vector 
c 

CALL  ARORETt NAROS. KRETNI 


OETERNINE  values  FOR  OPTIONAL  AROUNENTS 
HINIFH*8 

IF (NAROS. OE.EI  HI Nl FU- I OUP( HI NFLU) 
LEAOZC-'  * 

IF(NAR0S.0E.3t  LEAOZC*IOUP(LOZCHR) 


ENCODE  IT.  TERNINATEO  WITH  NULCHR 

CALL  CSTmN(C8S<»IN.(|l.(8>.  INTOER. NINIFU. LEAOZCl 
CALL  PUTCHR(C8SHIN.  (LCNCST(C8S<»IN.81  *1 ) . NULCHR) 


DONE 


RCTURN  KRCTN 
CNO 


R«SO 


UUUUOOUOUUUUUUUUUUUUUUOUUUUUOVU  oooouuuuuouuuow 


OAN  ^ACKAOC  A^WNOU  R 
CHAII/IVTC/STIItNO  NOUTtNCS 


CtfHH. 

001 


OOUILC  MCCttlOM  rUNCTION 


CtSMCC 

RCAL. 

NINrLM. 

MORRCe. 

LOZCMR. 

s.tl 


• VARlAtLCoLeMOrM  SmiNO  !<•  t CNARSI  CONTAININO  CNCOOCO  RCAL 

• RCAL  ro  CNCooe 

• (ORTioNALi  niNtnuN  riCLOHioTH  (•  If  OHirrcoi 

• (ORTionali  nunrcr  or  oiotrs  or  rrccision  («  ir  onirrcot 
a corrioNALi  lcaoino  zcro  charactcr  colank  tr  ontrreoi 

a ro  Kcer  cohrilcr  sTOAioHr  --  oon*t  useiii 


NtsroRv 


e N SCHLOSSCft 
e H SCHLOSSCR 


LCC  IO/QA/79  RCOUtRCHCNrs 

LCC  10/10/79  OesiON  A COOC 


hcthoo 


OCreRNINC  ACTUAL/ IHPL ICO  VALUCS  rOR  OPTIONAL  AROUNCNTS. 

CNCOOe  REAL  INTO  VARI ABLC-LCNOTH  CHARACTER  STRINO  UlTH  NINlHUN 
riELOHIOTH  Or  MINELH  A NAXINUN  PIELOUIOTH  Or  8.  THIS  rUNCTION  PROVIDES 
EXTENDED  PASCAL-TYPE  REAL  ENCOOINO. 


HACHINE-OEPENDENT  code 


UNI  VAC  rORTRAN  V RETURN  K. 


EXTERNAL  REPERENCES 


ARORCr  a OCTERHINC  NUHOER  op  actual  AROUNENTS  a return  K VECTOR 
PUrCNR  a PUT  character  into  CHARACTER  STRINO 
csthrl  a character  strino  por  real 

INTEOER  tOUP  a inteoer  duplicate  c indirect  reperence  to  optional  aroi 
INTEOER  LENCST  a LENOTH  OP  CHARACTER  STRINO 


exceptions 


I.  IP  COSPRL  IS  NOT  declared  DOUBLE  PRECISION  IN  THE  INVOKINO  ROUTINE. 
THE  RESULTS  HILL  BE  UNOEPINEO. 

0.  IP  The  CNCOOCO  real  mncluoino  hinus  sion  ip  neoativci  requires 
NORC  THAN  B characters.  THEN  C8SPRL  HILL  RETURN  A STRINO  DP  *7*. 

S.  NO  other  CHECKS  ARC  NAOC  ON  ANY  OP  THE  ARQUHENTS. 


OLOiAL  OECLARATIONS 


R-SI 


UtfOOO  uuuuuuou  uuuu 


OAN  MCKAOC  APMNOIX  II 
CHAii/tvrc/sriiiNO  noutincs 


c — 

e 

INCLUOC  NULCNII.LISr  A OCriNC  NULL  CNANACTCR 


LOCAL  OCCLARAriONS 


INTCOCR  NAROS 
INTCOCR  KRCrN 
INrCOCR  NINiru 
INreOCR  NO! OPR 
iNreecR  lcaozc 


a NunoCR  OP  actual  arouncnts 
A RCruRN  K vecroR 
A NININUN  FICLOMIOTH 
A NUHSCR  OF  OIOITS  OF  PRCCtStON 
A LCAOINO  ZCRO  CHARACrCR 


PROCeOURE 


OerCRNINC  NUnSCR  of  actual  arouhents  a return  k vector 
CALL  ARORETINAROS.KRETNI 


OETERNINE  VALUES  FOR  OPTIONAL  AROUNENTS 
NINIFU«e 

IF(NAROS.OE.S)  N1 N I PH- 1 OUP( MI NFLUl 
NOIOPR-E 

t F f NAROS . OE . 3 > NO  t OPR - 1 OUP ( NOPREC ) 

LEAOZC-'  * 

IFINAROS.OE.4i  LEAOZC-IOUPCLOZCNRI 
C 

c 

c ENCODE  IT.  TERNINATEO  UlTH  NULCHR 
C 

CALL  CST4RLIC0S4RL . (I  I .CRI . REAL .NINIFH.NOIOPR.LEAOZCI 
CALL  PUTCHR(C8S4RL.(LENCST(C8S4RL.8t»n . NULCHRI 
C 

c 

C DONE 
C 

RETURN  KRETN 
ENO 


CMNRi 

ioe 


oeooc 

001 


DAN  M6KA0C  A00CNOIC  II 
CIMK/tVTC/tTKINO  ROUTINCS 


0U0IIOUTINC  oeooei  0 oecooe  Nunemc  charactcr  strino 
0 INT0CR.  a INTCOCR  ReRRCSeNTAriOM  OF  OCCOOCO  CHAR  STRING  fTRUNCATCOl 
0 REAL.  a REAL  REPRESENT AT ION  OF  OECOOCO  CHAR  STRING 
0 KOOTYP.  a CODE  TYPEt 


IN* 

INTEGER 

l<StON>l<OIOIT(SI> 

Rt* 

REAL 

l<StON>ll<OieiT(SI>l.l<OIOITIS)>l 

FN* 

FRACTION 

l<SlON>l<OIOITISi>/<OIOIT(S)> 

SX* 

SEX*Y 

I<SION>l<OieiT(SI>t<BOIOITS>l t<BOIOITS>ll . KOIOITISt >11 

ERR* 

ERROR 

t KOOtUF.  a character  string  buffer  containing  encooeo  nunber 
I KOOLOC.  a location  of  encooeo  nunber 
( KOOLEN)  a length  OF  ENCOOEO  NUNBER 


history 


E 

H 

SCNLOSSER 

LEC 

0B/I0/7S 

E 

H 

SCHLOSSER 

LEC 

02/13/79 

E 

H 

SCHLOSSER 

LEC 

07/11/79 

nethoo 


STATE  TRANSITIONS. 
nachine>oepenoent  code 


ORIO  code  in  ri toin/ritorl/ritotn 
REVISE  t COMBINE 
ALLOU  LEADING  BLANKS 


NONE. 


external  references 


OETICE  a OET 
INTEGER  LCHRNE 
INTEGER  ICE 


INTEOER-CHARACTER-EOUI VALENT  FROM  CHARACTER  STRING 
a LOCATION  OF  FIRST  CHARACTER  NOT  EQUAL  TO 
a INTEOER-CHARACTER'EQUI valent  from  character 


EXCEPTIONS 


1.  EHBEOOEO/TRAILINO  blanks  are  not  ALLOUEO. 

t.  the  HHOLE  NUNBER  PORTION  NAY  NOT  CONTAIN  MORE  THAN  S NUNERIC  0101 TS. 

S.  HHEN  KOOTYP  IS  ’ERR*.  THEN  THE  CONTENTS  OF  INTOER  A REAL  ARE  UNDEFINED. 

8L0BAL  declarations 


R-9S 


uuuuuuuu  uuuu 


MN  MCKAOC  AmNOtX  R 
CNAR/RYTC/STRINO  ROUTINCt 


OCOOC 

00* 


NONC. 

LOCAL  OCCLARAriONt 


tNrCOCR  I MSI  ON 
INTCOCR  NOCNOH 
RCAL  SCALC 
INTCOCR  LOCOCT 
INTCOCR  LOCCNO 
INTCOCR  Nice 
INTCOCR  NCHAR 
INTCOCR  NSXPL 


a SION  C •!  OR  ♦!  I 
a OCNONINATOR  OP  PRACTION 

a SCALC  PACTOR  POR  0101 T APTCR  OCCIHAL/SCX*Y  POINT 
a LOCATION  OP  CNARACTCR  BCINO  ANALYZCO 
a LOCATION  OP  LAST  CNARACTCR  TO  SC  ANALYZCO 
a l*C-C  OP  CNARACTCR  SCINO  ANALYZCO 
a NUH8CR  OP  CNARS  ANALYZCO  IN  CURRENT  STATE 
a NUHSER  OP  SeXAOENARY  PLACES  ANALYZEO  IN  CURRENT  STATE 


PROCeOURC 


INITIALIZE 

INSION>*l 

INTOER-O 

REAL-O.O 

SCALE>I .0 

NOENON«0 

KOOTYP-’ERR’ 

LOCOCT«LCNRNE(K008Ur.KOOLOC.KOOLEN. * * I 

IPILOCOCT.LC.OI  00  TO  900  a INVALIO  IF  ALL  BLANKS 

lococt«lococt>i 

IPIKOOLCN.LE.Ot  00  TO  900 

L0CCN0«K00L0C4>K00LCN>I 


INITIAL  state  COCT  PCHCR  TNAN  8 SIONS) 

00  ISO  NCNAR«l.e 

LOCOCT-LOCOCT*! 

IPILOCOCT.OT.LOCCNOi  00  TO  900 
CALL  OCTICCINICC.  KOOBUP. (LOCOCT) ) 

IP((NICC.OC.ICC(*0’n.ANO.(NICC.LC.ICC('9'lll  00  TO  800 
IPINICC. CO. ICC! '.*)).  00  TO  300 
IPCNICC.CQ.ICCI*-*))  INSION*-! 

IP( (NICC.NC. ICC! '*' ) I . ANO. INICC.NC. ICC( I n 00  TO  900 

ISO  continue 
00  TO  900 

c 

c 

C INTCOCR  state  (OCT  PCHCR  THAN  10  OlOITS  BCPORC  OCCINAL  POINT) 

C 

800  00  830  NCMR-I.S 

lNTOCR«INTOCR«tO  ♦ (NICC-ICC( *0’ 1 1 
LOCOCT»LOCOCT«l 

IPILOCOCT.OT.LOCCNOI  00  TO  890 


R-9N 


o o u o u o u u o o u u 


DAN  MCKAOC  AM>CN01X  N 
CNAR/ttrC/tTRlNO  ROUrtNCt 


OCOOC 

oos 


CALL  oertcctNtcc.  Kootur.cLococm 
triNiec.co. icc(*.*ii  oo  ro  soo 
ircNtec.CQ.icci*/*n  oo  ro  hoo 
irtNicc.eo. icci*t*n  oo  ro  soo 

trc(Nicc.LT.icec*o*n.oR.(Nicc.or.tcec*t*ni  oo  ro  ooo 
tso  coNriNuc 
00  ro  000 


riNALizc  iNreocR  orAre 

too  Koorro^MN* 

RtAL>rLOAr(tNrOCRI 

00  ro  000 


REAL  srAre  coer  any  nuhoer  or  otoirs  ArrcR  occinal  point) 

300  Lococr«LOCoer*t 

iriLOCocr.or.LOCCNO)  oo  ro  soo 
CALL  OEricecNice.  Kooour. clocoet) i 

in INtCE.LT. ICEI *0' ) ) . OR. (NICE. or. ICEC 'O* n ) 00  to  900 
SCALE*SCALE«0. I 

REAL«REAL  * rLOATCNlCE'ICEl *0* )) «SCALE 
00  ro  SOO 


riNALISE  REAL  state 

390  K00TYP>'RL‘ 

REAL-PLOATI INTOERWREAL 
00  TO  900 
C 

e 

C TRACriON  state  IOET  PEUER  than  10  Oloirs  IN  OENONINATOR) 

e 

HOO  00  *»30  NCHR-l.tO 

LOCOET«LOCOEr*l 

iriLOCoEr.or.LOCENO)  oo  ro  hso 

CALL  OETICEINICE.  KOOOUP. ILOCOET ) ) 

iniNICE.Lr.lCE(’0*n.0R.(NICE.0T.ICE(‘9*n)  00  TO  SOO 
NOENON>NOENON«IO  * (NICE-ICEI *0* 1 1 

*»so  continue 
00  TO  SOO 

c 

c 

C PINALtSE  PRACTION  STATE 

c 

900  KOOTYP»*rR* 

RCAL«rLOAr(|NrOCRI/rLOATINOENON) 

INrOER«iriXIREAL* 

00  ro  000 
c 
c 

C SEXAOCNARY  STATC  IOCT  PEUER  THAN  3 SEX*Y  PLACES  ArTER  1ST  SEX'Y  POINTI 


OM  MCKAOC  APPCNOIX  A 
CHAR/tm/tTAtNO  NOUTINCt 


OCOK 


ot« 


MO  00  SM  N«XPL*I.X 

Loeocr*Loeocr»i 

ircLOCOcr.or.LOCCNOi  oo  ro  ooo 
CALL  OCrieCCNICC.  KOOOUP.CLOCOCTII 
ir(tNtcc.Lr.icct*o*n.oR.tNicc.or.tcc(’s*iii  oo  ro  ooo 
ocAi.c-ocAi.e/e.0 

RCAL«KAL  * PL0ArrNiee-ICC(*0*n«0CALe 
LOCocr«iococr*i 

tf cLoeocr.or.LoecNOi  oo  ro  ooo 
CALL  ocricctNice.  koooup.clococti l 
ir((Nicc.Lr.icc(*o*n.oii.(Nice.or.ice(*9‘in  oo  ro  ooo 
OCALC*OCALC*0. I 

RCAL^RCAL  * PLOAr INICC-ICC( *0  * II «SCALe 
LOCocr«Locoer»t 

iPCLOCoer.or.LOCCNOi  oo  ro  soo 
CALL  oericrcNice.  koooup. aocoeri  i 
ipcNtce.eo. icc( * . ’ n oo  ro  soo 
ip(Nice.Ne.icec>’)i  oo  ro  ooo 
sso  coNriNue 
00  ro  ooo 
c 
c 

C SCXAOCNAftY  OECINAL  STATC  (OCr  ANY  NUNBCR  OP  0101 r$  APrCR  OCCINAL  POINri 

e 

soo  Lococr-Lococr*t 

ipcLOCoer.or.LOCCNOi  oo  ro  soo 

CALL  ocricecNice.  koooup. aocoeri > 

ip( (Nice.tr . icei *0* > I .OR. (Ntce.oT. icei *0’ 1 1 ) oo  ro  ooo 

scALe«scAte«o. i 

RCAL-RCAt  *■  PLOAr  (Nice-ict(  *0*  I MSCALC 

00  ro  soo 
c 
c 

c piNALue  sexAOCNARY  srArc 
c 

sso  K00rYP>‘SX' 

RCAL-RCAL ^PLOArc iNrOCRI 

00  ro  900 
c 
c 

C PINAL  srArc  (ASSION  SIONt 

c 

900  INroCR^IflONC iNroCR. INSlONi 
RCAL*OION(RCAL.PLOAr( INSIONI I 
RCruRN 
CNO 


o*so 


CIHAt 

001 


OAN  f^ACRAOff  AOKNOU  0 
CNAR/tTrC/OTIIINO  ROUriNCO 


ouiliouriNC  coAAOt  0 cocoic  OYTC  orniNO  ron  aocii  oytc  otrino 

0 jcoour.  0 COCOIC  ovrc  omiNo 

• 

1 jAtour.  I AOCII  ovrc  oriiiNO 

I Nivroi  • NUNOCR  or  ovrco  ro  eoNvCRr 

ITNC  OANC  ACTUAL  AttOunCNT  NAY  OC  UOCO  fOO  JAOOUC  A JCOOUft 


NlOrORV 


C H SCNLOSSCR  LCC  07/00/70  RCQUIRCNCNtt 

C N SCHLOSSCR  LCNSCO  01/01/00  OCSION  A COOC 


NCTNOO 


rAOLC  LOOK-ur. 


NACNINt'OereNOCNT  COOC 


NONC. 


CXrCRNAL  RCrCRCNCCS 


ocrorr  a ocr  oytc  tron  intcrnal  bytc  string 

ruroYT  a rur  oytc  into  internal  oytc  string 


CXeCRTIONS 


I.  ucoour  IS  UNCNANOCO  ir  NOYTS  IS  LESS  THAN  I. 

0.  ASCII  OYTCS  UITN  A NUMERIC  VALUE  OREATCR  THAN  107  ARC  TRANSLATCO 
TO  the  COCOIC  CHARACTER  CORRCSRONOI NO  TO  ASCII  107. 


OLOOAL  OCCLARATIONS 
NONC. 

LOCAL  OCCLARATIONS 


INTCOCR  NOV 
INTCOCR  ISVT 
INTCOCR  urrCNAIIOOl 


a NUNOCR  or  ovrcs  convcrtco 
a ovrc  ociNO  convcrtco 

a TRANSLATE  TAOLC  — COCOIC  TOR  ASCII 


OAN  MCKAOff  AMCNOtX  A 
CNAR/evrC/tTRINO  AOUTINCt 


CVlAt 

oat 


0 I t s •» 

DATA  tjrmAINI.N«l.3tt  / 


8 0 7 

0 eOATAOL  CNAAACrCAO 


NUL 

80M 

8tX 

crx 

cor 

CAQ 

ACK 

OCL 

0 

000. 

001. 

000. 

003. 

088. 

0*»8. 

0N8.  0N7. 

88 

NT 

Lr 

77 

rr 

CA 

80 

SI 

1 

Ott. 

008. 

037. 

on . 

010. 

013. 

01%.  018. 

OLC 

OCI 

oco 

0C3 

OCN 

NAK 

SVN 

crt 

« 

018. 

017. 

010. 

018. 

080. 

001 . 

080.  038. 

CAN 

CN 

suo 

CSC 

FS 

OS 

AS 

us 

3 

08N. 

008. 

083. 

038. 

000. 

008. 

030.  031t 

• At  IS  ALSO  COCOIC  08377 


0 I * 3 •» 

DATA  ( jrre<»AINI  .N*33.s<»i  / 


• AUNCrUAriON  A NUNBCR8 


SA 

1 

■ 

• 

s 

t 

a 

a 

% 08%. 

080. 

107. 

103. 

081 . 

108. 

080. 

109. 

( 

t 

• 

♦ 

« 

- 

. 

/ 

8 077. 

083. 

080. 

078. 

107. 

096. 

079. 

097. 

0 

1 

0 

3 

H 

S 

6 

7 

8 0%0. 

8%t . 

OHO. 

OHS. 

OHH. 

OHS. 

0H8. 

0H7. 

8 

8 

t 

t 

< 

• 

> 

7 

7 0%8. 

OHS. 

100. 

OSH. 

078. 

108. 

no. 

III/ 

0 

1 

0 

3 

H 

9 

6 

7 

DATA 

(UtrCHACNI 

.N*6S 

.961 

t 

a uAACR  CAse 

a 

A 

8 

C 

0 

e 

r 

0 

8 10%. 

193. 

19H. 

188. 

196. 

197. 

190. 

199. 

N 

1 

J 

K 

L 

N 

N 

0 

8 000. 

001 . 

008. 

010. 

Oil  . 

010. 

013. 

OlH. 

A 

Q 

A 

s 

T 

u 

V 

H 

0 018. 

018. 

017. 

008. 

087. 

008. 

009. 

030. 

X 

7 

3 

1 

\ 

1 

NOT 

... 

1 031. 

830. 

OSS. 

173. 

OOH. 

188. 

098. 

109/ 

0 

1 

0 

3 

H 

9 

6 

7 

OAtA 

c jrrcHAiNi 

.N«87 

.1081 

/ 

a LoucA  CAse 

ACeCNt 

A 

0 

C 

0 

C 

r 

0 

0 101. 

too. 

ISO. 

131 . 

ISO. 

133. 

I3H. 

139. 

N 

1 

J 

K 

L 

A 

N 

0 

3 138. 

137. 

IH8. 

IH8. 

1H7. 

IH8. 

IH9. 

ISO. 

A 

0 

A 

S 

r 

U 

V 

U 

<*  181. 

ISO. 

193. 

100. 

183. 

I6H. 

109. 

166. 

X 

y 

Z 

-1 

OA 

1- 

riLO 

OCL 

8 187. 

180. 

168. 

180. 

079. 

008. 

161 . 

007/ 

AAOeCOUAC 


CNCCK  rOA  NULL  CONVCASION 

iriNorrs.LC.oi  oo  to  too 


I 


I 


T 


A>88 


OAN  MCKAOC  *mH0IX  R 
CIMfl/tYrC/$TlltNO  ROUT  I net 


CtOAt 

••1 


e 

00  too  RRY«t.RRVrt 

CALL  OCrOYTtlRVT.  JAtiUF.INRYn 
l■YT•ntNO(IOYT,ltTi 

CALL  RUrtYTtUCROUr.fRRYI.  JTTCHAI I1VT*I t I 

000  CONTtRUC 

e 

e 

e ooNC 
e 

too  RCTURN 
CNO 


I 


I 


R«SO 


DAN  MCRAOC  ARRCNOIX  R 
CNAR/im/tTRINO  ROUTlNCt 


CVlCtT 

OtI 


tuMouriNC  ciHCtri  • cteoie  tyre  staino  tor  char  strino  irtCLOATAt 

0 jCMur.  A ctcoic  tvre  striro 
• 

t JCtRUr.  A INTCRNAL  CNARACTCR  RTRINO 

1 NCNARtI  A NUHRCR  Of  CNARACTCRS  TO  CONVCRT 

(TNC  AANC  ACTUAL  AROURCNT  NAY  RC  UCCO  TOR  JCfRUr  A JCMUfl 


history 


C H tCNLOtSCR  LCC 


07/AA/7A  ORIOINAL  COOC 


NCTNOO 

TAALC  LOOK'UR. 

NACNINC-OCACNOCNT  COOC 
TRANSLATC  TARLC. 

CXTCRNAL  RCrCRCNCCS 

OCTICC  A OCT  l-C*e  TAOn  CNARACTCR  STRINO 
RUTRYT  A RUT  fVTC  INTO  SYTC  STRINO 

CXCCRTIONS 

I.  JCRtUr  IS  UNCNANOCO  If  NCHARS  IS  LCSS  THAN  I. 

>.  NO  otncr  chccks  arc  naoc  on  any  or  tnc  arouhcnts. 
OLOOAL  OCCLARATIONS 


NONC. 


LOCAL  OCCLARATIONS 


A NUNtCR  or  CNARACTCRS  CONVCRTCO 
A I'C-C  or  CNARACTCR  RCINO  CONVCRTCO 
A TRANSLATC  TAtLC  --  CtCOIC  RYTC  rOR  CNARACTCR 


INTCOCR  NCN 
INTCOCR  Nice 
INTCOCR  UTTC**C(t«t 


e 

e 


R«tO 


CMCtr 


IAN  NACKAOC  ANNCNOIX  N 
iNAN/tm/tTNINO  NOUriNCt  Off 


0 t t I « S • 7 

DATA  jrrc«e  / 

• I I * A AN 

0 1N7«  7H*  N0«INI«  7N»  S*l«ltlilS7, 

e 0 c r 0 N I j 

1 INS. INN. tt7. INN. INN. too. «0I .NON. 

KLNNONQN 
t tIO.tll.tIt.f ll.tli».ttS.tl6.tt7. 

truVMXYZ 

S ftO.ft7.ttO.ttO.tSO.tSI .tst.tss. 

1 •*<•>00 
•*  OS.  00.  70.  70.lt0.ll0.  00.  01. 

• ( t t ? I . \ 

0 Of.  77.l00.ttt. t il . 70.107.  00. 

0 1 t S •»  0 0 7 

0 r»0.t**l  .fi»t.ti*S.t'»H.t*>S.t<*6.t*»7. 

0 0 ’ I / . ■ 

7 t«>0.t*»0.  Its.  0*».  07.  7S.  107.100/ 


AAOCCOUAC 


CNCCK  rot  NULL  CONVCNOION 

iriNCNAAO.LC.OI  00  TO  000 


e TRANOLArC  HNILC  OCANNINO  fRON  RIONT  TO  LCfT 

e 

00  000  NCN«NCNAR0.I .•! 

CALL  ocrieciNicc.  ucoour.NCNi 
CALL  Rurorrtjcoour.iNCNi . urrcYCiNicc*! i i 
000  eoNfiNur 
e 
c 

C OONC 

e 


CNO 


R-NI 


OAN  PACRAOC  ARMNOIX  II 

ciiAii/tvrc/triitNO  nourtucs 


u 

rtkMi 

Ml 


(NOT  IHm.CNCNrCOi 


«-M 


MH  MCKMC  AffCNOIK  II 
CNMI/eVTC/VnilM  MUriNCt 


•crivr 

Ml 


tUMOVriNK  ttTtYri  • OCT  NON-NCO  INTfOCII  rOOfl  iVTC  IN  NTTC  OTNINO 

• lOVT.  • UNOACRCO  OYTC  (RtONT-ALtONtO  0 XCROoftkkCOI 

• 

I lOYtril.  0 INTCNNAk  OYTC  OTNINO 

C ItYiOei  0 lYTC  LOCATION  NITNIN  OTNINO  (COUNTINO  fNM  1 AT  LCCTl 


NIOTQNY 


C N tCNLOOOCN  LCC  07/07/70  ONIOINAL  COOC 


NCTNOO 


CONYCNT  tTNlNO'NCLATIVC  OYTC  LOCATION  TO  NACMINC'OCNCNOCNT 
LOCATION  At  rOLLOHtt 

mono  NUNOCN  • S«»  HOST  tlONlflCANT  01  T$ 

QUANTCN'HONO  LOCATION  NITNIN  NONO  • i LCAIT  tlONlflCANT  01 Tt 


NACNINC'OCNCNOCNT  COOC 


NNITTCN  IN  AttCNOLCN  fON  TmC  UNIVAC  1100  tCNICt  CONfUTCRt  UtiNO  t>OIT 
OUANTCN  NONOt.  THC  ANOUHCNTO  ARC  OCttONCO  TO  1C  HACMINC'INOCRCNOCNT . 

OUT  TNC  NCTNOO  Of  RAttINO  AROUNCNTt  It  THAT  UtCO  OY  UNIVAC  fORTRAN  V. 
INRLCNCNTINO  COOC  NUtT  OC  RCNRITTCN  fOR  OlffCRCNT  HORO  tICCt. 

OirrCNCNT  COftRiLCRt  ICO..  UNIVAC  AtCII  fORTNANI.  ANO  OlffCRCNT  NACHiNCt. 


CXTCNNAL  NCfCMNCCt 


CXeCNTIONt 


I.  TNC  eONRUTCR  NUtT  OC  IN  OUARTCR'NORO  NOOC . lAttCNOLC  HITN  OAtN.f 
OR  COLLCCT  MITN  tNAN.f  ON  INtUNC  TmaT  tCTOMO  HAt  CALLCO  RRCVIOUtLY.I 

C.  lOTT  10  UNCNANOCO  If  lOYLOC  It  LCtt  THAN  I. 

S.  TNC  MOULT  10  UNOCflNCO  If  lOYtTN  OOCt  NOT  CONTAIN  VALID  OYTC  VALUCt 
<IN  TNC  NANOC  OCTNCCN  0 ANO  •Ctt». 

0.  NO  OTnCN  CNCCNO  arc  NAOC  ON  ANY  Of  TNC  ANOUNCNTt. 

M.MAL  eCCLANATIONO 


OAH  PACKA6C  AmNOlX  R 
eNM/tYTC/sriHNO  ROUriNCS 


•frtvr 

oo« 


AXM  . STANOARO  uni vac  1100  RCOISrCR  NNCHONICS 


LOCAL  OCCLARAnONS 


NONE 


RROCCOURC 


ffOOl  . 

1 -BANK 

. BANKS  REVERSCO  TO  LL INI  NATE  INDIRECT  LOAD  TABLE  ENTRY 

OtfOYT* 

LA 

At  .•8.XI I 

. BYTE  LOCATtON.  COUNTtNO  rRON  t 

AA.XU 

At  . -t 

. BYTE  LOCATtON.  COUNTtNO  ERON  0 

JN 

At .RETURN 

. LOCATION  TO  LEET  OF  ARRAY! II 

OSL 

At  .8 

. Al  - HORO  LOCATtON 

SSL 

A8.3H 

. A8  - OHO  LOCATION  HI  THIN  HORO 

AA 

At . t .Xt  t 

. CONVERT  HORO  LOCATION  TO  ADDRESS 

EX 

extract. a8 

. extract  byte  froh  proper  QTR 

SA 

AS. «O.Xt  t 

. STORE  RIOHT-ALIONEO  A ZERO-FILLEO 

RETURN 

J 

H.Xt  t 

EXTRACT 

LA. at 

AS.O.At 

LA. 08 

AS.O.At 

LA. as 

AS.O.At 

LA. OH 

AS.O.At 

‘ 

END 

OAN  PACKAOC  AMCNOIX  M 

eNAii/»vrc/sriiiNO  routincs 


•CrCNR 

oot 


sumouriNC  oercHiit  a oct  one  charactcr  moH  cnaractcr  stihno 

0 KNAR.  A UNRACKCO  CNARACTCR  CLCFT^AL lONCO  A SPACC-FILLCOI 

• 

t JtTRNO.  A CNARACTCR  STRINO 

t KNRLOC)  A CNARACTCR  LOCATION  NITNIN  STRING  fCOUNTiNO  FRON  1 AT  LCFTI 


CNTRY  eCTICCC  A OCT  INTCOCR  CNARACTCR  CQUIVALCNT  FRON  CNARACTCR  STRING 

0 Nice.  A INTCOCR  CNARACTCR  CQUIVALCNT  (RIONT-ALIONCO.  ZCRO-FILLCOI 

1 jstrno.  a cnaractcr  string 

I KHRLOCI  A CHARACTCR  LOCATION  NITNIN  STRING  (COUNTING  FRON  1 AT  LCFT) 


HISTORY 


e H SCHLOSSCR  LCC  0S/0S/7S  ORIGINAL  COOC 


HCTHOO 


STRINO-RCLATIVC  CHARACTER  LOCATION  IS  CONVCRTCO  TO  HACHI NC -OePCNOCNr 
LOCATION  AS  FOLLOHS: 

HORO  NUHBCR  - (CHARACTER  LOCATION  > I)  / CHARACTERS  PER  HORO 
CHARACTER  LOCATION  HI  THIN  HORO  - RCNAINOCR  FROM  DIVISION 


HACHINC'OCPCNOENT  COOC 


HRITTCN  IN  ASSCHSLCR  FOR  THE  UNIVAC  MOO  SCRICS  COHPUTCRS  USING  6-GIT 

ficloata  characters,  the  arouhents  are  OCSIONCO  to  6E  machine -I noepcnoent . 

SUT  TNC  HCTHOO  OF  PASSINO  AROUMCNTS  IS  THAT  USCO  GY  UNIVAC  FORTRAN  V. 
IMPLCMCNTINO  COOC  MUST  BE  RCHRITTCN  FOR  OIFFCRCNT  CHARACTER  COOCS. 
OIFFCRCNT  COMPILERS  (CO..  UNIVAC  ASCII  FORTRAN!.  ANO  DIFFERENT  MACHINES. 


CXTCGNAL  RCFCRCNCCS 


NONC 


CXCCFTIONS 


I.  KNAR  (OR  Nice I IS  UNCNANOCO  IF  KNRLOC  IS  LESS  THAN  I. 
t.  NO  OTNCR  checks  arc  MAOC  ON  ANY  OF  TNC  AROUMCNTS. 


R-es 


OAN  PACKAOC  APKNOtX  II  •CTCNR 

CNAR/tYrC/trillllO  ROUriNCS  OOC 


. OLORAL  OCCLARATIONS 


AXRt  . SrANOARO  UMtVAC  ItOO  RCOtSTCII  NNCNONICS 


. LOCAL  OeCLARAriONS 


tIOtt  . 0*0ANK  . BANKS  RCVCNSeO  TO  CLININArC  INOIRCCT  LOAD  TAOLe  CNTRV 

SRACeS 
• 

. RROCeOURC 


scoot  . I 'SANK 


OCTCNR* 

LA 

A8.«a.xt 1 

. CHAR  LOCATION.  COUNT  1 NO  FRON  1 

AA.XU 

AZ.-I 

. CHAR  LOCATION.  COUNT  1 NO  FROM  0 

sz 

At 

. DIVISION  COHINO 

JN 

AZ.RerCHR 

. LOCATION  TO  LCFT  OF  STRINOMI 

01. XU 

At. 6 

. AI>H0R0  LOC.  A8«SIXTH  LOC 

AA 

At.t.XM 

. CONVeRT  HORO  LOCATION  TO  AOORCSS 

ex 

exTRACT .A? 

. exTRACT  CHAR  FROM  PROPCR  SIXTH 

LA 

AO.sPAces 

. FILL  ReSULT  ... 

SA 

Aa.«o.xt  t 

. ...  HITH  SPACeS 

SA.SI 

A3.«0.xtl 

. STORe  LCFT-ALIONeO 

RCrCHR 

J 

•».XI  1 

oertce* 

LA 

A8.«Z.Xt 1 

. CHAR  LOCATION.  COUNTINO  FRON  1 

AA.XU 

AS.  -1 

. CHAR  LOCATION.  COUNTINO  FROM  0 

SZ 

At 

. DIVISION  COHINO 

JN 

AS.Rerice 

. LOCATION  TO  LCFT  OF  STRINOMI 

Ot.XU 

At  .0 

. AI-UORO  LOC.  A8-SIXTH  LOC 

AA 

At.t .Xtt 

. CONVeRT  MORO  location  to  AOOReSS 

ex 

exTRACr.A8 

. eXTRACT  CHAR  FRON  PROPCR  SIXTH 

SA 

A3.«0.Xtt 

. STORe  RtOHT«ALIONeo  S ZeRO-FILLCO 

RCTtCe 

j 

<».xtt 

CXTRACr 

LA. St 

A3.0.AI 

LA.SS 

AS.O.At 

LA. S3 

A3.0.AI 

LA.S*» 

AS.O.At 

LA.SS 

AS.O.At 

LA.SS 

AS.O.At 

eNO 

R-60 


OAN  MCKAQC  APKNOIX  R 
CNAR^tYrC/STIIlNe  ROUrtNC* 


•CTMV 

OtI 


SUMOUrtNC  OCTORYt  A OCT  NON«NCO  INTCOCR  FROH  00U9LC  8YTC  IN  BYTE  STNINO 

0 tBYT.  A UNNACKEO  DOUBLE  BYTE  (RieNr-ALtONEO  A ZERO-riLLEOt 

« 

1 IBYSTR.  A INTERNAL  BYTE  STRING 

( IBYLOCI  A BYTE  LOCATION  HITHIN  STRINO  OP  PIRST  BYTE  IN  DOUBLE  BYTE 
A ICOUNTINO  PROH  I AT  LEPT  OP  BYTE  STRiNOi 


N1 STORY 


E H SCMLOSSER  LEG  OY/OS/7S  ORIOINAL  CODE 


HETHOO 


CONVERT  STRINO^RELATIVE  BYTE  LOCATION  TO  HACHI NE -OEPENOENT 
LOCATION  AS  POLLOUS: 

HORO  NUMBER  • 3«  MOST  SIONIPICANT  BITS 

OUARTER-HORO  LOCATION  HI  THIN  HORO  > 8 LEAST  SIONIPICANT  BITS 
EXTRACT  B-BIT  CONTENTS  OP  THO  9-BIT  QUARTER  HOROS  A CATENATE 


MACHINE'OERENOENT  COOE 


HRITTEN  in  ASSEMBLER  POR  THE  UNIVAC  1100  SERIES  COMPUTERS  USING  9-BIT 
QUARTER  HOROS.  THE  ARGUMENTS  ARE  OESIONEO  TO  BE  MACH  I NE- 1 NOEPENOENT . 

BUT  THE  METHOO  op  PASSING  ARGUMENTS  IS  THAT  USEO  BY  UNIVAC  PORTRAN  V. 
IHPLEHENTINO  CODE  MUST  BE  REhRITTEN  POR  OIPPERENT  HORO  SIZES. 

OIPPERENT  COMPILERS  CEO..  UNIVAC  ASCII  PORTRAN).  ANO  OIPPERENT  HACHINES. 


EXTERNAL  REPERENCES 


NONE 


EXCEPTIONS 


I.  TNE  computer  must  be  in  QUARTER-HORO  mode.  (ASSEMBLE  HITH  AASM.P 
OR  COLLECT  HITH  ANAP.P  OR  INSURE  THAT  SETOHO  HAS  CALLEO  PREVIOUSLY.) 

B.  IBYT  IS  UNCHANOEO  IP  IBYLOC  IS  LESS  THAN  I. 

3.  TNE  RESULT  IS  UNOEPINEO  IP  IBYSTR  DOES  NOT  CONTAIN  VALID  BYTE  VALUES 
(IN  the  RANOE  between  0 ANO  *889). 

R.  NO  other  CHECKS  ARE  NAOE  ON  ANY  OP  TNE  AROUMENTS. 


OLOBAL  OCCLARATIONS 


u 


OAN  MCKAOC  AmNOlX  II  0CTMV 

eiiAfi/tvrc/sriliNo  koutincs  oo« 


» 

AXR*  . STANOARO  uni  vac  ItOO  RCOtSTCR  HNCHONICS 

LOCAL  OeCLARATtONS 


NONE 


RROCCOURE 


scoot  . 

t >RANK 

. RANKS  RCVERSEO  TO  ELlHINArC  INDIRECT  LOAD  TARlE 

OETORY* 

LA 

A2.«2.XtI 

. RYTE  LOCATION.  COUNTtNO  FROM  1 

AA.XU 

A2.-1 

. RYTE  LOCATION.  COUNTING  FROM  0 

JN 

A2. RETURN 

. LOCATION  TO  LEFT  OF  ARRAVIIl 

OSL 

A2.2 

. A2  - WORD  LOCATION 

SSL 

A3.  34 

. A3  • OHO  LOCATION  WITHIN  WORD 

AA 

A2.  t .XU 

. CONVERT  WORD  LOCATION  TO  ADDRESS 

EX 

OETRYTI. A3 

. OET  FIRST  RYTE  OF  OOURLE  RYTE 

LSSL 

AO.R 

. SHIFT  R RITS  LEFT 

EX 

0RRYT2.A3 

. OR  WITH  SECOND  RYTE 

SA 

At.«O.XIt 

. STORE  RIOHT-ALIONEO  i ZERO-FILLED 

RETURN 

J 

4.Xt  1 

oetryti 

LA.Qt 

A0.0.A2 

LA. OS 

A0.0.A2 

LA. 03 

A0.0.A2 

LA. 04 

AO.O.A2 

ORSYTR 

OR.  02 

A0.0.A2 

OR. 03 

A0.0.A2 

OR.  04 

AO.O.A2 

OR. 01 

AO. 1 .A2 

END 

R-RR 


nnnnnoonnoooooooooooooonoooooooonoonooooooono 


OAN  »ACKAOC  AMCNOtX  II 

eNAM#tvrc/triiiNO  MourtNrt 


OCTNCX 

oot 


tUMOUriNC  OCTMCXI  • ocr  MCXAOeCIHAL  CNAX  rnon  NVtLC  in  bytc  stnino 
0 nvbncx.  a mcx  olotr  coui valent  or  nvilc  value 


I tivtrtt.  • BYTE  SmiNO 

( IBYLOC.  A LOCATION  Of  BUBSTRINO  HI  THIN  STNINO 
C NYBLOCI  A NYBLE  LOCATION  Or  NYBLE  HI  THIN  8UBSTNINO 

IBOTN  COUNTINO  rNOH  I AT  LEFT  OF  SUBSTNlNO> 


HISTORY 


J 

c 

CRtSR 

LEC 

OY/BS/79 

REQUIREHENTS 

J 

c 

CRI8R 

LEC 

08/B3/79 

ALOORI THH 

OESION 

J 

c 

CRISR 

LEC 

08/2V/79 

ALOORI THH 

CODING 

NETHOO 


CONVERT  NYBLE  TO  HCXADECIHAL  EQUIVALENT  AS  FOLLOMS: 

CALL  OETNYB  FOR  INTEOER  VALUE  OF  NYBLE 

RERFORN  Table  look-ur  for  hex  equivalent  of  ninoinyble. ts) 


NACHINE-OERENOENT  CODE 


NONE 


external  references 


OETNYB  A OET  NON>NEOATIVE  INTEOER  FRON  NYBLE  IN  BYTE  STRINO 


EXCERTIONS 


t.  NYBNEX  IS  UNCHANOEO  IF  IBYLOC  ANO  NYBLOC  REFER  TO  A NYBLE  TO  THE 
LEFT  OF  The  byte  STRINO. 

B.  THE  RESULT  IS  UNOEFINEO  IF  IBYSTR  DOES  NOT  CONTAIN  VALID  BYTE 
VALUES  I IN  the  RANOE  BETUEEN  0 ANO  *ASS> . 


OLOBAL  declarations 


INCLUDE  NAXINT.LIST  ANAXlNUN  INTEOER  VALUE 
C 

e 

e local  declarations 
C 


R«BB 


uoou  o u u o uuuu 


•CTNCS 

00» 


e 

INTCOCR  INCX  n$»/*0*.‘f.*f.*J«.*1«.*»*.*«*.*7*.*R*,*9*. 

• •A*.*i*.*e*.*o‘.*c*.*r*/  • Ncx  taslc 

INTCOCR  NVOLC  • INTCOCR  VALUE  OC  NTOLC 

e RRoecouRC 

C INITIALI2C  NVRLC 
NVOLC>NAXINT 


OCT  intcoer  value  of  NVBLE 

CALL  OETNVB  CNYBLE.  IBYSTR. ( IBYLOC) . (NYBLOO I 
IF  tNYBLE.EQ.HAXINT)  00  TO  900  0 NYBLE  TO  LEFT  OF  STRINO 


USE  smaller  of  NYBLE  AND  IS 
NYBLE-HINOINYBLE. tSI 


OAR  RACKAOC  ARRCNOIX  R 
CHAR/BYTC/STRINO  ROUTINES 


LOOK  UP  HEX  OtOIT  IN  TABLE 

NYBHEX-IHCX(NYBLE»I I 
C 

c 

900  RETURN 
END 


R*70 


OAN  ^ACKAOC  AmNOtX  A 
CNAR/tm/tTRtNO  KOUTINCS 


OCTINT 

Ml 


tuMOuriNC  ocriNTt  a ocr  intcocr  rAon  intcoca  staino 
0 INTOCA.  a INTCOCA 

• 

t INTOTA.  a INTCOCA  STAINO 

( INTLOO  a INTCOCA  LOCATION  HI  THIN  STAINO  (COUNTINO  FAON  I AT  LCFTt 


HI STOAT 


C M SCMLOSSCA  LCC 

C H SCMLOSSCA  LCC 


10/ 1 0/70  ACQUIACNCNTS 
10/IS/7S  DCS  I ON  a COOC 


HCTHOO 


CONVCRT  STRINO-RCLAri VC  INTCOER  LOCATION  TO  MACH  I NC -OCPCNOCNT 

AOORCSS.  then  extract  contents  of  that  address. 

THIS  TRANSFDRH  IS  PROVIDED  FOR  COMPATIBILITY  WITH  OETOVT  AND  OETCHR. 


NACHINE-OEPCNOENT  CODE 


HRITTEN  IN  assembler  FOR  THE  UNIVAC  1100  SERIES  COMPUTERS. 

THE  AROUMENTS  ARE  OESIONED  TO  BE  MACMI NE - I NDEPENDENT . BUT 
the  METHOD  OP  PASSINO  AROUMENTS  IS  THAT  USED  BT  UNIVAC  FORTRAN  V. 
implementing  CODE  MUST  BE  REWRITTEN  FOR  DIFFERENT  WORD  SIZES. 
different  compilers  IEO..  UNIVAC  ASCII  FORTRAN!.  AND  DIFFERENT  MACHINES. 


EXTERNAL  RCFCRCNCCS 


NONE 


EXCEPT  IONS 


I.  INTOCR  IS  UNCHANOCD  IF  INTLOC  IS  LESS  THAN  I. 
t.  NO  OTHER  CHECKS  ARC  MADE  ON  ANY  OF  THE  AROUMENTS. 

OLOtAL  DECLARATIONS 


AXRS  . standard  UNIVAC  1100  RCOISTCR  NNCNDNICS 


LOCAL  declarations 


OAN  PACKAOC  APMNOIX  N 
CNAR/tyrC/STKINO  KOUriNCt 


•crmr 

oot 


NONC 

MOeCOUNC 


tCOOl  . I-•ANK  . tANKt  RCVCRtCO  TO  CLININArC  INOtRCCT  LOAD  TAILC  CNTRY 


LA 

AI.«>.XIt 

. INrCOCK  LOCAriON.  COUNTINO  moN  1 

AA.XU 

At.-I 

. INTCOCR  LOCAriON.  COUNflNO  mON  0 

JN 

At.RCrURN 

. LOCATION  ro  Lcrr  or  srRiNoiii 

AA 

At.t.XIt 

. coNvcnr  location  ro  AOORCtt 

LA 

AO.O.At 

. AO  I*  INTSTRI INTLOCI 

tA 

A0.«0.XII 

. INTOCR  t«  AO 

J 

H.XI  1 

• 

CNO 

RCrURN 


ocrmiL 

001 


OAN  OACKAOC  AOOCNOU  0 
CNAR/OYrC/OrOtNO  OOUriNCO 

OUOROUrtNC  OCtNULt  • OUNNV  rOANOrORN  ro  NATCH  OCrOYT/OCreNR<4Criee/OCTtNT 
0 0.0. 01  • I rORNAL  AROUNCNTt  TO  NATCN  OCTOvr/OCTCNR/OCTieC/OCr INT 

NtOrORY 

C N SCNLOOOCR  LCe  tt/3t/70  ORIOtNAk  COOC 

nctnoo 

•••  TNlt  NOUriNC  OMOULO  NCVCR  OC  CALLED  ••• 

OENCHAre  EATAL  ERROR  AND  INITIATE  ERROR  HALKRACK. 

NACHINE'OERENOENT  COOC 

UNIVAC  rORTRAN  V RETURN  0. 

EXTERNAL  RCrCRCNCCt 

NOEATL  a ERInT/LOO/COUNT  *EATAL  ERROR*  OIAONOSTIC  NCSSAOC 

CXCCETIONt 
NONE. 

RROCCOURE 

CALL  NOEATLI  *CALL  TO  OCTNUL*! 

RETURN  0 
CNO 


R-YJ 


•CTNVt 

Oil 


MN  PACRAOC  ARfCNOlX  R 
CNAR/tTTC/trRtNO  ROUTtNCt 


tMROliriNC  OCTNYtl  • OCT  NON>NCO  INTCOCR  rOON  NYOtC  IN  OTTC  OTRINO 
0 NYOLC.  • UNOACKCO  NVOLC  IIIIONToAUeNCO  A ICRO-flLLCOI 


• 

t lOrOTN.  0 INTCRNAL  OYTC  OTNINO 

( liYLOe.  0 OYTC  LOCATION  Of  tUOfTNlNO  NITNIN  OTNINO 
( NYRLOCt  0 NYOLC  LOCATION  OT  NYOLC  NITNIN  tUOSTNINO 

• (NOTH  COUNTINO  TOON  I AT  LCTT  OT  OTNINO/tUOOTNINOI 


N I STONY 


C N SCNLOSSCN  LCC  07/IQ/70  ONIOINAL  COOC 


NCTNOO 


CONVCNT  OTNINO-RCLATIVC  NYOLC  LOCATION  TO  NACHINC'OCACNOCNT 
LOCATION  AS  rOLLOUS: 

STNINO'ACLATIVC  LOCATION  IN  NYOLCS  • C* I OYLOC*NVOLOC 
MONO  NUHOCA  • S3  HOST  SIONlflCANT  BITS 
QUAATCN-HOAO  LOCATION  WITHIN  HOAD  - NCXT  C BITS 
NYOLC  LOCATION  WITHIN  WORD  • NCXT  I BIT 
CXTNACT  QUARTCR  WORD  I SHIFT  OR  NASK  TO  OCT  RRORCR  NYBLC 


NACNINC-OCRCNOCNr  COOC 


WRITTCN  IN  ASSCHBLCR  FOR  ThC  UNI  VAC  MOO  SCRICS  COHRUTCRS  USINO  S«BIT 
OUARTCR  WOROS.  THC  AROUNCNTS  ARC  OCSIONCO  TO  BC  HACHINC'INOCRCNOCNT. 

OUT  TNC  NCTNOO  OF  RASSINO  AROUNCNTS  IS  THAT  USCO  BY  UNI  VAC  FORTRAN  V. 
IHRLCNCNTINO  COOC  NUST  OC  RCWRITTCN  FOR  OIFFCRCNT  wORO  SIZCS. 

OIFFCRCNT  COHRILCRS  (CO..  UNI  VAC  ASCII  FORTRANI.  ANO  OIFFCRCNT  NACNINCS. 


CXTCRNAL  RCFCRCNCCS 


NONC 


CXCCRTIONS 


I.  TNC  CONRUTCR  Nv’ST  BC  IN  OUARTCN'WORO  NOOC.  lASSCNBLC  WITH  SASH.F 
ON  COLLCCT  with  ANAR.F  OR  INSURC  THAT  SCTQwO  MAS  CALLCO  RRCVIOUSLV.I 

C.  NYOLC  IS  UNCNANOCO  IF  IBYLOC  A NVOLOC  RCFCN  TO  A NYOLC  TO  TNC 
LCFT  OF  TNC  OYTC  OTRINO. 

S.  TNC  NCSULT  IS  UNOCFINCO  IF  lOYSTN  OOCS  NOT  CONTAIN  VALID  OYTC  VALUCS 
(IN  TNC  NANOC  OCTNCCN  0 AND  *(001. 


N-YR 


•CTNTI 

tot 


tM  tACKAtC  AttCNOIX  0 

CMAt/tm/trtiNO  touriNCt 


«.  NO  OrNCO  CNCCKO  AOC  NAOC  ON  ANY  Of  YNC  ANOUNCNYO. 


OlOtAL  OCCLAAAriONO 


AKNO  . OrANDANO  UNI  VAC  1100  NCOlOYCN  NNCNONICO 

LOCAL  OCCLANArtONO 


NONC 

ONOCCOUNC 


0(001  . I-OANK  . OANKO  ACVCNOCO  TO  CLININArC  INOIRCCr  LOAD  TaOLC  CNTOr 


OCTNTO* 

LA 

At  .*O.XI 1 

. OVYC  LOC  Of  OUOOYRINO.  COUNYINO  rOON  I 

LSOL 

Al  .1 

. NYOLC  LOC  or  OUOOYRINO.  COUNYINO  fRON  t 

AA 

At .*S.XI 1 

. NYOLC  LOC  Of  NYOLC.  COUNYINO  fRON  3 

AA.XU 

AI.«X 

. NYOLC  LOC  Of  NYOLC.  COUNYINO  fRON  0 

JN 

Al .ocruRN 

. LOCAYION  YO  LCfY  Of  OYRINOili 

OOL 

Al  .1 

. Al  I*  HORO  LOCAYION  HIYnIN  OYRINO 

OIL 

At.31 

. At  <•  OVYC  LOCAYION  HIYNIN  MORO 

OOL 

AX.  30 

. A3  1-  NYOLC  LOCAYION  HlYHlN  OvYC 

AA 

AI.I.XII 

. Al  f WORD  AOORCtO 

CX 

ocrovrc.At 

. AO  )•  OYYC  fRON  WORD 

cx 

OCYNYOLC. A3 

. Al  i>  NYOLC  fRON  OVYC 

OA 

AI.'O.XII 

. SYORC  RIOHY'ALIONCO  a rCRO’flLLCO 

RCTURN 

J 

O.XII 

• 

OCriTYC 

LA. 01 
LA. 00 
LA. 01 
LA. OR 

AO.O.AI 

AO.O.AI 

AO.O.AI 

AO.O.AI 

• 

A 

• 

• 

mynyolc 

OOL 

A0.«0 

. LCfY  NYOLC  Of  OVYC 

• 

ANO.U 

CNO 

AO.  to 

. RIONY  NYOLC  Of  OVYC 

N-Yf 


WTMV 

001 


OAN  OACRAOC  AOOCNOIX  0 
CNAII/im/OrRINO  ROUriNCO 


OUOROUMM  OCrOOVI  0 OCT  INTCOCR  TOON  OUAOOURLC  OYTC  IN  OYTC  OTRINO 

0 lOtTT.  0 UNNaCNCO  QUAOIIURLC  OYTC  lOIONT^ALIONCO  A ZCOO*riLLCOI 

• 

1 lOYOTO.  0 INTCNNAL  OYTC  OTRINO 

t lOYLOet  0 OYTC  location  NITNIN  OTRINO  Of  flROT  OYTC  IN  QUAORURLC  OYTC 
0 (COUNTINO  fRON  I AT  LCfT  Of  OYTC  OTRINOI 


NIOTORY 


C N OCNLOOOCA  LCe  07/00/70  ORIOINAL  COOC 

C N OCNLOOOCA  LCC  07/07/70  CLAAIfY  OlON  Of  lOOTT 


NCTNOO 


CONVCAT  OTAINO'ACLATI VC  OYTC  LOCATION  TO  NACNiNC'OCfCNOCNT 
location  AO  fOLLOHOi 

NORO  NUNOCA  • lA  NOOT  OlONifICANT  ilTS 

QUARTCR'HOAO  LOCATION  MITNIN  MONO  • 0 LCAOT  IIONifICANT  01  TO 
CXTAACT  0*01 T CONTCNTO  of  fOUA  0*01 T OUAATCA  HOAOO  A CATCNATC 


NACNlNC'OCfCNOCNT  COOC 


MAITTCN  IN  AOOCHOLCA  fOA  TmC  UNIVAC  1100  OCAICO  CONfUTCAO  UOINO  O'OIT 
OUAATCA  HOAOO.  TNC  AAOUNCNTO  AAC  OCOIONCO  TO  OC  NACNI NC> i NOCfCNOCNT . 

OUT  TNC  NCTNOO  Of  fAOOINO  AAOUNCNTO  10  TNAT  UOCO  OV  UNIVAC  fOATAAN  V. 
INfLCNCNTINO  COOC  NUOT  OC  ACHAITTCN  fOA  OlffCACNT  HOAO  OtCCO. 

OtffCACNT  CONAILCRO  (CO..  UNIVAC  AOCII  fOATAANI . AND  OlffCACNT  NACNINCO. 


CITCANAL  ACfCACNCCO 


NONC 


CXCCfTIONO 


I.  TNC  CONfUTCR  NUOT  OC  IN  OUARTCA-HOAO  NOOC.  IAOOCNOLC  UITN  OAON.f 
OR  COLLCCT  MITN  INAf.f  OR  INOURC  TNAT  OCTQUO  UAO  CALLCO  MCVIOUOLY.I 

C.  lOOYT  10  UNCNANOCO  If  lOYLOC  10  LCOO  TNAN  I. 

1.  TNC  OlON  Of  tOOYT  10  NACNlNC'OCfCNOCNT  ANO  TNCACfOAC  CONOIOCACO 
UNOCfINCe. 

%.  TNC  RCOULT  10  UNOCfiNCO  If  lOYOTA  OOCO  NOT  CONTAIN  VALID  OYTC  VALUCO 
(IN  TNC  RANOC  OCThCCN  0 ANO  *CfO> . 


R-70 


0*N  PACKAOC  AMCNOU  II 

CNAii/tTrc/triitm  noun  net 


•croiY 


t.  NO  OTNCN  CNCCKt  ANC  HAOff  ON  ANT  Of  TNC  ANOONCNTt. 
I OLOOAl  eCCLANATtONt 


AXNt  . OTANOANO  UNITAC  1100  NffOtOTCN  NNCNONICO 

. LOCAL  OCCLANArtONO 


NONE 

. MOeCOUNC 


0100*  . 

t -OANK 

. OANKO  OCvCOtCO  TO  CLININATC  INOIOCCT  LOAD  TAOLC 

ocrooT* 

LA 

AO. *0. XII 

. OYTC  LOCATION.  COUNTINO  fNON  1 

AA.XU 

AO.-I 

. OYTC  LOCATION.  COUNTINO  TNON  0 

JN 

AO.ocruoN 

. LOCATION  TO  LCfT  cr  ARRAYMI 

OOL 

AO.O 

. AO  • WORD  LOCATION 

OOL 

AS.  so 

. AS  • OHO  LOCATION  HI  THIN  HORO 

AA 

AS. t. XII 

. CONVCRT  HORO  LOCATION  TO  AOORCtS 

CX 

ecroYri.As 

. OCT  riROT  OYTC  or  quaorurlc  oytc 

LOtL 

AO.O 

. ONIfT  0 OITO  LC^T 

CX 

OOOTTO.AS 

. OR  HITh  tCCONO  OYTC 

LOOL 

A0.0*» 

. OMIfT  t HORO  * i OITO  LCrT 

CX 

OOOYTS.AS 

. OR  hith  tniro  oytc 

LOOL 

AO.  00 

. ONirr  1 HORO  * 0 OITO  ICfT 

CX 

OOOYTO.IS 

. OR  hith  rOuRTH  OYTC 

OA 

At. *0. XII 

. OrORC  riONT-ALIONCO  A SCRO*riLLCO 

NCruNN 

«l 

O.KII 

• 

ocrorri 

LA. 01 

AO.O. AS 

• 

LA. 00 

AO.O. AO 

• 

LA. OS 

AO.O. AO 

• 

LA. ON 

AO.O. AO 

• 

ONOTTO 

00.00 

AO.O. AO 

• 

ONotri 

00.  OS 

AO.O. AO 

« 

onottt 

00.00 

AO.O. AO 

• 

00.01 

AO.I.AO 

• 

00.00 

AO.I.AO 

• 

• 

00.  OS 

AO.I.AO 

• 

• 

CNO 

N-TT 


«i»  oooooooooooooooooooooooooooooooooooouoooooooo 


OAN  »ACKAOC  APWNOtX  M 
CNAR/tm/SrillNO  NOuriNCS 


•CT0KH 

001 


>4 


J 


ouooouTtNC  ocroKHf  0 ocr  Ncxr  CNAO  sroiNO  data  riCLO  rnoN  ihaoc  eurren 
0 XNFLO.  • CHAR  STRINO  DATA  riCLO  (STRIR  LCAOINO  SRACCS  A PAO  TO  HO  OOTI 

( KMLCN.  • rixeo  LCNOTH  IN  CHAR  OP  KMPLO  (CXCL.  PAO  TO  HORO  OOUNOARYI 

0 LOCLCN.  0 POlNTCRSt  Ml  LOCTOKi  NCXT  PICLO  LOCATION 

ftl  LCNTOKt  NCXT  PICLO  LCNOTH 

fSI  LCNIHOt  IHAOC  OUPPCR  LCNOTH  ( «l-ll  IP  CNO  • 


I LOCLCP.  0 POlNTCRSt  Ml  PRCVlOUt  PICLO  LOCATION 

(01  PRCVI0U8  PICLO  LCNOTH 

(31  PRCVIOUS  IHAOC  OUPPCR  LCNOTH  ( *(>11  IP  CNO  I 
I INAOCI  3 IHAOC  OUPPCR  CONTAININO  CHARACTCR  STRINO  PICLOS  SCPARaTCO  OY 
TMC  POLLOHINO  OCLIHITCRS: 

. CNOS  OATA  PICLO  (NCXT  OATA  PICLO  POLLOWSI 

..  CNOS  LAST  OATA  PICLO  IN  SLOCK  (CONHCNT  PICLO  POLLOUSI 

...  CNOS  LAST  PICLO  IN  SLOCK  (NCXT  SLOCK  POLLOUSI 


HISTORY 


C H SCHLOSSCR  LCC 

C H SCHLOSSCR  LCC 


03/00/75  ORIOINAL  COOC  IN  PICLOS 

01/17/79  RCURirC  1 GCNCRALIZC 


HCTHOO 


THC  LOCLCN  IHAOC  POINTCRS  HUST  SC  INITIALIZCO  AS  POLLOUS  SCPORC  THC  PIRST 
CALL  TO  OCTOKH  HITH  A NCU  IHAOC  SUPPCR: 

LOCLCPM  1*1 
L0CLCP(0l>0 

L0CLCP(3I>  (LCNOTH  OP  IHAOC  SUPPCR  IN  CHARACTCRS> 
input  AROUHCNTS 


SCO IN  IHAOCi 
SCO IN  SLOCK  I 
SCOIN  OATA  PICLO: 
CONTINUC  SCANNING: 


LOCLCPM) 

I 

(LOC  SLOCKI 
(LOC  NCH  PICLOI 
(LOC  PRCV  PICLOI 


LOCLCP(OI 

0 

0 

0 

(LCN  PRCV  PICLOI 


LOCLCPOl 
«(LCN  IHAOCI 
♦(LCN  INAOCI 
♦(LCN  INAOCI 
♦(LCN  IHAOCI 


AROUHCNTS  RCTURNCO 


CNO  IHAOC: 
CNO  SLOCK: 
data  PICLO: 


LOCLCN! 1 1 
I 

(LOC  NCXT  SLOCKI 
(LOC  data  PICLOI 


LOCLCN(SI 

0 

0 

(LCN  PICLOI 


L0CLCN(3I 
•(LCN  INAOCI 
•(LCN  IHAOCI 
♦(LCN  INAOCI 


KHPLO 
UNCHANGCO 
UNCHANOCD 
OATA  PICLO 


OCTOKH  NAY  SC  USCO  TO  SCAN  ANY  NUNSCR  OP  IHAOC  SUPPCRS  CONCURRCNTL Y. 
PROVIOCO  CACH  HAS  ITS  OUN  LOCLCP/LOCLCN  POINTCR  ARRAYISI. 


TO  CLir.lHATC  THC  NCCO  POR  CXPLICIT  UPOATINO  OP  LOCLCP.  ThC  SAHC 
PORHAL  ARL'UHCNT  HAY  OC  USCO  POR  OOTH  LOCLCP  ANO  LOCLCN. 


> 


R-70 


OAN  PACKAOC  APKNOIX  II 
CNAR/im/STRtNO  ROUTINCS 


OCrOKN 

oet 


c 

c 

e 


NACNlNC'OCRCNOCNr  COOC 


NONC. 


CXTCRNAL  NCrCRCNCCS 


NCxroK  A oer  pointcrs  ro  next  roxCN  in  ihaoc 
Novcsr  a nove  CHARAcrcR  strino 

tNTCOCR  LCNPAO  i LCNOTH  IN  CMARACTCRS  INCLUDING  PAD  TO  HORO  BOUNDARY 


exccprioNs 


I.  IP  LOCLCN(3l  IS  LESS  THAN  ON  ENTRY.  THEN  ALL  AROUNENTS  ARE 
UNCHANGED. 

B.  DELINITER  tokens  with  more  than  3 CONSECUTIVE  CONHAS  ARE  TREATED  AS 
IF  COHPOSEO  OP  3 CONHAS. 


GLOBAL  declarations 


NONE. 


LOCAL  OECLARATIONS 


integer  L0CLEP(3I  a 
INTEOER  LOCLENfSt  a 
DEFINE  LOCTOK-LOCLENC I I 
define  LENTOK-LOCLENCBI 
define  LENIN0*L0CLEN(3I 


AROUHENT 

AROUNENT 

a PREVIOUS/CURRENT  FIELD  LOCATION 
a PREVIOUS/CURRENT  FIELD  LENGTH 

a INAOE  BUFFER  LENGTH  ( «I-H  IF  END  BLOCK/ INAOE 


INTEGER  INAOE! 1 1 


a AROUNENT 


PROCEDURE 


c initialize  output  loclen  pointers 
e 

LOCLEN!  II  «LOCLEP  Ml 
LOCLCN!»l«LOCLCP!fl 
LOCLEN! SI •LOCLEPf SI 
C 

c 

C CHECK  FOR  END  INAOE/ BLOCK  CONDITION 

C 

IFCLENINO.LE.OI  00  TO  BOO 

C 


R-TB 


OAN  PACKAOC  AmNOIX  R OCTOKH 

CNAR/tYrC/STRINO  ROUTlNes  DOS 


LOCLCN.INAOe.  *.*.  * *1 
• CNO  or  iHAoe 
A NON-ocLinireR  roKtN 
A . 

A .. 

A ... 


C riNO  NCXr  tokcn.  chcck  its  typc  a lcnoth 
e 

too  CALL  NCXrOXfKHAIIt  .LOCLCN. 
iraCNiNo.LC.oi  oo  ro  soo 
iriKMARl.NC. *. ')  00  ro  200 
irfLCNTOK.CQ.II  00  TO  •»I0 
tr(LCMT0K.ea.2i  oo  ro  •»20 
00  ro  •tso 
c 
c 

c OATA  rtCLO  — Nove  tr  ro  rnflo 
c 

200  CALL  HOVCSri KHrLO. ( 1 1 . (LCNPAOCKHLCNI ) . 

- INAOe. fLOCrOKI . (NlNOfLCNTOK.KHLCNn . ‘ ‘I 

00  ro  900 
c 
c 

C SINOLC  OELtNITCR  (.1  •-  OCT  rOLLOUINQ  DATA  FIELO 

c 

<»to  00  ro  too 
c 
c 

C OOUBLC  OeLINirCR  C..I  ••  FLUSH  FOLLOUINO  COHNCNT  FtCLO 

c 

■120  CALL  NCXTOKCKHARI  .LOCLEN.  LOCLEN . I HAOE . 

irtLENIHO.LE.OI  00  TO  900  A END  OF  IHAOE 

IFCKHARt  .HE.  * . * I 00  TO  •»20  A COHHENT  FIELD 
irCLENrOX.LT.SI  00  ro  <»20  a not  eno  of  slock 
c 
c 

C triple  OELintTER  C...I  — CNO  OF  SLOCK 

c 

«30  LOCrOK«LOCrOK«LENrOK  A start  of  next  slock 
LENTOK-0 

LENinO«»tABS(LENlHOi 

c 
c 

C BONE 
C 

900  RETURN 
ENO 


I 


R-ao 


OAN  PACKAOC  APPCNOIX  R ORAMA 

CHAR/RYTC/STRINO  ROUriNCS  001 


cNor  iNRLcncNreoi 


OAN  PACKAOC  AmNOtX  II 
CNAii/tvrc/sriliNO  ROurtNCt 


•rtvTt 

oot 


suMOurtNC  eravrsi  • ocr  anrav  or  non-nco  intcocrs  mon  ovre  smiNO 

0 ItYRAV.  A array  Of  UNPACKCO  RYTCS  (RIOHr>AtlONCO  A ZeRO*rtl.l.COI 


I IRYOTR.  a INTCRNAL  RYTC  STRINO 

t IRYLOC.  a RYTC  LOCATION  WITHIN  STRINO  ICOUNTINO  TRON  I AT  LCfTI 
I NtYTSI  a NUN8CR  Of  RYTCS 


HISTORY 


C H SCNLOSSCR  LCC  07/07/70  ORIOINAL  RCQUIRCHCNTS 


NCTHOO 


STRINO-RCLATI VC  BYTC  LOCATION  IS  CONVCRTCO  TO  NACHt NC-OEPCNOCNr 
LOCATION  AS  POLLOHS: 

WORD  NUNRCR  > 3<»  HOST  SIONIPICANT  BITS 

OUARTCR-UORO  LOCATION  WITHIN  HORO  • B LEAST  SIONIPICANT  BITS 


nachine-oepenoent  code 


WRITTEN  IN  assembler  POR  ThE  UNIVAC  1100  SERIES  COMPUTERS  USING  9-BIT 
QUARTER  WORDS.  THE  ARGUMENTS  ARE  OESIONEO  TO  BE  MACHI NE- I NOEPENOENT . 

BUT  THE  method  OP  PASSING  ARGUMENTS  IS  THAT  USED  BY  UNIVAC  PORTRAN  V. 
INPLENENTINO  code  must  be  rewritten  POR  OIPPERENT  WORD  SIZES. 

OIPPCRENT  COMPILERS  (EO. . UNIVAC  ASCII  PORTRAN).  ANO  OIPPERENT  MACHINES. 


EXTERNAL  RCPCRENCES 


NONE 


EXCEPTIONS 


I.  the  COMPUTER  MUST  BE  IN  QUARTER-WORD  NODE.  I SEC  SUBROUTINES 
SCTOUO  ANO  CLROWOI 

R.  IRYRAY  IS  UNCHANOCO  IP  IRYLOC  IS  LESS  THAN  I. 

S.  IRYRAY  IS  UNCHANOEO  IP  NRYTS  IS  LESS  THAN  I. 

<*.  NO  other  checks  ARC  MADE  ON  ANY  OP  THE  AROUNCNTS. 

OLORAL  declarations 


R-RR 


OAN  PACKAOC  AMCNOtX  A OrtYTt 

CNAA/lYTC/SrRINO  AOUTINCt  OOt 


NONC. 


AXRt  . tANXt  RCVCRSeO  TO  CLtHINATC  tNOIRCCY  LOAD  TAALC  CNYRtCS 

ttOOi  . l*tANK 


R*tS 


OAN  MCKAOC  APKNOIX  R 
CNAR/iYrc/sriiiNO  RourtNCt 


ICC 

001 


INTCOCR  FUNCTION 

0 • iNrcoeR-CNANAcrcR-eauivALCNr 

• iec( 

1 KNARI  • UNFACKCO  CNARACTCR  ILCFT'AUONCO.  REST  tONORCOI 


Ml story 


C H SCHLOSSCR  LCC  00/07/70  ORIOINAL  COOC 


HCTHOO 


LCFT-ALtONCO  CHARACTCR  IS  LOAOCO  INTO  RCOISTCR. 


HACHiNe-ocpeNOCNT  cooe 


HRITTCN  IN  ASSCHBLER  FOR  THE  UNIVAC  1100  SERIES  CONP'jTERS  USINO  S-BIT 
PIELOATA  CHARACTERS.  THE  AROUNEnTS  ARE  OESIONEO  TO  BE  HACH I NE> I NOEPENOENT . 
BUT  THE  method  OF  PASSING  AROUNENTS  IS  THAT  USED  BY  UNIVAC  FORTRAN  V. 
INPLENENTINO  COOE  MUST  BE  REURITTEN  FOR  DIFFERENT  CHARACTER  COOES. 
DIFFERENT  COMPILERS  (EO..  UNIVAC  ASCII  FORTRAN).  ANO  DIFFERENT  MACHINES. 


EXTERNAL  REFERENCES 


NONE 


EXCEPTIONS 

I.  IF  KNAR  IS  A character  STRINO  INSTEAD  OF  A SINOLE  CHARACTER.  THEN  THE 

I'C'C  OF  the  first  character  in  the  string  is  returned. 

OLOBAL  declarations 

AXRS  . STANOARO  UNIVAC  1100  REOISTER  MNEMONICS 

LOCAL  DECLARATIONS 
NONE 

PROeCOURC 


R-ON 


OAN  MCKAOC  AMCNOIX  A 
CNAft/tvrC/trAlNO  ROUriNCt 


ICC 

•M 


ttOOl  . I-CANK 
iec«  LA. II 

J 

CNO 


. CANKS  RCVCASCO  TO  CLININATC  iNOIRCCr  LOAD  TAILC  CNTAV 

AO.«O.XIt 

t.XII 


R*C9 


leiM 

•01 


AmNOtX  R 
RINO  ROUrtNCt 


INTCOCR  ruRcnoN 

0 • CNARACrCR 

• ICHRf 

1 NICO  • INrCOCR*CNAR>CQUlV  CRiONr«ALIONCO.  RCtT  lONORCOI 


NitroRr 


C M SCNLOtSCR  LCC  06/t7/7i  ORIOINAL  COOC 


NCTHOO 


tec  It  LOAOCO.  RIONr>ALiONCO  A rOLLOUCO  or  SPACC8.  thcn 
tNtrrco  Lcrr. 


NACNlNC-OePCNOCNr  COOC 


HRtrrCN  IN  AtSCNSLCR  TON  THC  UNI  VAC  1100  SCAtCS  CONNUrCAt  USINO  ••BIT 
riCLOAfA  CNARACrCRt.  THC  AROUNCNTt  ARC  OC8IONCO  TO  BC  HACNI NC • I NOCACNOCNT . 
■Ur  THC  NCTHOO  or  AASSINO  ANOUNCNTt  IS  THAT  USCO  BY  UNI  VAC  rOATAAN  V. 
INALCNCNTINO  COOC  MUST  BC  ACMAITrCN  fOA  OirrCACNT  CHAAACrCA  COOCS. 
OirrCACNT  COHPILCAS  (CO..  UNIVAC  ASCII  rOATAANI.  ANO  OirrCACNr  NACHINCS. 


CxrCANAL  ACrCACNCCS 
NONC 

cxecprioNB 

NONC 

OIOBAL  OCCLARATIONt 

AXRt  . STANOARO  UNIVAC  1100  ACOISTCA  NNCHONiCt 

LOCAL  OCCLAAATIONt 


•(•II  . O'lANK 
•RACCB 


BANKS  RCVCRtCO  TO  CLININATC  INOIRCCT  LOAD  TAOLC  CNTRV 


OC  AMCNOIX  II 
/tmiNO  xouriNCt 


leiM 

OM 


•(00)  . 

l••ANK 

. OANKt  mvciitco 

ICNII* 

LA 

AO.«O.XII 

LA 

Al.tPACCt 

LOOL 

AO. SO 

J 

CNO 

t.Xtl 

OAN  ^ACKAOC  A^MNOIX  R 
CNAR/RYTC/trillNO  ROUTINft 


UKONC 

Ml 


INTCOCII  rUNCrtON 

0 ■ tIONCO  INTCOCR  MON  ONCt  CONNiCNCNT 
• l«IKONC( 

1 KONC.  A RtONT-ALlONCO  ONCt>CONm.CNCNr  ftXCO  MINT  NWHOCN.  LCNilTt  LONO 
f LCNOtri  t LCNOTN  Of  KONC  IN  01  ft 


Nl STONY 


C N SCNLOStCN  LCC 


IWtS/YS  NONTS/OCtlON/eOOC/rCSr 


NCTMOO 


MOVIOC  SION  exrCNSION. 


HACNINC'OCNCNOCNT  COOC 


HRITTCN  IN  ASSCHOLCN  TON  THC  UNIVAC  1100  tCHICS  COH^UTCAt  UtiNO  3«>0IT 
MONOS.  ThC  ANOUNCNTS  ARC  OCSIONCO  TO  iC  NACHt NC- I NOCNCNOCNT . 

OUT  THC  HCTMOO  or  NASSINO  ANOUNCNTS  IS  THAT  USCO  SV  UNIVAC  fONTNAN  V. 
INNLCHCNTINO  COOC  HUST  oe  NCURITTCN  TOR  OtrrCRCNT  CHANaCTCN  coocs. 
OirrCRCNT  CONPILCRS  ICO..  UNIVAC  ASCII  rONTNANI.  ANO  OirrCNCNT  HACHINCS. 


CXTCNNAL  RCrCRCNCeS 


NCRRS  • UNIVAC  CONTRAN  V LIORANT  MALKSaCK  ROUT  INC 


CXCCPTIONS 


TNC  rOLLOUiNO  CONDITIONS  INITIATC  AN  CONOR  MALKSACK  ANO  AOORT  THC 
CURRCNTLV  CXCCUTINO  RROORAHi 
LCNOir  < 0 
LCNSir  > IS 

NORC  than  ( ACTUAL  ANOUNCNTS 


OLOSAL  OCCLARATIONS 


AXRS  . STANOARO  UNIVAC  1100  RCOISTCR  NNCNONICS 


LOCAL  OCCLARATI 


NONC. 


N-00 


R-M 


•M 


) ro  CLININATC  INOIRCer  LOAD  tARtC  CNTRV 
AQ  I*  KONC 
At  !•  *CCNtir 

If  kCNRir  < I TNCN  NALKtACK 
ir  LCNRir  > II 

TNCN  MALKIACK 

iNirr  tioN  INTO  LCfTHOtr  iir  and  ... 

...  TNCN  INirr  lACK.  CXrCNOiNO  flOMI 
IKIR  Ml  ir  ICruRN  AOOR  NAS  INVALIO  INSTI 
RCruRN 

NANS  or  tnis  ruNcriON 

iNirurc  roRTNAN  v crroii  malkiack 

NUHICR  or  AROUHCNTS 


OM  PACKAOC  APMNOIX  A 
CMAR/tYTC/tTRlNO  ROUriNCt 


UKfMO 

Ml 


iHtffafa  ruiieTtAM 

0 A tlONCO  INTCOCR  fAON  THOt  COHRLCNCNr 

• tARruei 

1 KTue.  A moNr-ALtONce  ruo«*coimcMtNr  rixco  mint  nuntcii.  LCmirt  lano 

t kCMITl  A LCNATN  Of  KTIIQ  IN  tlTt 


NltrORT 


r N WNlOtUN  ICC 

C N tCNtOAACN  UCC 


At/ At/77  ANIAINAL  CAAC  IN  lANCCA 
II/IA/7A  NCNAffC  I7KTUQ  A CMCCR  ANOUNCNTA 


nctnaa 


MAVIAC  SION  CxrCNtlON. 


tr  ncaativc.  fuATRAcr  i. 


NNirrCN  IN  AAACNALCN  TON  TMC  UNI  VAC  1100  ACNICA  CONNUTCNA  UtINO  SA'AIT 
HANAA.  TNC  ANOUNCNTA  ARC  OCtlONCO  TO  AC  NACMI NC • I NOCRCNOCNT . 

Aur  THC  HCTNOO  or  RAiOlNO  AROUNCNTO  It  THAT  UtCO  AY  UNIVAC  rORTRAN  V. 

ihrcchcnyino  cooc  Nutr  ac  RcuRirrcN  roR  oirrcRCNT  charactcr  cooca. 
AirrCRCNT  COHRILCRA  ICO..  UNIVAC  AACII  rORTRANI.  ANO  OirrCRCNl  NACHINCA. 


CxrCRNAI.  RCrCRCNCCA 


NffRRt  A UNIVAC  fARTRAN  V tlARARV  HALKAACK  ROUT  INC 


cxectrioNA 


fNC  fAUAMlNA  eONAIMONA  INITIATC  AN  CRRAR  HALKAACK  ANA  AAARI 
CURRCNTtV  CXCCUriNO  RROORAHt 
tCNAir  < 0 
LCNAir  > It 


ALMAL  ACCLARa;IANA 


AXNt 

tACAL  ACCLANATIONA 


trANAANA  UNIVAC  IIAA  RCAICrCR  NNCNANiCt 


04MI  fACKAOC  A^IIQU  R 

ciMii/tm/tTRtm  RourtNCf 


IRKfHO 

•M 


( 


MWeCMRC 


•(••I  . l-tANR  . tANKt  NCVCMCO  TQ  CLtnlNAtC  INOIRCCT  LOAO  TaKC  CNTRT 


lARruo* 

LA 

AR.«R,»II 

AO  I*  RTMO 

LNA 

Ai.«t.xn 

At  !•  -LCNtir 

JR 

Ai.NALKRACR 

ir  LCNRir  < t TMCN  HALXfACK 

ruR.xu 

At.-M 

If  LCNRir  > SR 

J 

NALKiACR 

fNCN  HALKRACR 

LftL 

AO. SR. At 

RNirr  RiON  INTO  Lcrrnotr  tir  ano  ... 

««A 

AO. St. At 

...  fNCN  ONirr  SACK,  cktcnoino  sion: 

JR 

AO.RCTURN 

If  ROtirivc.  tmcn  mC’ac  oonc 

ANA.U 

AO.I 

If  NCOArivc.  rnCN  luoroAcr  i 

At r URN 

T2 

S.Itt 

RKIR  Ni  If  RCruRN  AOOR  HAS  INVALID  INSTR 

J 

S.XII 

RCruRN 

• 

UACKIACK 

LR 

RS.NAnrUN 

NAHC  Of  TNIO  fUNCTtON 

SLJ 

NCARS 

INiriATC  fOATRAN  V CRROR  NALXRACK 

* 

« 

NUNRCR  Of  AROUMCNrs 

• 

NAnruN 

* iHKrwo* 

« 

CNO 


R-tl 


OAN  PACKAOC  AMCNOIX  R 
CNAR/IVrC/^illINO  ROUrtNCS 


rUNCriON  KHR«INI  • CNARACrCR  STRINO  FOR  INTeOCR  AROUHCNr 
I INI  A INTCOCR  AROUNCNT 

C 

c 

C le  M SCHLOSSCRI 

c 

tNn.ieir  intcocr  (a-zi 

OCFINC  OlOir-RCHAlN/OIV 

c 

RCNAIN«IASS(INI 

KNR1IN-0 

irtRCHAIN. or. 999991  00  ro  900 
KHR%IN«*  00000’ 

OIV*IOOOO 

too  KHRHlN*KHR<*IN*SHirT«OIOI  r 
ReNAlN-REHAlN-OlOt  r«Ot V 
oiv>oiv/to 
SHirT>SHirr/9««6 
irtSHirr.NC.oi  oo  to  too 
in  IN.LT.O)  KHR*MN-KHR>»IN«’Haaaaa‘ 

900  RCruRN 
END 


KHRNIM 

001 


R-W 


OAN  MCKAOC  AMCNOIX  X 
CNAX/XYTC/STRINO  KOUHNCS 


KONCm 

001 


iNrcoco  ruNcrtON 

0 • niOHr-ALtoNCo  ones  eoHPLcnCNr  pron  sionco  iNreoeo 

• K0NC%l( 

( LCNOir.  • LCNorH  OP  ONCS'CONPLencNr  nuhocr  in  01 rs 

1 INtOCRI  a INPCOCR 


NtSrORY 


e H SCHLOSSCR  Ltc  11/19/79  RONrs/ocsiON/cooe/rcsr 


NCTHOO 


RCNOVe  SION  ex TENS I ON. 


NACMiNC-oepcNoeNr  cooe 


URirrCN  IN  ASSeNBLCR  POR  the  UNIVAC  1100  SERIES  CONPUTERS  using  36>eir 
UOROS.  the  ARGUnENrs  ARE  OESIONEO  TO  8E  NACH I NE - I NOEPENOENT . 

BUT  THE  NETHOO  OP  PASSING  AROUNENTS  IS  THAT  USED  BY  UNiVAC  PORfRAN  V. 
INPLENENTINO  CODE  MUST  BE  REURirrCN  FOR  OIPFERENT  CHARACTER  COOES. 
OIPPERENT  CONPILERS  (EO. . UNIVAC  ASCII  PORTRANI . ANO  OIPPERENT  NACHINES- 


EXTERNAL  REPERENCeS 


NERRS  a UNIVAC  FORTRAN  V LIBRARY  HALKBACK  ROUTINE 


EXCEPTIONS 


THE  POLLOHINO  CONDITIONS  INITIATE  AN  ERROR  HALKBACK  ANO  ABORT  THE 
currently  EXECuTINO  PROORAH: 

LENBIT  < 0 
LENBIT  > 38 

NORE  than  g ACTUAL  AROUNENTS 


OlOBAL  DECLARATIONS 


AXRS  . standard  UNIVAC  1100  REOISTER  HNCNONICS 


LOCAL  DECLARATIONS 


NONE. 


R-93 


OAN  MCKAOC  APKNOIX  M 
CNAR/tvrC/SrRINO  ROurtNCS 


KONC<»l 

oot 


RROCCOURC 


«tOOi  . l-tANK  . RANKS  NCVCRSCO  TO  CLININATC  INOIRCCT  LOAD  TARLC  CNTRY 


KONCRI* 

LA 

AO.«I.Xtl 

LNA 

AI.«0.XII 

JR 

Al .HALKRACK 

TLE.XU 

AI.-36 

J 

HALKRACK 

LSSL 

A0.S6.AI 

SSL 

A0.3R.At 

RETURN 

TZ 

3. XI  I 

J 

3. XI I 

HALKRACK 

LR 

R3.NAHPUN 

SLJ 

NERRS 

♦ 

g 

NANrUN  ‘ KONC<»  I * 

CNO 


. AO  <•  INTOCR 
. Ai  I*  -LCNRtr 
. ir  LCMRir  < t TNCN  UALK8ACK 
. ir  LCNRIT  > 36 

TNCN  HALKtACK 

. SNirr  BACK  A rORTN  TO  ... 

...  RCNOve  SION  exrcNSioN 
. SKIP  Nt  IP  RETURN  AOOR  HAS  INVALID  INSTR 
. RETURN 

. NAHE  OP  this  PUNCTION 
. initiate  PORTRAN  V ERROR  HALKRACK 
. NUN8ER  OP  AROUHENTS 


R>6*» 


f 


0AN  PACKAOC  APMNOtX  M 

CNAii/«yre/sriiiNO  RouriNCt 


KTHORI 

oot 


iNTCom  ruNcnoN 

0 a RIOHr-ALIONCO  TMOS  COHRLCHCNT  FRON  SIONCO  INTeOCR 
• KTUOIIt 

c iCNtir.  a LCNorN  or  rM0S>C0NRLCMCNr  nunrcr  in  sits 

1 INTOCRI  a iNTCOCR 


N I STORY 


C H SCNLOSSCR  LCC  1 1/19/79  RONTS/OCSI ON/COOC/ TCST 


NCTHOO 


IF  NCOArive.  Aoo  i.  rcnovc  SION  exrcNsioN. 


HACNINC-OCPeNOCNT  CODE 


HRirrCN  IN  ASSCNBLER  FOR  THE  UNI  VAC  ItOO  SERIES  COMPUTERS  USINO  36-BIT 
UOROS.  THE  AROUMENTS  ARE  OEStONEO  TO  BE  MACHI NE - I NOEPENOENT . 

BUT  THE  METHOD  OF  PASSINO  AROUMENTS  IS  THAT  USED  BY  UNI  VAC  FORTRAN  V. 
IHPLEMENTINO  COOE  must  be  REHRITTEN  FOR  DIFFERENT  CHARACTER  COOES. 
DIFFERENT  COMPILERS  (EO..  UNI  VAC  ASCII  FORTRAN!.  ANO  DIFFERENT  MACHINES. 


EXTERNAL  REFERENCES 


NCRRS  a UNI  VAC  FORTRAN  V LIBRARY  UALKBACK  ROUTINE 


EXCEPTIONS 


the  rOLLOHiNO  CONDITIONS  INITIATE  AN  ERROR  HALKBACK  ANO  ABORT  THE 
currently  EXECUTINO  PROORAMt 
LENBIT  < 0 
LENBIT  > SB 

NORC  than  9 ACTUAL  AROUMENTS 


GLOBAL  declarations 


AXRS  . STANOARO  uni  vac  1100  REOISTER  MNEMONICS 


LOCAL  declarations 


NONE. 


R-99 


OAK  MCKAOC  AWNOIX  M 
CNAM/tvrC/STRINO  ROUTtNCS 


KTHO^t 

OOC 


MOCCOURC 


ttOOl  . t-RANK  . RANKS  RCVCR8CO  TO  CLtNINATC  INOIRCCT  LOAD  TARLC  CNTRY 


RTHONI* 

LA 

AO.«t.XIt 

LNA 

At. *0. XII 

UP 

Al .UALKRACK 

TLC . XU 

AI.*3R 

J 

UALKRACK 

UP 

AO. RETURN 

JNZ 

AO. NEGATIVE 

sz 

AO 

J 

RETURN 

NCOATIVE 

AA.XU 

AO.  I 

LSSL 

AO. 36. At 

SSL 

A0.36.AI 

RETURN 

TZ 

3. XII 

J 

3. XI 1 

UALKRACK 

LR 

R3.NAHFUN 

SLJ 

NERRS 

♦ 

NANrUN  *KTUO<»t* 

CNO 


. AO  t«  INTOCR 
. At  s>  -LCNRIT 
. tr  LCNRtr  < t THCN  UALKRACK 
. ir  LCNRtr  > 36 

TMCN  UALKRACK 

. IF  Nosirtvc.  ruCN  uc*nc  oonc 

. IF  HINUS  ZCRO.  ThCN  . . . 

...  CHANOe  tr  TO  PLUS  ZERO  ... 

...  AND  MC'RC  DONE 

. IF  NCOATIVE.  then  AOO  I L ... 

...  SHIFT  SACK  A forth  TO  . . . 

...  RCHOvE  SION  extension 

. SKIP  HI  IF  RETURN  AOOR  HAS  INVALID  INSTR 
. RETURN 

. NAME  OF  this  function 
. INITIATE  fortran  V ERROR  HALKBACK 
. NUMBER  OF  AROUNCNTS 


OAN  f>ACKAOC  AWNOIX  H 
CHAM/IVTC/STMtNO  IIOUrtNCS 


LAPItA 

001 


I NOT  INOLCHCNTCOI 


N-OT 


uuoouuuouououuuouuuuuuuoouoouuuuuououu  u<»  uouoouou 


OAN  PACKAOC  AAKNOIX  A 
CNAR/AVrc/SrRINO  ROuriNCt 


LivrcQ 

001 


INTCOCR  rUNCriON 

0 • LOCAriON  or  rytc  in  surstrino  coual  to  scarcn  sytc 


• LRYTCOt 

1 JSTRO.  • RACKCO  RYTC  SYR I NO 

( KLOC.  A RYTC  LOCATION  MITNIN  STRINO  HNCRC  SURSTRINO  RCOINS 

( LCNO.  a lcnoth  s oircction  or  surstrino  (ROSITIVC  • l to  ri 

I IRYSCAi  a SCARCN  OYTC 

(RYTC  LOCATION  COUNTCO  TRON  I AT  LCrr  or  STRINOI 


HISTORY 


e H SCHLOSSCR  LCC 

e N SCHLOSSCR  LCC 


08/03/73  RCQUIRCNCNrs 

08/00/73  OesiON/COOC/rcST 


HCTHOO 


COHPARC  IBYSCA  HITH  SUBSTRINO.  ONC  BYTE  AT  A TtNC. 
NACHlNC-OCPCNOCNr  COOC 
NONE. 

EXTERNAL  REPERENCES 

eCTBYT  OCT  BYTE  CRON  STRINO 

EXCEPTIONS 

I.  ANY  PART  or  the  SUSSTRINO  TO  THE  LETT  OP  TnE  STRINO  IS  lONOREO. 
E.  LBYTCQ  IS  SET  TO  ZERO  IP  NO  EQUAL  BYTE  IS  POUND. 

3.  NO  other  checks  ARE  HAOC  ON  ANY  OP  THE  AROUHCNTS. 

OLOBAL  declarations 

NONE. 

LOCAL  DECLARATIONS 


INTCOCR  INC 


a siONEo  incrcncntation  (*i  or  *11  por  lrytcq 


oooo  o o o o o o on  nnnnnoon 


OAN  PACKAOC  AMCNOIX  A 

CHAR/irrc/trRiNO  aoutincs 


klYTCtt 

00* 


< 


INTCOCA  LOCCNO  • AYTC  LOCATION  Of  LAST  OVTC  AT  CNO  Of  tUIOTAINO 

INTCOCA  lOYTAY  • AYTC  tClNO  CONAAACO  MITH  ItYSCA 


AAOCCOUAC 


INiriALIZC  SCAN  OlACCriONt  A AOINTCAS 

iriLCNO.CQ.O)  00  TO  iOO 
INC*ltlON(t .LCNOI 
LOCeNO«KLOC»LCNO-tNC 
IOYTAY--I 


SCAN  A CONPARC  aVTCS 

00  SOO  LBYTCQ-KLOC. LOCCNO. INC 

CALL  OCTBYT ( lOYTRY.  JSTRO . ( L BY TCQI) 

in ibvtry.cq.  iBvsCAi  oo  to  boo 
900  CONTlNUe 


CQUAL  BYTC  NOT  roUNO 
BOO  LBYTCQ-O 


OONC 

900  AC TURN 
CNO 


OAN  PACKAOC  A^KNOlX  M 
CNAR/tYrC/tTRINO  ROUriNCt 


LRVTNC 

001 


INTtOCR  ruNcrtoN 

0 0 LOCATION  or  Rvrc  IN  OUOOTRINO  NOT  CO  TO  OCARCM  OVTC 

■ LRVTNCI 


I JOTRO.  a RACKCO  OYTC  OTRINO 

I KLOC.  a OYTC  LOCATION  MITNIN  OTRINO  MNCRC  OUOOTRINO  OCOINO 

I LCNO.  a lcnotn  a oircction  or  ouootrino  crooitivc  > l to  ri 

I IRYOCAI  a OCARCH  OYTC 

(OYTC  LOCATION  COUNTCO  rOOH  I AT  LCTT  Or  OTRINO* 


niotory 


C N OCHLOOOCR  LCC 

C H OCNLOOSCR  LCC 


00/03/70  RCQUIRCNCNTO 
00/00/70  oesioN/cooe/rcor 


hctnoo 


CORRARC  lOYOCA  HITM  OUOOTRINO.  ONC  OYTC  AT  A TINC. 


HACHINC-OCRCNOCNr  COOC 


NONC. 


CxrCRNAL  RCrCRCNCeO 


OCrOYT  OCT  OYTC  CRON  OTRINO 

cxccrriONO 

I.  ANY  RART  OR  THC  OUOOTRINO  TO  THC  LCTT  OR  THC  OTRINO  10  lONORCO. 
a.  LOYTNC  10  OCT  TO  ZCRO  IR  NO  UNCQUAL  OYTC  10  ROUND. 

3.  NO  OTnCR  CNCCKO  ARC  NAOC  ON  ANY  OR  ThC  AROUHCNTO. 

OLOOAL  OCCLARATIONO 

NONC. 

LOCAL  OCCLARATIONO 

INTCOCR  IM  a OlONCO  INCRCNCNTATION  (•!  OR  •!*  ROR  LOYTnC 


R-lOO 


OAR  RACRAOC  ARRCNOIX  R 
CNAR/iYTC/trRINO  ROUTINCt 


IRVTNC 

OM 


FNrcocR  LoecNO  • orrc  location  or  laot  ottc  at  cno  or  ouotrRiNO 

INTCOCR  lOVTRV  0 OVTC  ICINO  COHRANCO  MITH  tlTSCA 


RROeCOURC 


C INtriALIZC  SCAN  OIRCCTIONS  0 rOINTCRS 

e 

iriLCNO.CQ.OI  00  TO  000 
INC«ISION(| .LCNO> 

LOCCNO*KL  OC  *{.CNO- 1 NC 
ttvrRY-ISYtCA 
c 
c 

C SCAN  S COMNAlie  OYTCS 

c 

00  800  LOYTNC-KLOC.LOeCNO. INC 

CALL  OCriVT( ISYTRY.  JSTRO . ( LOYT NC i I 

in lOYTRV.NC. lOYSCAl  00  TO  SOO 
800  CONTINUe 


UNCOUAL  OYTC  NOT  TOUNO 
000  LOYTNC-0 


OONC 


SOO  RCTURN 
CNO 


OAN  MCKAOC  APKNOIX  A 
CNAR/errC/tTAtNO  NOUnNCt 


LClMCtt 

•tt 


INTCOCR 

0 

• LCHNCOI 
I Ksrno. 

( KLOe. 

( LCNO. 

I KNAtCAl 


ruNCrioN 

• lOCAMON  or  CNAM  III  tUttfAINO  CQUAL  fO  KAACN  CNAA 

• CMAAACrCA  ST At NO 

• CNAA  LOCATION  NITNIN  STAINO  NNCAC  tUOSTAINO  OCOINt 

• LCNOTN  A OlACCriON  Or  fUASTAINO  lAOSITlVC  • L TO  A) 

• SCAACN  CNAAACrCA 

ICNAA  LOCATION  COUNTCO  rAON  I AT  LCrT  Or  tTAlNOI 


HitTOAY 

C H tCMLOtSCA  LCC  00/07/78  OAIOINAL  COOC 

NCTNOO 

COHAAAC  khasca  uitm  suostrino.  onc  cnaractca  at  a TIHC. 

NACHiNt'OcrcNoCNr  cooe 

NONC. 

exrcRNAL  RcrCRCNCCs 


OCTCMR  OCT  CHAR  rAON  STAINO 
CXCCRTIONO 

I.  ANY  RANT  Or  TNC  tUOSTAINO  TO  ThC  LCrT  Or  TNC  STRINO  It  lONORCO. 
i.  LCHACO  It  tCT  TO  CCRO  ir  NO  CQUAL  CNaRACTCR  IS  rOUNO. 

S.  NO  OTNCR  CHCCKt  ARC  NAOC  ON  ANY  OR  TVIC  AAOUNCNTt. 

OLOOAL  OCCLARATIONt 


NONC. 


LOCAL  OCCLARATIONt 


INTCOCA  INC  0 tIONCO  INCACWNTaT ION  (•!  OA  <>11  roA  LCNACO 

IHTCOCA  LOCCNO  A CNAA  LOCATION  Or  LAST  CNAA  AT  CNO  Or  tUOSTAINO 


A<IOC 


OAN  ^*CKA«C  A^MNOtX  R 
CNAR/RTTC/tTRlNO  ROUTtNCt 


iCNRCR 

•W 


INTCOCR  KNRTRY 


• CNARACrCR  RCtNO  CONRAACO  UITN  KMRWA 


AIIOCCOURC 


e iNirtALlZC  SCAN  OlACCriONR  a ROINTCRt 

e 

tfUCNO.CQ.O)  00  TO  too 
INC*IStON(|.LCNO> 
kOCCNO«KL  OC  *LCNO* I NC 
KHATRy«*NC* 

C 

e 

C SCAN  A COHNARC  CMARACTCRS 
C 

00  SOO  LCHRCQ-KLOe.LOCCNO.lNC 

CALL  OCTCHRCKHNTRV.  KSTRO. ( LChRCOI I 
ircKHRTRY.eQ.KHRSCAl  00  TO  900 
900  CONTINUe 
C 

e 

C COUAL  CMARACTCR  NOT  rOUNO 

c 

000  LCMRCQ*0 
C 

c 

c OONC 
C 

900  RCTURN 
CNO 


R-IOS 


OAK  ^ACKAOff  AmmiK  « 

CMAii/trrc/tniiNo  Aourinct 


tCMMC 

••I 


iNrcom  ruNcnoN 

0 A LOCAriON  or  CNAA  IN  tUMTRINO  NOT  CQUAk  TO  tCANCN  C 
• LCNRNCI 

1 KtTNO.  • CNANACrCN  OTNINO 

I KLOe.  A CNAN  kOCAtlON  MITNIN  ATNINO  HNCNC  tUOATNINO  WOlNt 

( LCNO.  A LCNATN  A oiNCcrtoN  Of  tuotrNiNO  irotirivc  • k ro  Al 

I RNRtCAl  A ACANCN  CNARACTCA 

ICNAR  kOCATION  COUNrCO  TRON  I At  LCfT  Of  tTAlNOI 


NltrORT 

C N ACHkOttCR  LCC  0A/C7/70  ORIOINAL  Cv^C 
NCTNOO 

CONRARC  KMRACA  HirH  SUAfTRlNO.  ONC  CHARACTCR  AT  A TlnC. 
NACNINC'OCRCNOCNT  COOC 
NONC. 

CirCRNAk  RCrCRCNCCA 

0C1CHR  ocr  CNAR  FROn  AfRlNO 
cxecrrioNA 

t.  ANY  RARY  Of  YNC  AUtAYRlNO  YO  YNC  kCFY  OR  YhC  AYRINO  I A lONORCO. 
A.  kCMRNC  lA  ACY  YO  ZCRO  If  NO  UNCOUAk  CNARACYCR  lA  ROUND. 

I.  NO  OYNCR  CMCCKA  arc  NAOC  on  ANY  OR  YnC  AROUNCNYA. 

OkOAAk  OCCkARAYlONA 


NONC. 

kOCAk  OCCkARAYlONA 


INYCOCR  INC 
INYCOCR  kOCI 


A tIONCO  INCRCNCNYAYION  (•{  OR  >11  ROR  kCNRM 
A CHAR  kOCAYlON  OR  kAAY  CHAR  AY  CNO  OR  AUAAYRINO 


u u u u 


MN  PACKAW  APPCNOIK  R 
CNAR/tm/tTRlNO  ROUriNCt 


INTCKfl  KNRTRT  • CNARACVCII  KINO  CONPARCO  MITN  KNRfCA 

pRoecoimc 


INtriAUZC  tCAN  OIKCriONt  a pointcrr 
traCNO.CQ.Oi  oo  ro  too 

iNC^mONM  .LCNOI 
LeeCNO*KtOC»i.CNO- 1 NC 
KNRrRY«KNRtCA 


SCAN  A CONPAAC  CMARACrCNA 

OO  900  LCHRNC«KI.Oe.LOCCNO.  INC 

CALL  OCTCNNIKHRTAY.  KATAO.  iLCNANCn 
iriKHATAY.NC.KHASCAl  00  TO  900 
900  CONTINUC 


UNCOUAL  CHAAACrCA  NOT  fOUNO 
too  LCHANC«0 


OONC 

900  AC TUAN 
CNO 


ICNRK 

oot 


ooooooooonoooooooooooooooooooooooooonoooooooooo 


OAN  9ACKA0C  AMCNOIX  N 
CHAR/iYre/srniNO  nouriNCs 


LCtrCQ 

001 


INTCOCR  rUNCTiON 

0 a LOCArioN  or  char  suostrino  o in  char  suo^trino  i 

• LCSTCQC 

1 KOTROi.  a CHARACrCR  8TRINO  I 

I KLOCI.  a CHAR  LOCATION  UITHIN  STRINO  I UHCRC  SUOSTRINO  I OCOINS 

( LCNOt.  a LCNOTH  a OIRCCTION  of  suostrino  I IPOSITIve  • L to  Rt 

I KSTROO.  a CHARACTER  STRINO  9 

t KLOCa.  a CHAR  LOCATION  UlTHlN  STRINO  9 UHEK  SUOSTRINO  9 OCOINS 

( LCNOai  a LCNOTH  4 OIRCCTION  OF  SUOSTRINO  9 (POSITIVC  - L TO  R) 

(CHAR  LOCATION  COUNTCO  FRON  I AT  LEFT  OF  STRINO) 


HISTORY 

C H SCHLOSSCR  LCC  00/07/70  ORIGINAL  RCQUIRCnCNrS 
HCTHOO 

SEARCH  suostrino  1 FOR  FIRST  CHARACTER  OF  SUBSTRING  2. 

IF  CHARACTER  FOUND.  COMPARE  SUBSTRINGS  STARTING  AT  THAT  CHARACTER. 

NACHINC'OEPENOCNT  CODE 

NONE. 

EXTERNAL  RCFERCNCCS 

LCHRCQ  LOCATE  FIRST  CHAR  OF  SUBSTRING  9 IN  SUBSTRING  I 
TRUSTR  COMPARE  SUBSTRINGS 

EXCEPTIONS 

I.  ANY  PART  OF  A SUOSTRINO  TO  THE  LEFT  OF  ITS  STRINO  IS  tONORCO. 

9.  LCSTEO  IS  SET  TO  ZERO  IP  NO  EQUAL  SUOSTRINO  IS  FOUND. 

3.  N.  other  checks  ARC  MADE  ON  ANY  OF  THE  AROUMCNTS. 

OLOBAL  DECLARATIONS 

HONE. 


H>IOO 


onononno 


OAN  PACKAOC  APPCNOIX  M 
CNAii/tvrc/triiiNO  wouriNCt 


LCtrCQ 

oot 


c 

e 

INrCOm  K^I.KM 
INTCOCR  INCl.INC* 
INrCOCR  NCMt.NCHS 
tNrcoeii  KHAfte 


a eNAR  LOCATIONS  or 

a SIONCO  iNCRCNCNTArtON  (♦!  ON  -II  TOR  KPl.KM 
a NUNOCR  or  cmaractcrs  in  surstrinos 
a FIRST  CHARACTCR  OF  SU8STRIN0  8 


RROCeOURC 


initialize  scan  OIRECTIONS  a POINTERS 
KPI-KLOCI 

INCI«lStONI I .LENOI  i 

CALL  NOFATLf  LCSTEQ  NOT  YET  IHPLEHENTEO  •••••‘I 

RETURN 

END 


ouuuouuuuuouuuouuuuouuuuu  uuouuuuuuuuuuu 


OM  PACKAOC  AWNOIX  R 
CNAR/irre/STRiNo  routincs 


LCNCRr 

001 


INTCOCR  rUNCTION 

0 A LCNOrM  IN  CHARACTCRS  OF  CHARACTCR  STRINO 
• LCNCSrc 

1 NAHCSr.  • NANC  OF  CHARACTCR  SrRINO 
I HAXLCNI  a RAX I HUN  LCNOTN 


Mt STORY 


E H 

SCHLOSSER 

LEC 

0I/17/7S 

ORIGINAL 

CODE  UITH  NULCST 

E H 

SCHL08SER 

LCC 

09/B6/79 

END  string  HITH  NULCST 

OR  NULCHR 

method 

EXCLUDE  NULCST. 

NULCHR 

ANO  trailing 

BLANKS.  IF 

PRESENT.  FROM 

LCNOTH. 

NACHiNe-ocpeNocNr  cooe 


NONE. 


exrcRNAL  RcrcRCNces 


INTCOCR  NCHNt 
INTCOCR  NIHNC 
INTCOCR  LCHRCQ 
INTCOCR  LCHRNC 


a NUHBCR  or  CHARACTCRS  FOR  NUMBCR  OF  INTCGCRS 
a NUMBCR  OF  INTCOCRS  FOR  NUMBER  OF  CHARACTERS 
a LOCATE  CHARACTCR  IN  SUBSTRING  EQUAL  TO  SEARCH  CHAR 
a LOCATE  CHARACTCR  IN  SUBSTRING  NOT  EQUAL  TO  SEARCH  CHAR 


EXCEPTIONS 


I.  IF  HAXLCN  IS  LESS  THAN  I.  THEN  A LENGTH  OF  ZERO  IS  RCTURNCO. 

a.  IF  THE  string  is  composed  only  of  blank(8i.  Then  a lcnoth 
OF  1 IS  RCTURNCO. 


global  declarations 


include  nulcst.list  a ocfinc  null  character  strino 

include  NULCHR.LIST  a define  null  character 

C LOCAL  DECLARATIONS 

IRTEOER  NANCSTCII  a AROUNENT 


oooo  oooo 


OAN  PACKAOC  APMNOIX  R 

cmar/rytc/strino  routincs 


LCRCtr 

ooc 


IRTCOCR  LCNRV 
IRTCOCR  HAXNIN 


A LOCATION  or  LAST  VALIO  f NON-NULL > CMARACTCR  SCANNCO 
A NAXINUN  NUNBCR  Or  INTCOCRS  TO  SCAN 


RROCCOURC 


INirULIZC 

LCNCSr*0 

iriHAXLCN.LC.Oi  00  TO  900 


riNO  riRsr  nulcst  nr  anti 
LCHRV*0 

NAXNIN-NlHNCCHAXLCNt 
00  300  NINT*t .NAXNIN 

irCNANCSTfNlNT I .eO.NULCSn  00  TO  HOO 
LCHRV«LCNRV*NCHNI ( t ) 

300  CONTI Nue 


riNO  FIRST  NULCHR  (IF  ANY) 

•fOO  LCHRV-NtNO(LCHRV.NAXLCN) 

LCNCSr-LCHREOCNAnCST. I . LCHRV . NULCHR I -I 
IF(LCNCST.LT.O)  LCNCSr«LCHRV 
IFILCNCSr .EQ. 0)  00  TO  900 

c 

c 

c subtract  trailino  blanks  from  lcnoth 
c 

lcncst-lchrncinancst.lcncst . -LCNCST. ' * ) 

irtLCNCsr.eo.ot  lcncst-i  a if  first  char  is  space,  its  sionificant 
c 
c 

C DONE 
C 

900  RETURN 
ENO 


ooooooooooooooooooooooooooooooooouoouoooooooooooo 


OAN  MCKAOC  AMCNOIX  A 
CNAft/BVrC/STRINO  ROUTINCS 


LCNAAO 

001 


u 


INTCOCR  rUNCriON 

0 0 LCNOTN  in  CMAAt  OF  CHAR  STRINO  INCLUOINO  RAO  TO  WORD  OOUNOARY 

• LCNRAOt 

t LCNOTHI  a LCNOTN  CXCLUOINO  RAO  TO  NORO  OOUNOARY 
HISTORY 

C N SCHLOSSCR  LCC  01/17/79  ORIOINAL  COOC 
NCTHOO 

CONVCRT  LCNOTH  TO  HOROS  A THCN  BACK  TO  CHARACTCRS. 

NACHiNC-oepcNoeNr  cooe 

ASSUNCS  6 CHARACTCRS  PCR  SINOLC  PRCCISION  INTCOCR. 

CXTCRNAL  RCFCRCNCCS 
NONC. 

CXCCPTIONS 

NONC. 

OLOOAL  OCCLARATIONS 
NONC. 

LOCAL  OCCLARATIONS 
NONC. 


LCNRA0«(aCN0TN«9)/0l«0  A 0 CHARACTCRS  RCR  NORO 
RCTURN 


R-IIO 


OAH  ItACKAOC  AmNOtX  II 
CHAR/eYrc/sriiiNO  nouriNCS 

CNO 


LCNRAO 

QOt 


R'lll 


ooooooooooooooooooooooooooooooooooooooooooooooo 


OAN  PACKAOC  APKNOIX  M 
CNAM/iYre/sniiNO  moutincs 


Liena 

SOI 


INTCOCR 

0 

• Ltceeoi 

1 KSTRO. 

( KLOe. 

I LCNO. 
t ICCSCA) 


FUNCTION 

• LOCATION  OF  ICC  IN  SUOSTNINO  EOUAL  TO  SCARCN  ICC 

• FACKCC  CHARACTCN  STNINO 

• CHAR  LOCATION  WITHIN  STRINO  HHCRC  SUBSTRINO  SCO  I NS 

a lcnotn  a oircction  of  suostrino  cpositivc  • l to  ri 

a SEARCH  I NTEOER-CHARACTER-EQUI VALENT 
tCHAR  LOCATION  COUNTED  FRON  I AT  LEFT  OF  STRiNOi 


history 

E K SCHLOSSER  LEC  06/27/78  ORIOINALCOOE 

nethoo 

COHPARE  ICESEA  WITH  SUOSTRINO.  ONE  CHARACTER  AT  A TINE. 
HACHINE'OEPENOENT  CODE 
NONE. 

EXTERNAL  REPCRENCeS 

OETICE  OET  INTEOCR*CHARACTER*EQUIVALENT  FROM  STRINO 

EXCEPTIONS 

1.  ANY  PART  OF  THE  SUBSTRINO  TO  THE  LEFT  OF  THE  STRINO  IS  lONOREO. 

2.  LICEEQ  IS  SET  TO  ZERO  IF  NO  EQUAL  l*C*E  IS  FOUND. 

3.  NO  other  CHECKS  ARE  HADE  ON  ANY  OF  THE  AROUNENTS. 

OLOBAL  declarations 
NONE . 

LOCAL  declarations 


INTEOER  INC 
INTEOER  LOCENO 


a SIONEO  INCRENENTATION  (»l  OR  -n  FOR  LICEEQ 
a CHAR  LOCATION  OF  LAST  CHAR  AT  END  OF  SUOSTRINO 


nooo  o o o o 


OAN  PACKAOC  AAWNOU  K 
CNAII/tYrc/trRlNO  ROUriNCS 


LICCCO 

OOff 


iNrcocR  tccrny  • iNrcoCR-CNAii*cauiv  •cino  conraaco  uitm  lectCA 

MoecouAC 


e INiriALIZC  SCAN  OlACCriONS  I AOINTCAS 

c 

ira.CNO.CQ.0)  oo  ro  soo 
INC«ISI0N( I .LCNOi 
LOeCNO*KI.OC*LeNO«INC 
ieCTAY»-l 

c 

c 

C SCAN  A CONAAAC  INrCOeA'CHAAACrCA'EQUIVALCNrS 

c 

00  SOO  LICCCQ-KLOC.LOCENO. INC 

CALL  oericec icctry.  KsrAo.tLiceeon 
irt iccTAr.cQ. icescAi  oo  ro  soo 
800  continue 


EQUAL  CHAAACTEA  NOT  roUNO 
800  LICEEQ-0 


OONE 

900  RETURN 
ENO 


R'tlS 


noooonoonononono 


OAN  ^ACKAOC  AMCNOIX  A 

CNAR/evrc/trNtNO  nouriNCt 


LieCNC 

001 


INTCOCA  rUNCriON 

0 • LoCATtoN  or  tec  IN  ouoormNo  not  co  ro  scaocn  tec 


• LieCNCC 

1 Koroo.  • AACKCO  CHAOACrCR  otrino 

I KLOC.  A CNAR  LOCAtlON  UlfNIN  STRINO  MHCRC  tUOfTRlNO  OCOiNt 

t LCNO.  A lcnoth  a oiRCcriON  or  suoorRiNO  (root ri VC  • l ro  ri 

I teCOCAl  A OCARCM  INrCOCRoCNARACrCR'COUlVALCNr 
e (CHAR  LOCATION  COUNTCO  CRON  I AT  LCrT  or  STRINO I 

c — - - — 

e 

c 

c NisroRv 

c — 

c 

C C N SCHLOSSCR  LCC  00/07/70  ORIGINAL  COOC 


hctnoo 


ICCSCA  IS  CONRARCO  WITH  SUOSTRINO.  ONC  CHARACTCR  AT  A TtnC. 


NACNlNC'OCrCNOCNT  COOC 


NONC. 


CXrCRNAL  RCrCRCNCes 

ocricc  A OCT  INreoeR-CMARACTCR'CQUI VALCNT  rOON  STRING 

cxccrrioNS 

I.  ANT  RANT  Or  THC  SUOSTRINO  TO  THC  LCRT  OR  ThC  STRING  IS  lONORCO. 

0.  LiccNC  IS  scr  TO  ZCRO  ir  no  uncqual  i-c*e  is  round. 

3.  NO  OTNCR  CHCCKS  arc  NAOC  ON  ANT  OR  ThC  AROUHCNTS. 

OLOOAL  OCCLARATIONS 

NONC. 

LOCAL  OCCLARATIONS 

INTCOCR  INC  A SIONCO  INCRCNCNTATION  (•!  OR  •! * ROR  LICCNC 

INTCOCR  LOCCNO  A CNAR  LOCATION  OR  LAST  CNAR  AT  CNO  OR  SUOSTRINO 


R*lt« 


o o o o noon  onnn 


0AM  MACKAOC  AMMCNOIX  A 
CNAN/OTTC/tTRINO  ROUTII 


t 


LieCNC 

ooo 


INTCOCR  ICCTRV  A tMTCOCR'CNAR-COUl V tCIMO  CONMARCO  UlTH  tCCtCA 

RROeCOURC 


iNirtALUC  SCAN  oiRcerioNt  a rointcrs 
iracNO.ca.ot  oo  ro  too 

INC«ttlON(t .LCNOt 
LOCCNO«KLOC  *LCNO« I NC 
iecrRT*icc«CA 


SCAN  k COHRARC  1 NrCOCR-CMARACrCR'eQUI VALCNTS 

00  800  LlCCNCaKLOC.LOCeNO. INC 

CALL  ocricei  icctry.  kstro.  (liccnoi 
in iccTRY.NC. icesCA)  oo  to  ooo 
800  CONTINUC 


UNEQUAL  character  NOT  roUNO 
ooo  LICENE*0 


DONE 

800  RETURN 
ENO 


R-ltS 


Cl 


LINTCtt 

001 


WNOix  n 
INO  MOUriNCt 


INrCOCN 

0 

• LINTCQI 
I iNTorn. 
( INUOC. 
( CCNO. 

I INTOCAI 


UNCTION 

0 LOCATION  or  INTCOCN  IN  OI'MTNINO  COUAL  TO  OCANCN  INTCOCN 

• INTCOCN  OTNINO 

0 INTCOCN  LOCATION  HI  THIN  OTNINO  UHCNC  OUiOTNINO  OCOINS 

• LCNOTN  0 OINCCriON  or  OUOOTNINO  (NOOITIVC  • l to  ni 

• OCANCN  INTCOCN 

(INTCOCN  LOCATION  COUNTCO  TNOH  I AT  LCrT  Or  OTNINOI 


HIOTONY 


C M OCHLOOOtN  LCC 

C N OCHLOOOCN  LCC 


10/00/70  NCQUINCHCNTO 

10/00/70  OCOtON  I COOC 


HCTHOO 


CONNANC  INTOCA  WITH  OUOOTNINO.  ONC  MONO  AT  A TINC. 


NACMINC'OerCNOCNT  COOC 


HNITTCN  IN  A80CN0LCR  rON  ThC  UNI  VAC  MOO  SCRICS  COnPUTCRS. 

THC  AROUMCNTO  arc  OCSIONCO  to  8C  NACHI nC- I NOCRCNOCNT . Bur 

TNC  NCTHOO  or  RAOSINO  AROUNCNTS  18  that  U8C0  OV  UNIVAC  rORTRAN  V. 

INRLCNCNTINO  COOC  NUOT  OC  RCURITTCN  rOR  OirrCRCNT  WORD  8IZC8. 

OirrCRCNT  CONRILCRS  (CO..  UNIVAC  AOCII  rORTRANI.  ANO  OirrCRCNT  NACHINCS. 


CXTCRNAL  RCrCRCNCeO 


NONC. 


CXCCRTIONO 

I.  ANY  RANT  or  ThC  OUOOTNINO  TO  TNC  LCRT  or  THC  OTRINO  18  lONONCO. 

0.  LINTCO  10  OCT  TO  ZCRO  If  NO  COUAL  CMARACTCN  10  rOUNO. 

1.  NO  OTNCN  CNCCKO  arc  NAOC  ON  ANY  Of  THC  ANOUNCNTO. 

OLOIAL  OCCLANATIONO 


AXNO 


STANOANO  UNIVAC  1100  NCOIOTCN  HNCNONlCf 


DAN  ^ACNAOC  AAMNOU  R 
CNAR/lYrC/trillNO  MUriNCt 


LINTCO 

ou 


LOCAL  OCCLARATIONt 


None. 

OROeCOURC 


f(00>  . l•fANK  . iANKt  NCVCRtCO  TO  CLININATC  INOIACCT  LOAD  TAflC  CNTRY 


LINTCO* 

LA 

AI.«I.XII 

• 

Al  !•  suostrino  loc.  countino  cron  I 

LA 

At.*t.Xlt 

• 

At  !•  suostrino  lcno 

LA 

AS. *3. XII 

• 

AS  I*  INTSCA 

JN 

At. MINUS 

CMCCK  suostrino  oircction 

ALUS 

LXI.U 

AO.  *1 

AOdNCRCHCNT)  I*  *1 

J 

CMCCK 

* 

MINUS 

LXI.U 

AO.'t 

• 

AOlINCRCNCNTt  ,m  .1 

LHA 

At.  At 

• 

At  I*  AOSILCNOI 

TO 

At.AI 

• 

At  t • 

LA 

At.AI 

« 

MINI AOSCLCNOI .INTLOCI 

CMCCK 

AA.XU 

Al  . -1 

• 

Al  !•  suostrino  loc.  countino  fRON  0 

UN 

AI.CRROR 

• 

LOC  TO  Lcrr  or  strinoi i i 

SCARCH 

AA.Ht 

At.O.Xt I 

• 

Al  t>  AOORCSS  or  suostrino 

LR 

Ml  .At 

• 

Rl  t*  MAX  NUNOCR  Or  UOROS  TO  SCARCM 

LXN 

AO.AI 

• 

AOlHOOiriCR)  I*  AOORCSS  or  suostrino 

SC 

AS.O.*AO 

• 

AOlHOOiriCRl  t*  ADOR  RASr  intsca  in  str 

J 

CRROR 

* 

NOT  IN  strinoi 1 1 

TR 

AO 

• 

ir  SCARCM  OIRCCTION  IS  NCOATIVC  ... 

AA.U 

AO.t 

• 

. . . TMCN  AOOR  ArTCR  t • AOOR  OCrORC  • t 

LXI  .U 

AO.O 

« 

A0( INCRCNCNTI  )•  ZCRO 

ANA. Nt 

AO. 0. XII 

AO  t«  LOC  or  INTSCA.  COUNTINO  rOOH  1 

J 

S.XII 

• 

RCTURN  LOC  Of  INTSCA 

CNNON 

« 

AO 

• 

J 

S.XIt 

• 

RCTURN  ZCRO 

CNO 

R’llT 


LIUTNC 

001 


OAK  OACKAOf  AMCNOIK  0 
CNAll/OVrC/OrillNO  ooutinco 


iNrcocR  ruNcrtoo 


0 LOCAnON  Of  INTCOCR  IN  OWOOTIIINO  NOT  COUAL  10  OCANCN  INTCOCO 


UNTNCI 

ijirorR. 

iNUoe. 

LINO. 

INTOCAI 


0 INTCeCN  OTRINO 

A INTCOCR  LOCATION  HI  THIN  ITRINO  MNCRC  tUOOTRlNO  OCOII 
a kCNOTN  A OIRCCTION  Of  tUOOTRiNO  (fOOITIVC  • L TO  Ri 
a OCARCN  INTCOCR 

(INTCOCR  LOCATION  COUNTCO  fROH  I AT  LCfT  Of  OTRINOI 


HIOTORY 


C N aCHLOOOCR  LCe 

C H aCNLOSSCR  LCC 


tO/tf/7t  RCQUIRCHCNTt 

IO/C3/7t  OCtlON  A COOC 


HCTNOO 


CONfARC  INTfCA  UITN  SUOaTRINO.  ONC  WORD  AT  A TinC. 


NACHINC'OCfCNOCNT  COOC 


HRITTCN  in  AftCNOLCR  fOR  ThC  UNIVAC  1100  tCRtCt  COHRUTCRC. 

TNC  AROUNCNTS  ARC  OCtlONCO  TO  RC  NACHt NC- > NDCRCNOCnT . RUT 

THC  NCTHOO  or  RARItNO  AROUHCNTt  II  that  uIC0  RY  UNIVAC  fORTRAN  V. 

INfLCNCNTINO  COOC  NURT  RC  RCURITTCN  TOR  OirrCRCNT  mORO  SIZCI. 

OlffCRCNT  CONfILCRf  ICO..  UNIVAC  ASCII  fORTRANi . ANO  OlfrCRCNT  HACHINCR. 


R 


NONC. 


CXCCfTIONR 


t.  ANT  RART  Of  TMC  RUORTRINO  TO  TNC  LCfT  Of  TNC  RTRINO  IR  lONORCO. 
0.  LINTNC  IR  RCT  TO  ZCRO  If  NO  UNCQUAL  CNARaCTCR  IR  rOUNO. 

0.  NO  OTNCR  CnCCKR  arc  NAOC  on  any  Of  TNC  AROUNCNTR. 

lAL  OCCLARATIONR 

AXRR  . OTANOARO  UNIVAC  1100  RCOIRTCR  NNCNONICR 


R-IIO 


04M  MCKAOC  hwnoin  K 
ciMii/tYrc/triilira  nouriNCt 


LINfMC 

•M 


. LOCAL  OCCLANAriONt 


NONC. 
I MOeCOUNC 


• (001  . I-OANK  . OANK'.  NCVCKOCO  TO  CLININATC  INOIOCCT  LOAD  TaOLC  CNTMY 


LINTNC* 

LA 

Ai.M.xn 

Al  !•  OUttTNINO  LOC.  COUNTINO  fNOH  1 

LA 

At.*t.XII 

At  I*  0U90TNIN0  LCNO 

LA 

A|.*I.XIt 

Al  I*  INTtCA 

JN 

At.HiNUO 

CNCCK  ouootnino  oincction 

•LUO 

LXI.U 

AO.*t 

A0< INCNCNCNTI  I*  •! 

J 

CNCCK 

• 

NiNUt 

LXI  .U 

AO.  -t 

AOUNCNCnCNTl  1-  *1 

LHA 

At.  At 

At  t*  AOOILCNOI 

TO 

At.AI 

At  1 • 

LA 

At.AI 

HINI AOOILCNOI . INTLOCI 

CNCCK 

AA.XU 

Al  .*t 

Al  t*  OUOOTNINO  LOC.  COUNTINO  ONOH  0 

JN 

Al .CANON 

LOC  TO  LCrT  or  OTNINOm 

• 

OCAOCH 

AA.Mt 

At  .O.XU 

At  )•  aooncoo  or  suootkino 

LN 

Nl  .At 

At  !•  HAX  NUNOCN  uT  WONOf  TO  OCANCM 

LXN 

AO.AI 

AOiNOOirtCNi  1-  aponcoi  or  suostnino 

ONC 

AX.O.«AO 

AOiNooiriCNi  t>  aoon  oaot  int  nc  in  stn 

J 

CANON 

NO  UNCOUAL  INTCOCN  In  OTNINOI I ! 

TO 

AO 

tr  OCANCH  OINCCTION  IS  nCOATIvC  ... 

AA.U 

AO.t 

...  THCN  AOON  AfTCN  t*  AOON  OCfONC  * t 

LXI.U 

AO.O 

AO  1 INCNCNCNTI  I*  ZCNO 

ANA.NC 

AO. 0. XII 

AO  >•  LOC  or  INT  Nl  INTSCA.  COUNT  rooH  1 

J 

S.Xtl 

NCTUNN  LOC  or  INT  nC  INTSCA 

CKOOO 

•2 

AO 

J 

9. XII 

NCTUNN  ZCNO 

CNO 

o-ito 


UUOUUUOUoUUOUOUUUOUOUUOUUUOUOUUOUUOOUOUOOUOW 


OAN  PACKAOC  AFKNOIX  R 
CHAR/lvrc/SrillNO  ROUriNCS 


LOMCSr 

001 


c 

c 

c 


INTCOCR  rUNCTION 

0 • NUNBCR  or  SUaSTRINO  LOUCR  IN  COLLATINO  SCQUCNCCt 

0 KOTROt  • KSTROO 

1 KOTROt  < KSTROO 

0 KSTROO  < KSTROI 


• LOHCSTI 
I KSTROI. 
I KPOSI. 

I LCNOI . 

I KSTROO. 
( KPOSO. 

I LCNOOi 


a CHARACTCR  STRINO  I 

a CHAR  POSITION  HITHIN  STRINO  I HHCRe  SUOSTRINO  I BOOINS 

a lcnoth  a oircction  or  substrino  t (positivo  - l to  ri 
a character  strino  o 

a CHAR  position  HITHIN  STRINO  0 HHERE  SUBSTRINO  0 BEOINS 
a lenoth  a direction  or  substrino  o (positive  « l to  ri 
(CHAR  position  counted  ERON  I AT  LEET  OE  STRINOI 


history 


E H SCHLOSSER  LEC  06/07/78  ORIOINAL  CODE 


NET hod 


DOUHILE  CHARACTERS  REHAINlNO  AND  I *C -E  OIEPERENCE  IS  ZERO 
OET  next  1-C-E*S  from  0 SUBSTRINGS  ( COMPUTE  DIFFERENCE 
(IF  A substring  is  exhausted.  TREAT  1 T AS  IF  PAOOCO  MITH  SPACES) 
NORMALIZE  l-C-E  DIFFERENCE 


MACHINE-DEPENDENT  CODE 


NONE. 


EXTERNAL  REFERENCES 


ICE  INTEOER  CHARACTER  EQUIVALENT  FUNCTION  FOR  CHARACTER 

OETICE  OCT  ICC  FROM  STRINOS 


EXCEPTIONS 


I.  IF  THCRF  is  NO  COPRCSPONOINO  CHARACTER  IN  A SUBSTRINO.  THE  CHARACTER 
SPACE  IS  ASSU  ID. 

a.  NO  other  checks  arc  hade  ON  ANY  OF  THE  AROUHENTS. 

OLOBAL  DECLARATIONS 


R'teo 


uuuuuuuo 


OAH  PACKAOC  AWNOIX  II 
CHAii/tvrc/sriiiNO  RouriNCS 


Louetr 

oot 


C NONC. 

e 

c 

C LOCAL  OCCLAHArtONS 

c 

c 

Uircocil  KOI.KPO 

INTCOCR  INCt.INCt 
INTeOCII  NCHt.NCHC 

tNreoeR  nchhax 

INTCOCR  ICCPAO 
INTCOCR  NCH 
INTCOCR  NICCl.NICCC 


a CNAR  POSITIONS  OP  CHARACTCRS  SCINO  CONPARCO 
a SIONCO  INCRCNCNTATION  (♦!  OR  •!>  POR  KPt.KPC 
a NUHOCR  OP  CHARACTCRS  IN  SUBSTRINGS 
a NUHBCR  OP  CHARACTCRS  IN  LONOCST  SUBSTRING 
a INTCGCR-CHAR-CQUI V GP  BLANK  TG  PAO  8HGRT  SUBSTR 
a NUHBCR  GP  CHARACTCRS  CONPARCO 
a l-C*C*S  OP  CHARACTCRS  BCINO  CONPARCO 


PROCCOURC 


iNiriALize  SCAN  otRCcrioNS  a pointcrs 

KPt-KPOSt 

INCt>ISION( I .LCNOl I 
NCHI>IA6S(LCN0t  > 

KPC-KPOSa 

INC2«IStON( I .LCNOCi 
NCHC-I ABSILCNOC) 

NCHNAX*NAXO(NCHI .NCHC) 

ICCPAO«ICC(‘  •! 

L0HCST>0 
C 

c 

C SCAN  a CONPARC  CHARACTCRS 
C 

DO  SOO  NCH«t.NCHNAX 
NICCt«ICCPAO 

IPINCH.LC.NCHI I CALL  OCT  I CC ( NICC I . KSTROI.IKPID 

KPt«KPI *lNCt 

NICCC-ICCPAO 

IPINCH.LC.NCHBi  CALL  OCTICCINICCC.  KSTROC . IKPC I I 

KPa«KPC*lNC8 

LOHCSr>NlCCI*NICC« 

IPaOUCST.NC.O)  GO  TO  900 
* SOO  CONTINUC 

C 
C 

C NORNALIZe  RCSULT 
C 

900  IPILOHCST.CT.OI  L0MCST>C 
‘ IPIL0UCST.lt. O)  LOUCST«l 

RCTURN 
CNO 


OAN  PACKAOC  APPEND IX  N 
CNAN/iyrc/srRiNO  RouriNCS 


ADR 

001 


suoROuriNC  Novatrc  a hove  bttes  to  output  suostrino  proh  input  surstrino 
0 jsrour.  a output  byte  strino 

( Locour.  a byte  location  in  output  strino  hhcre  output  substring  bcoins 
f LENOUO.  a length  a direction  or  output  substring  (positive  • L TO  Rl 


• 

I JBTIN.  a INPUT  BYTE  STRING 

i '.OCIN.  a BYTE  LOCATION  MITHIN  INPUT  STRINO  WHERE  INPUT  SUBSTRING  BEGINS 
LENINO.  a LENOTN  t DIRECTION  OP  INPUT  SUBSTRING  (POSITIVE  • L TO  R) 
t IBYPAO*  a BYTE  TO  PAO  OUTPUT  SUBSTRING  ON  EXHAUSTING  INPUT  SUBSTRING 
(BYTE  LOCATIONS  COUNTED  PROH  I AT  LEPT  OP  STRING! 


history 


J 

C 

CRISP 

LEC 

07/85/79 

REOUIRENENTS 

E 

H 

SCHLOSSER 

LEC 

07/87/79 

DESIGN 

E 

H 

SCHLOSSER 

LEC 

07/30/79 

CODE/ TEST 

HETHOO 


CONVERT  STRINO-RELATI VE  BYTE  LOCATIONS  TO  NACHI NE-OEPENOENT 
LOCATIONS  AS  POLLOUS: 

HORO  NUNBCR  • 3>»  MOST  SIONIPICANf  BITS 

QUARTER-WORD  LOCATION  WITHIN  WORD  ■ 8 LEAST  SIGNIPICANT  BITS 

oeterhine  co-routines  t initial  entry  points  to  get/put  bytes. 

HOVE  BYTES  WITH  OET/PUT  CO-ROUTINES. 

PAO  BYTES  with  PAO/PUT  CO-ROUTInES. 


NACNINE-OEPENOENT  CODE 


WRITTEN  IN  ASSENBLER  POR  THE  UNIVAC  1100  SERIES  COHPUTERS  USINO  S-BIT 
QUARTER  WORDS.  THE  AROUNENTS  ARE  DESIGNED  TO  BE  HACHINE-INOEPENOENT . 

BUT  the  HETHOO  op  PASSINO  AROUNENTS  IS  THAT  USED  BY  UNIVAC  PORTRAN  V. 
IHPLENENTInO  code  NUST  be  rewritten  POR  OIPPERENT  WORD  SIZES. 

OIPPERENT  CONPILERS  (EO. . UNIVAC  ASCII  PORTRAN).  ANO  OIPPERENT  NACHINES. 


external  REPERENCES 


NONE. 


exceptions 


I.  the  CONPUTER  NUST  BE  IN  QUARTER-WORD  NODE.  (ASSENBLE  WITH  SASN.P 
ON  COLLECT  WITH  aNAP.P  OR  INSURE  THAT  SETQWO  WAS  CALLED  PREVIOUSLY.) 

i.  IP  THEBE  IS  NO  CORRESPONOINO  BYTE  IN  INPUT  SUBSTRING.  IBYPAO  IS 


R-ice 


OAN  MCKAOC  APPCNDIX  A 
CNAA/ttrC/SmiNO  ROUriNCS 


OOt 


NOVCO  TO  OUTAUr  suistrino. 

3.  this  TRANSrORH  HAY  BC  USCO  TO  RCVCRSC  THE  OROCR  Of  TNC  CONTENTS  OE  A 
SUBSTRING  BY  SRECirYINO  ORPOSITE  DIRECTIONS  POR  THE  OUTPUT  ANO  INPUT 
SUBSTRINOS.  PROVtOEO  THESE  SUBSTRINGS  00  NOT  OVERLAP.  IP  THE 
SUBSTRINOS  00  OVERLAP  THE  RESULTS  OP  THE  ATTEHPTEO  REVERSAL  HILL  BE 
UNOEPINEO. 

•».  THIS  TRANSPORN  NAY  BE  USED  TO  SHIPT  A SUBSTRING  HI  THIN  A STRING  BY 
USING  the  sane  actual  AROUHENT  POR  JSTOUT  ANO  JSTIN  ANO  BY  SPECIPYINO 
OUTPUT  ANO  INPUT  SUBSTRINGS  HHtCH  PARTIALLY  OVERLAP.  PROVIOEO  THE 
direction  OP  THE  SHIPT  IS  OPPOSITE  TO  THE  DIRECTION  OP  THE  SUBSTRINGS. 

S.  WHEN  SHIPTINO  A SUBSTRING  TO  THE  LETT  (LOCOUT<LOC I N)  ANO  PAOOINO 

AT  THE  RIGHT.  THEN  BOTH  LENOUO  ANO  LENINO  NUST  BE  POSITIVE  (OIRECTEO 
TO  the  RIGHT)  OR  THE  RESULTS  HILL  BE  UNOEPINEO. 

B.  HHEN  SHIPTINO  A SUBSTRING  TO  THE  RIGHT  ( L OCOUT >L OC 1 N ) ANO  PAOOINO 
AT  the  LEPT.  then  BOTH  LENOUO  ANO  LENINO  MUST  BE  NEGATIVE  (OIRECTEO 
TO  the  LEPT)  OR  THE  RESULTS  MILL  BE  UNOEPINEO. 

7.  IP  EITHER  SUBSTRING  LIES  HHOLLY  OR  PARTIALLY  OUTSIOE  ITS  STRING  THE 
RESULTS  HILL  BE  UNOEPINEO. 

B.  NO  other  CHECKS  ARE  HAOE  ON  ANY  OP  THE  AROUHENTS. 


GLOBAL  declarations 


AXRS  . standard  UNI  VAC  1100  REGISTER  MNEMONICS 


LOCAL  DECLARATIONS 


S(00)  . 0-BANK 

XISAVE  RES  1 . SAVE  LOCATION  POR  REGISTER  XI 


PROCEDURE 


Slot)  . I 'BANK 
NOVBST* 


sx 

XI .XISAVE 

• 

SAVE  REGISTER  XI 

tial  hoao 

AOORCSS  S BYTE 

LOCATION  Ml  thin  HORO  POR  INPUT  SUBSTRING 

LA 

AO.«*».XII 

BYTE  LOCIN.  COUNTING  PROH  1 

aa.xu 

AO.'I 

BYTE  LOCIN.  COUNTING  PROM  0 

JN 

AO. RETURN 

RETURN  IP  TO  LEPT  OP  STRING 

OSL 

AO.B 

AO  !•  HORO  LOCIN  UITHIN  STRING 

SSL 

AI.3V 

Al  <-  BYTE  LOCIN  HI  THIN  HORO 

aa 

AO. 3. XII 

AO  )•  HORO  ADDRESS  IN 

NO' 


003 


OAN  NACKAOC  AMCNOIX  N 
CNAN/OVrC/fTNINO  NOUtlNCS 


Ntt.U  At. 3 

eoNNure  initial  uoro  aoorcss  a oytc 


. Al  t«  3«0VTC  LOCIN  UITHIN  MONO 
LOCATION  UITNIN  MONO  TON  OUTRUT  8U08TRIN0 


LA 

At.«I.Xtl 

OYTC  LOeOUT.  COUNT  1 NO  RROH  I 

AA.XU 

A3.-I 

OYTC  LOeouT.  COUNT  1 NO  PRON  0 

JN 

AS. RETURN 

RETURN  IP  TO  LCPT  OF  8TRIN0 

OSL 

AS.S 

AS  >•  HORO  LOCOUT  UITHIN  UITHIN  8TRIN0 

fSL 

A3.SN 

A3  i*  OYTC  LOCOUT  HI  THIN  UORO 

AA 

AS.O.XI 1 

AS  >•  UORO  AOORCSS  OUT 

HSI  .U 

A3.S 

A3  !•  C«eYTC  LOCOUT  UlTHlN  UORO 

. OCTCRHINC 

co-routine 

A INITIAL  ENTRY 

POINT  TO  OCT  OYTCS 

LCNINO 

LA 

A*».«S.Xt  I 

LCNINO 

JN 

h<*.  INHINUS 

INRLU8 

AA 

Al  . (ROETOn 

Al  :•  co-routine  AOOR  TO  OCT  NEXT 

BYTE 

LXI .XU 

A0.*I 

UORO  increncntation  is  »t 

J 

LENOUO 

INHINU8 

LNA 

At  .Al 

AA 

At . ILOETOt 1 

Al  CO-ROUTINC  AOOR  TO  OCT  NEXT 

BYTE 

LXI .XU 

AO. -I 

UORO  INCRCNCNTATION  is  -1 

LNA 

AN.Af 

AN  :>  • OP  BYTES  IN 

. oercRniNC 

CO-ROUT  INC 

A initial  entry 

POINT  TO  PUT  BYTES 

LCNOUO 

LA 

AS. *2. XI 1 

LCNOUO 

JN 

AS.0UTNINU8 

OUTRLUS 

AA 

A3.  (RPUTOn 

A3  :>  CO-ROUTINC  AOOR  TO  PUT  NEXT 

BYTE 

LXI .XU 

AS.»t 

UORO  INCRCNCNTATION  IS  *l 

J 

NOVNRAO 

OUTNINU8 

LNA 

A3. A3 

AA 

A3.(LPUT0t) 

A3  i-  CO-ROUTInC  AOOR  TO  PUT  NEXT 

BYTE 

LXI .XU 

AS. -I 

UORO  INCRCNCNTATION  IS  -1 

LNA 

AS. AS 

AS  t>  • OP  BYTES  OUT 

. initialize 

REPEAT  RCO 

I8TERS  POR  NOVI 

NO  ANO  RAOOINO 

• 

nOVNRAO 

TO 

A*».AS 

SKIP  NPXT  INSTR  ip  AS  > AN 

LA 

AN.  AS 

AN  « OP  BYTES  TO  HOVE 

ANA 

AS. AN 

AS  1-  « OP  BYTES  TO  PAO 

ANA.U 

AN.I 

AN  tm  (•-11  OP  BYTES  TO  HOVE 

LNA 

AN.  AN 

AN  <•  OP  BYTES  TO  HOVE 

LXN 

XI  .AN 

XIN  f -f*-tl  OP  BYTES  TO  NOVC 

LXI  .U 

XI  . 1 

XII  ♦! 

• 

J 

O.AI 

start  NOVINO  BYTCSIII 

. CO'ROUTINC 

TO  OCT  0YTC8  RRON  8U08TRIN0 

OIRCCTCO  TO  the  LCPT 

• 

LNJ 

Al .0.A3 

. 

loctqh 

JNOI 

XI.eCTRAO 

• 

OAN  ^ACKAOC  A^PCNOIX  II 
CNAA/tVTC/trillNO  ROUTINCS 


00*» 


lit. 0. AO 

. OET  Q<» 

LNJ 

Al.O.AS 

• 

Locroi 

JHOt 

XI.OETPAO 

• 

LR.QS 

m.O.AO 

. OET  QS 

LNU 

Al.O.AS 

LOCTQC 

JNOI 

Xt.OCTRAO 

LR.QC 

m.O.AO 

. OET  OB 

LMJ 

Al.O.AS 

Loerot 

JHOI 

XI.OETPAO 

LR.Qt 

m.O.«AO 

. OET  01  A OECRENENT  HORO  * 

J 

LOETQi»-t 

. CO'ROUriNC  TO  PUT  BYTCS  INTO  SUBSTRING  OIRCCTCO  TO  THE  LEET 


LHJ 

A3.0.A1 

LPuro<» 

SR.Q>» 

Rt  .O.AB 

. PUT  Q<» 

LMJ 

A3.0 .At 

LPUTQ3 

SR. 03 

Rl  .O.AB 

. PUT  QS 

IHU 

A3.0.A1 

LPUTQB 

SR.  OB 

Rl  .O.AB 

. PUT  QB 

LHJ 

A3.0.AI 

LPUTQt 

SR.Ot 

Rl .0.«AB 

. PUT  01  A 

OECRENENT  UORO  • 

J 

LPUTQ<*-t 

• 

. co-routine 

TO  OET 

BYTES  PRON  substring  OIRECTEO  TO  THE  RIGHT 

LHJ 

Al.O.AS 

ROE  TO 1 

UNOl 

XI  .OETPAO 

LR.Qt 

Rl  .O.AO 

. OET  01 

LHJ 

At  .0.A3 

ROE r OB 

JHOI 

XI .OETPAO 

LR.QB 

Rt .O.AO 

. OET  OB 

LHJ 

Al.O.AS 

ROETQS 

JHOI 

XI  .OETPAO 

LR.QS 

Rt .O.AO 

. OET  03 

LHJ 

Al.O.AS 

ROETO** 

JHOI 

XI .OETPAO 

LR.Q<» 

Rl  0.*AO 

. OET  Q<*  A 

INCREHENT  UORO  * 

• 

J 

ROETOI-I 

. co-routine 

TO  PUT 

BYTES  INTO  substring  OIRECTEO 

TO  The  RIOHT 

• 

LHJ 

A3.0.AI 

RPUTQt 

SR.QI 

Rl .O.AB 

. PUT  QI 

LHJ 

AS.O.At 

RPUTQB 

SR.QB 

Rt .O.AB 

. PUT  QB 

LNJ 

AS.O.AI 

• 

RPuros 

SR. 03 

Rt .O.AB 

. PUT  03 

LHJ 

AS.O.At 

rputqh 

SR.Q<» 

Rl .0.«AB 

. PUT  OH  A 

INCREHENT  UORO  * 

J 

RPuroi-t 

N>IB9 


OAN  (•ACKAOC  AFKNOIX  A 
CNAR/tYTC/SrAtNO  AOUTINCS 


009 


. cO'AourtNC  TO  oer  aao  arrcs 


OCTAAO 

LR 

Rt.«6.Xtt 

. Rt  !•  RAO  tTTC 

LA 

At .(RUTRAOt 

. Ai  t*  AOOR  or  RUTRAO 

autaao 

JOO 

A9.0.A3 

. RUT  ovre  A OCCRCHCNT  AS  TIL  ZCRO 

. TCRHI NATION 

cooe 

MTURN 

LX 

XI .XtSAVC 

. RCSTORC  XI 

4 

R.XI  1 

• 

CNO 


N-t99 


ooooooooooooooooooooooooooooooooooooooooooooooo 


OAN  PACKAOC  AmNOiX  M 
CNAII/lYTC/SriUNO  KOUTlNCt 


POl 


tuMOuriNC  Hovatrc  • hovc  ■vres  to  output  suootrino  pooh  input  suistrino 

0 jtTour.  a OUTPUT  oytc  strino 

1 LOCOUT.  a RYTC  location  in  output  itrino  mhcrc  output  suostrino  icoins 
( LCNOUO.  a LCNOTM  a OIRCCTION  Of  OUTPUT  SUOtTRINO  IPOSITIVC  • L TO  Rl 


I JtTIN.  a INPUT  oytc  strino 

I LOCIN.  a OYTC  LOCATION  UlTMIN  INPUT  STRINO  MHCRC  INPUT  SUISTRINO  ICOINS 
( LCNINO.  a LCNOTH  a OIRCCTION  or  input  suistrino  CPOSITIvC  • L to  Rl 
I IIYPAOI  a lYTC  to  PAO  OUTPUT  SUISTRINO  ON  CXNAUSTINO  INPUT  SUISTRINO 
(lYTC  LOCATIONS  COUNTCO  fROH  I AT  LCPT  Of  STRINO) 


history 


J 

C CRISP 

LEC 

0T/es/7S 

requircnents 

E 

H SCHLOSSCR 

LEC 

07/E7/79 

OESION 

C 

H SCHLOSSCR 

LEC 

07/30/79 

CODE/ TEST 

NCTHOO 


HOVC  INPUT  SUISTRINO  TO  OUTPUT  SUISTRINO.  ONC  lYTC  AT  A TIHC. 


NACHINC-OEPCNOCNT  CODE 


NONE. 


EXTERNAL  REfCRENCCS 


OCTBYT  a OCT  BYTE  fROH  INPUT  sr^iINO 

PUTBYT  a PUT  BYTE  lUTO  OUTPUT  STRINO 


EXCEPTIONS 


I.  If  TMCRC  IS  NO  CORRCSPONOINO  IVTC  IN  INPUT  SUISTRINO.  IBYPAO  IS 
HOVEO  TO  OUTPUT  SUISTRINO. 

I.  THIS  TRANSfORN  HAY  IE  USED  TO  REVERSE  ThE  ORDER  Of  ThC  CONTENTS  Of  A 
suistrino  IV  SPECIfVINO  OPPOSITE  DIRECTIONS  fOR  THE  OUTPUT  ANO  INPUT 

suistrinos.  provioco  These  suistrinos  oo  not  overlap,  if  the 

SUISTRINOS  00  OVERLAP  THE  RESULTS  Of  THE  ATTCHPTCO  REVERSAL  MILL  IE 
UNOCf INCO. 

3.  this  transporn  NAY  IE  USED  TO  SNifT  A SUISTRINO  MITHIN  A STRINO  IV 
USINO  the  SANE  ACTUAL  AROUNPnT  fOR  JSTOUT  ANO  JSTIN  ANO  BY  SPECIfVINO 
OUTPUT  ANO  INPUT  SUISTRINOS  HHICH  PARTIALLY  OVERLAP.  PROVIOCO  THE 
OIRCCTION  Of  the  SHifT  IS  OPPOSITE  TO  THE  OIRCCTION  Of  ThC  SUISTRINOS. 


R'lET 


IAN  NACKAOC  ANNCNOIX  N 
NAN/lYTC/tTRINO  NOUriNCS 


NOVMT/rON 

OOt 


«».  UHCN  SNirrtNO  a tuitmiNO  ro  tnc  Lcrr  aoeour<LOciMi  and  naooino 
AT  THC  mONr.  THCN  IOTH  LCNOUO  and  LCNINO  NU«T  IC  NOtirtVC  lOIRCCrCO 

ro  tnc  RioNn  or  tnc  RCtuirs  wul  oc  unocpinco. 

9.  UNCN  IHirriNO  A tUtSTRlNO  TO  TNC  RIONT  aOCOUT>LOCINI  ANO  RAOOINO 
AT  THC  LCPT.  TNCN  OOTH  LCNOUO  ANO  LCNINO  RUST  RC  NCOATIVC  lOIRCCTCO 
TO  TNC  LCPTI  or  TNC  RC9ULTS  MILL  OC  UNOCPINCO. 

0.  IP  CITmCR  SUOSTRINO  LIC9  HHOLLY  OR  PARTIALLY  OUTSIOC  ITS  STRINO  THC 
RCSULTS  HILL  tC  UNOCPINCO. 

7.  NO  OTNCR  CHCCKS  ARC  HAOC  ON  ANY  OP  THC  AROUNCNTS. 


OLOOAL  OCCLARATIONS 


NONC. 


LOCAL  OCCLARATIONS 


INTCOCR  LOYOUT.LBYIN 
INTCOCR  INCOUT.INCIN 
INTCOCR  NBVOUT.NBYlN 
INTCOCR  NBY 
INTCOCR  IBYT 


a BYTC  LOCATIONS  OP  BYTC  BCINO  nOVCO 
a siONCO  incrchcntation  (*i/-ti  por  lbyout.lbyin 
a NunBCR  or  bytcs  in  substrings 
a NUNBCR  op  bytcs  NOVCO 
a BYTC  BCINO  NOVCO 


PROCCOURC 


C iNITIALIZr  SCAN  OIRCCTIONS  I POINTCRS 

c 

lbyout-locout 

INCOUT«ISION( I .LCNOUOt 

NBY0UT«IABS(LCN0U0> 

lbyin*locin 

INCIN>ISION( I .LCNINOI 
NBYIN>IABS(LCNlNOi 

e 

c 

C NOVC  BYTCS 
C 

00  900  NBY«I.NBYOUT 
IBYT.IBYPAO 

IPINOY.LC.NBYINI  CALL  OCTBYTiIBYT.  JSTIN.LBYINI 
LBYIN«L9YIN*INCIN 

IPINOY.LC.NOYOUTI  CALL  PUTOYT I JSTOUT .LRYOUT . lOYTI 

L9Y0UT«LBT0UT*|NC0UT 
900  CONTINUC 
C 

e 


R'tCO 


tin 


DAN  PACKAOC  AMCNOIX  A 

CNAM/Avrc/trniNO  Aounucf 


iievi«r#roii 

O0S 


OQNC 

NCruAN 

CNO 


A-Itt 


OAN  PACKAOC  APM:NOnt  A 
CHAA/AVrc/SmiNO  AOUriNCt 


HOVtTr 

•01 


•utAOuriNC  Novtrrf  • novc  tTrc  ro  ourour  tmiNO  rnoN  iNOur  sroiNO 
0 Jtrour.  • ourour  lyrc  staino 
( Locour.  A tyre  LOCAfioN  wirHiN  ourour  trAiNO 


I jtriN.  A iNAur  oyre  trAiNO 
c LoeiAt  A fyre  locahon  mithin  iNAur  trAiNo 

liyrr  LOCArioNt  eouNreo  aaoh  t at  terr  or  tfAiNOi 


NitroAy 


J e CAIAA  LCC 

C H SCHLOSfCA  LCC 


07/A9/7A  ACQUIACHCNTS 
07/87/79  OC8ION/COOC/  ; ?T 


NCrHOO 


CONVCAT  9rAtN0*ACL«n VC  Arre  LocAfioN  ro  NACHiNC-ocrcNOCNr 

LOCATION  AS  rOLLOHS: 

MONO  NUNACA  • S'*  HOST  SIONiriCANT  Alts 

QUARTCA'HOAO  LOCATION  WITHIN  WORD  ■ 8 LtAST  SIONIFICAnT  AIT$ 
LOAD  A srORC  RCQUIRCO  QUARTCR  WORD. 


HACHlNC-Or^CNOeNT  cooc 


URITTCN  IN  ASSCNALCR  FOR  ThC  UNIVaC  1100  SCRICS  CONRUTCRS  USINO  9*AIT 
QUARTCR  WORDS.  ThC  AROUNCNTS  ARC  OCSIONCO  TO  SC  NACHI NC- I NOCPCNOCNT . 

•Ur  THC  HCTNOO  of  PASSINO  AROUNCNTS  IS  that  USCO  sy  UNIVAC  FORTRAN  V. 
INALCHCNTINO  COOC  RUST  AC  RCWRITTCN  FOR  OIFFCRCnT  WORD  SIZCS. 

O'.rrCRCNT  CONPILCRS  (CO..  UNIVAC  ASCII  FORTRAN)  . ANO  OIFPCRCNT  NACHINCS. 


CXTCRNAL  RCFCRCNCCS 


NONC 


cxccrrioNs 


I.  TNC  CONRurCR  NUST  AC  IN  QUARTCR'WORO  NOOC . (ASSCHALC  HITh  IASN.F 
OR  COLLCer  with  ANAP.P  OR  INSURC  THAT  SCTOWO  HAS  CALLCO  PRCVIOUSLV.I 

8.  USTOUr  IS  UNCNANOCO  tr  LOCOUT  OR  LOCIN  ARC  Less  than  i. 

S.  NO  OTNCR  CHCCKS  arc  NAOC  on  ANV  or  THC  AROUNCNTS. 

AL  OCCLARATIONS 


N't  so 


0411  04CK40C  A^OtNOU  0 
ctMO/arrc/tniiNO  nouriNCt 


MVOVT 

OOf 


4X00  . trANOARO  UNiVAC  ItOO  WOltrCR  NNCNONICt 

LOCAL  OCCLARAMONS 
NONC. 


RROCCOURC 


ffdOl  . i-iANK  . lANKS  RCVCROCO  TO  CLININATC  iNOIRfCCT  LOAD  TASLC  CNTRY 


HOVOYT* 

LA 

AO.«I.XI I 

AA.XU 

AO.’I 

JN 

AO. S. XII 

OSL 

AO.C 

SSL 

Al.3«» 

AA 

AO.C.XI 1 

cx 

CXTRACT. Al 

LA 

AO.«l .XI 1 

AA.XU 

AO.  -1 

JN 

AO.S.XI 1 

OSL 

AO.t 

SSL 

Al  .3W 

AA 

AO. 0. XI 1 

CX 

INSCRT. Al 

J 

S.XI  1 

CXTRACT 

LA. 01 

AS.O.AO 

LA.  Of 

AS.O.AO 

LA. OS 

AS.O.AO 

LA.O*» 

AS.O.AO 

INSCRT 

SA.OI 

AS.O.AO 

SA.Ot 

AS.O.AO 

SA.OI 

AS.O.AO 

SA.O*» 

AS.O.AO 

• 

CNO 

irrc  LOCiN.  couNTtNO  rnoN  i 
orrc  LOCIN.  couNriNO  troh  o 
RcruRN  ir  LOCIN  ro  Lcrr  or  sroiNo 

AO  !■  MONO  LOCIN  WITHIN  tTRINO 
At  !•  orrc  LOCIN  within  woro 
AO  !■  WORD  AOORCSS  IN 

CXTRACT  OrTC  TRON  RROPCR  OUARTCR  WORO 

OYTC  LOCOUT.  COUNTInO  TRON  t 

RYTC  LOCOUT.  COUNTINO  TRON  0 

RCTURN  If  LOCOUT  TO  LCfT  OF  STRINO 

AO  I*  WORO  LOCOUT  WITHIN  OTRINO 

At  i>  OYTC  LOCOUT  WITHIN  WORO 

AO  <>  WORD  AOORCSS  OUT 

INSCRT  OYTC  INTO  PRORCR  OUARTCR  WORO 

RCTURN 


R’tSI 


OAN  PACRAOC  ARRCNOIX  A 

CNAR/im/trAlNO  AOUriNCt 


NOVCHN 

•At 


tUMOUrtNC  NOVCNAt  A NOVC  CNANACrCA  TO  OUTAUr  ttAINO  fAON  INAU?  tTAINO 
0 Ktrour.  A ouTAur  cNARAcrcA  «rAiNo 
t LOCOUT.  A CMARACrCR  kOCATION  MITNIN  OUrf»UT  trRINO 


1 RtriN.  A iNAUr  CNANACrCA  trRINO 
( LOeiNt  A CNARACrCR  LOCATION  UlTNlN  INRUT  STRINO 

ICNARACrCR  LOCATIONS  COUNTCO  fRON  I AT  LCfT  Of  fTRlNOI 


Nl STORY 


J C CRISR  LCC 

C N tCHLOttCR  LCC 


07/tS/7S  RCQUIRCNCNTS 

0S/0I/7S  orsiON/cooc/Tcsr 


nctnoo 


CONVCAT  STRINO'RCLATI VC  CHAAACTCR  LOCATION  TO  NACHl NC •OCRCNOCNT 
LOCATION  AS  rOLLONti 

MONO  NUNSCR  • (CHANaCTCR  LOCATION  > II  / CHARACTCRS  NCR  UONO 
SIXTM-NORO  LOCATION  UlTHIN  UORO  • RCNAINOCR  TAON  DIVISION 
LOAD  I STORC  RCQUIRCO  SIXTH  UORO. 


NACNINC'OCRCNOCNT  COOC 


URITTCN  IN  ASSCHtLCR  TOR  ThC  UNIVAC  1100  SCRIPS  CONRUTCRS  USINO  9-OIT 
SIXTH  UOROS.  THC  AROUHCNTS  arc  OCSIONCO  to  sc  HACHInC’INOCRCNOCnT. 

■UT  THC  NCTHOO  or  RASSINO  AROUHCNTS  IS  that  USCO  SY  UNIVAC  rORTRAN  V. 
INRLCNCNTINO  COOC  HUST  SC  RCURITTCN  fOR  OirfCRCNT  UORO  SI7CS. 

OirrCRCNT  CONRILCRS  (CO..  UNIVAC  ASCII  rORTRANI.  ANO  OtfrCRCNT  MACHINCS. 


CXTCRNAL  RCrCRCNCCS 


NONC 


CXCCRTIONS 


1.  KSTour  IS  UNCHANOCO  ir  locout  or  locin  arc  lcss  than  i. 
s.  no  othcr  chccks  arc  naoc  on  ant  or  thc  arouncnts. 

OlOSAL  OCCLARATIONS 

Axns  . STANCARO  UNIVAC  1100  RCOISTCR  NNCNONICS 


R«IM 


HOVCMI 

•M 


OAK  ^ACKAOC  AMCNOIX  N 
CMAII/tTrC/trAlNO  NOUriNCt 


iOCAL  OCCLAIIAriONt 


MoerouAC 


•:ooi  . 

NOVCNN* 


t •SANK 


■ANK«  SCVCSSCO  TO  CLlNlNAfC  INOINCCT  LOAD  CNTNT 


cxrNAcr 


tNSCNT 


LA 

At ,*S.XI 1 

. CHAN  LOeiN.  COUNT INO  fNOH  i 

AA.XU 

Al.-t 

. CNAN  LOCIN.  COUNTINO  r«OH  S 

«Z 

AO 

. eivitiON  eoNiNO 

JN 

At ,0. XII 

. NcruNN  ir  LOCIN  to  lcft  or  strino 

0!.U 

AO. 6 

. AO  I*  mono  LOCIN  hitnin  itrino 
. Al  t«  Char  locin  mi  thin  word 

AA 

AO. Z. XII 

. AO  (•  MONO  AOONCtf  IN 

KX 

cxroAcr.Ai 

. cxtract  char  rROH  prorcr  sixth  mono 

LA 

Al .*1 .XI 1 

. CNAR  logout,  counting  rQOH  1 

AA.XU 

At  .•! 

. CHAR  logout.  COUNTINO  TRON  0 

tz 

AO 

. 0IVI9I0N  COHINO 

JN 

Al .S.Xtl 

. RCTuNN  ir  LOGOUT  TO  LCTT  Of  ITRInO 

01. U 

AO.O 

. AO  !•  MONO  logout  mi  thin  tTRlNO 
. Al  i«  CHAN  logout  MITHIN  MONO 

AA 

AO. 0. XII 

. AO  >•  MONO  A00NCS9  OUT 

CX 

tNOCur.At 

. IN9CRT  CHAR  INTO  PNORCR  SIXTH  MONO 

J 

9. XII 

. NCTuRN 

LA. SI 

AJ.O.AO 

LA.M 

Al.O.AO 

• 

LA. 01 

Al.O.AO 

• 

LA.t* 

Al.O.AO 

• 

LA.tO 

Al.O.AO 

• 

LA. ft 

Al.O.AO 

* 

SA.t; 

Al.O.AO 

« 

OA.M 

Al.O.AO 

• 

tA.tX 

Al.O.AO 

• 

tA.OA 

Al.O.AO 

• 

fA.tO 

Al.O.AO 

• 

SA.SO 

Al.O.AO 

• 

CNO 

rrj: 


S-ISl 


OAN  PACKAOC  AMCNOtX  R 
CNAR/lYrC/SrRtNO  ROUriNCS 


ASM 

001 


OUiROUrtNC  HOVCSrt  • NOVC  chars  to  OUTRUT  SUOSTRtNO  FROM  INRUT  SUOSTRINO 

0 KOrOUT.  • OUTRUr  CHAR  STRINO 

1 LOCOUr.  • CHAR  LOCATION  IN  OUTRUT  STRING  HHCRC  OUTRUT  SUOSTRINO  SCOINS 
< LCNOUO.  0 LCNOTH  a OIRCCTtON  OF  OUTRUT  SUOSTRINO  IROSITIVC  ■ L TO  R) 


• 

I KSTIN.  0 INRUT  CHAR  STRINO 

I LOCIN.  0 CHAR  LOCATION  WITHIN  iNRUT  STRINO  HHCRC  INRUT  SUOSTRINO  OCOINS 
( LCNINO.  0 LCNOTH  • OIRCCTION  OF  INRUT  SUOSTRINO  (ROSITIVC  • L TO  Rt 
I KHRRAOt  a CHAR  TO  RAO  OUTRUT  SUOSTRINO  ON  CXNAUSTINO  INRUT  SUOSTRINO 
(CHAR  LOCATIONS  COUNTCO  FROH  t AT  LCFT  OF  STRINOI 


HISTORY 


J 

c 

CRISP 

LCC 

07/25/79 

RCQUIRCHCNTS 

c 

H 

SCHLOSSCR 

LCC 

07/27/79 

OCSION 

c 

H 

SCHLOSSCR 

LCC 

• 07/30/79 

COOC/TCST 

NCTHOO 


CONVCRT  STRINO'RCLATIVC  CHARACTCR  LOCATIONS  TO  MACHINC-OCPCNOCNT 
LOCATIONS  AS  FOLLOWS: 

WORD  NUHBCR  • (CHARACTCR  LOCATION  • 1)  / CHARACTCRS  PCR  WORD 
SIXTH-HORO  LOCATION  WITHIN  WORD  • RCHAINOCR  FROM  DIVISION 
OCTCRNINC  CO'ROUTINCS  A INITIAL  CNTRV  POINTS  TO  OCT/PUT  CHARACTCRS. 
HOVC  CHARACTCRS  WITH  OCT/PUT  CO-ROUTInCS. 

PAD  CHARACTCRS  WITH  PAO/PUT  CO-ROUTINCS. 


NACHINC-OCPCNOCNT  COOC 


URITTCN  IN  ASSCHOLCR  FOR  THC  UNIVAC  1100  SCRICS  COHPUTCRS  USINO  6-OIT 
FICLOATA  CHARACTCRS.  THC  AROUKCNTS  ARC  OCSIONCO  TO  BC  HACHI NC • I NOCPCNOCNT . 
BUT  THC  HCTHOO  OF  PASSINO  AROUHCNTS  IS  THAT  USCO  BY  UNiVAC  FORTRAN  V. 
IHPLCNCNTINO  COOC  MUST  BC  RCWRITTCN  FOR  OIFFCRCNT  WORO  SIZCS. 

OIFFCRCNT  COHPILCRS  (CO..  UNIVAC  ASCII  FORTRAN).  ANO  OIFFCRCNT  HACHINCS. 


CXTCRNAL  RCFCRCNCCS 


NONC. 


CXeCPTIONS 


I.  IF  THCRC  is  no  CORRCSPONOINO  CHARACTCR  IN  INPUT  SUBSTRINO.  KHRPAO  IS 
NOVCO  TO  OUTPUT  SUOSTRINO. 

t.  THIS  TRANSFONN  HAY  0C  USCO  TO  RCVCRSC  ThC  OROCR  OF  THC  CONTCNTS  OF  A 


OAH  ^ACKAOC  AAKNOIX  R 
CNAR/RtrC/trillNO  ROUriNCt 


Novetr/Atn 

OM 


•UMTRtNO  lY  tKCirVtNO  ORAOtUC  OIRCCTIONt  rOR  YMC  OUTRUT  AND  INRUT 
tURITRINOS.  RROVIOCO  TNCSC  tUMTRlNOt  00  NOT  OVCRLAR.  IR  TNC 
tURtTRlNOt  00  OVCRLAR  TNC  RCtULTf  OR  TNC  ATTCHRTCO  RCVCRSAL  NILL  tC 
UNOCRtNCO. 

3.  TNlt  TRANORORN  NAY  K U«CO  TO  SNIRT  A SUiSTRINO  NITHtN  A OTRINO  OY 
UtlNO  TNC  SAM  ACTUAL  AROUNCNT  ROR  KOTOUT  ANO  KCTIN  ANO  RY  SRCCIRYlNO 
OUTRUT  ANO  INRur  tUiSTRINOt  HNICM  RARTULLY  OVCRLAR.  RROVIOCO  TNC 
OIRCCTION  OR  TNC  ONIRT  IS  0RR08ITC  TO  TNC  OIRCCTION  OR  TnC  SUOSTRINOS. 

V.  HNCN  SHIRTINO  A SUiSTRINO  TO  TNC  LCRT  ILOCOUTTLOCINI  ANO  RAOOINO 

AT  TNC  RIONT.  THCN  iOTN  LCNOUO  ANO  LCNINO  HURT  SC  ROSITIVC  (OIRCCTCO 
TO  TNC  RIONT)  OR  TNC  RCSULTS  NILL  SC  UNOCRINCO. 

8.  HNCN  SNIRTINO  A SUSSTRINO  TO  TNC  RIONT  (LOCOUT>LOCIN>  ANO  RAOOINO 
AT  TNC  LCRT.  ThCN  SOTN  LCNOUO  ANO  LCNINO  NUST  SC  NCOATIVC  (OIRCCTCO 
TO  TNC  LCRT)  OR  TNC  RCSULTS  HILL  SC  UNOCRINCO. 

S.  IR  CITNCR  SUSSTRINO  LICS  HHOLLY  OR  RARTULLY  OUTSIOC  ITS  STRINO  ThC 
RCSULTS  HILL  SC  UNOCRINCO. 

7.  NO  OTHCR  CNCCKS  arc  NAOC  ON  ANY  OR  THC  AROUNCNTS. 


OLOSAL  OCCLARATIONS 


AXRS  . 8TAN0AR0  UNI  VAC  1100  RC0I8TCR  NNCNONICS 


LOCAL  OCCLARATIONS 


8(001  . O'SANK 

XtSAVC  RCS  I . SAVC  LOCATION  ROR  RCOISTCR  XI 


RROCCOURC 


f(0|)  . I•0ANK 

NOVCST*  SX  XI. XtSAVC  . SAVC  RCOISTCR  XI 


. eONRUTC  INITIAL  UORO  AOORCSS  A CNAR  LOCATION  WITHIN  UORO  ROR  INRUT  SUSSTRINO 


LA 

AI.«*».Xtt 

CNAR  LOCIN.  COUNT  1 NO  RRON  I 

AA.XU 

At  .•! 

CNAR  LOCIN.  COUNT  1 NO  RRON  0 

SI 

AO 

DIVISION  CONINO 

JN 

At .RCTURN 

RCTURN  IR  TO  LCRT  OR  STRINO 

01. u 

AO.S 

AO  I*  UORO  LOCIN  WITHIN  STRINO 

Al  I*  CNAR  LOCIN  WITHIN  UORO 

AA 

AO. 3. XII 

AO  !•  UORO  AOORCSS  IN 

H8I.U 

At. 3 

Al  !•  3«CNAR  LOCIN  WITHIN  UORO 

R'ISS 


OAN 


lUTINCt 


NOVCtT/AtN 

001 


. coh'urc  initial  mono  AOONCOS  a CNAR  location  NITNIN  mono  rON  OWTRUT  OUOOTNINO 


LA 

AS.«I .XII 

CNAN  LOCOUT.  COUNT I NO  TNON  1 

AA.XU 

AX.-I 

OMAN  LOCOUT.  COUNT 1 NO  FNON  0 

OX 

A» 

OlVIOION  CONINO 

jn 

AI.NCTUNN 

NCTUNN  ir  TO  LCrT  Of  8TNIN0 

01. u 

At.O 

At  I*  HONO  LOCOUT  NITNIN  HI  THIN  STNINO 
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O.  NNCN  RNtrrtNO  A RMRTNINR  TO  TNC  LCfT  (kOCOUTTLOCINI  AND  NAOOINO 
AT  TNt  RIMT.  TnCN  ROTN  LCNOUO  ANO  LCNIHO  HURT  RC  NORITIVC  (OtNCCTCO 
TO  tnc  NIONTI  on  tnc  NCRM.tr  HILL  RC  UNDCflNCO. 

R.  NNCN  RNirTINO  A RURRTRINO  TO  TNC  NIOHT  (LOCOur>LOeiNI  ANO  AAOOINO 
AT  TnC  LCfT.  TNCN  ROTH  LCNOUO  ANO  LCNINO  NURT  RC  NCOATIvC  lOiACCTCO 
TO  TNC  LCrTi  ON  TnC  NCRULTR  HILL  RC  UNOCriNCO. 

R.  If  CITnCN  tURRTNlNO  LICR  UNOLLY  ON  NaNTIALLY  OUTOIOC  ITf  fTNlNO  ThC 
NCRMTt  MILL  RC  UNOCflNCO. 

Y.  NO  OTNCN  CNCCKR  ANC  NAOC  ON  ANY  Of  THC  ANOUNCNTR. 


OLORAI 

L occlanationo 

AXNO 

. OTANOANO  UNIVAC  1100  NCOIOTCN  HNCHONICO 

LOCAL 

OCCLANATIONO 

NONC. 


NNOeCOUNC 


RIOOl  . I•RANK  . RANKR  NCVCNRCO  TO  CLININATC  INOINCCT  LOAD  TAMC  CNTNT 

NOVIRT* 


. CONNUTC 


INITIAL  MONO  AOONCOO  fON  iNNuT  SUROTNINO 


LA  AO.'N.XII 

AA.XU  AO.'I 

JN  AO.NCTUNN 

AA  AO. I. XII 


INTCOCN  LOCIN.  COUNTInO  rNON  I 
INTCOCN  LOCIN.  COUNTINO  YNON  0 
NCTUNN  ir  TO  LCfT  Of  OTNINO 
AO  I*  MONO  AOONCOO  IN 


.*  CONNUTC  initial  MONO  AOONCOO  fON  OUTNUT  OUROTNIMO 

LA  AC.«I.XII  . INTCOCN  LOCOUT.  COUNTINO  fNON  I 

AA.XU  AC.-I  . INTCOCN  LOCOUT.  COUNTINO  fNON  0 

JN  At. NCTUNN  . NCTUNN  If  TO  LCfT  Of  OTNINO 

AA  At.R.XII  . At  !•  MONO  AOONCOO  OUT 


. OCTCNNINC  INCNCNCNTaTION  a NUNRCN  Of  MONOO  fON  INNUT  RURRTNt 


N*l«0 


OAN  ^ACKAOC  ArKMItX  II  * 

CHAR/evrc/triiiNO  nouniics 


LCNINO 

LA 

AR.«B.Xtl 

LENINO 

JM 

AN.tNNlNUS 

tNRLUt 

LXI.XU 

AO.»l 

HOMO  tNCRCHCNTATION  IS  »l 

U 

LCNOUO 

INHINUt 

LXI.XU 

AO.-I 

HORO  tNCRCnENTAriON  IS  •! 

• 

LNA 

AN.  AN 

AN  :•  • OP  H0R08  IN 

! iiereiiniNC 

INCRENENTAriON  A NUN8EII 

OP 

UOROS  POR  OUTPUT  SUBSTRINO 

• 

LCN9UO 

LA 

A9.«B.XI  1 

LENOUO 

JN 

AS.OUTHINUS 

our»Lus 

LXI .XU 

AB.«-I 

HORO  INCREMENTATION  IS  *t 

J 

NOVNPAO 

01*  .‘MINUS 

LXI .XU 

AB.  -1 

HORO  incrementation  is  -I 

LNA 

AS.  AS 

AS  t*  • OP  UOROS  OUT 

. iNiruLize 

REPEAT  REOI STEPS.  MOVE 

AND 

• 

PAD 

HOVNRAO 

TO 

AN.  AS 

SKIP  NEXT  INSTR  tr  AS  > AN 

LA 

AN.  AS 

AN  :•  • OP  UOROS  TO  MOVE 

ANA 

AS. AN 

AS  :«  •OP  UOROS  TO  PAO 

MOVE 

LR 

Rl  .AN 

REPEAT  COUNT  POR  MOVE 

BT 

AB.O.«AO 

MOVE  HOS  PROM  AOOR  IN  AO  TO 

PAD 

LA 

AO. 8. XI 1 

AO  :•  AOOR  OP  PAO  HORO 

LXI.U 

AO.O 

NO  incrementation 

LR 

Rl  .AS 

REPEAT  COUNT  FOR  PAO 

• 

BT 

AB.O.*AO 

PAO  UOROS 

. TERN I NAT  ION  CODE 

• 

RETUIIN 

J 

8. XII 

CNO 


NOVItt 

••X 


AOOR  IN  *e 


R-IN7 


OAN  PACKAOC  APKNOIX  R 
CHAR/tYrC/tTRINO  ROUTtNCS 


Mt«NI 

001 


INTCOCR  ruNCriON 

0 0 NUNKR  or  OYTcs  roR  mmocR  or  tNrcocRS 

• NOANlt 

1 NIRYCRl  0 NUHiCR  Or  INTCOCRS 


Ml STORY 


NARY  TOMPKINS 

LEC 

09/ 1 1/79 

requirements 

CHARLES  HELMKE 

LEC 

09/11/79 

algorithm  OESION 

JIN  CRISP 

LEC 

09/IB/79 

algorithm  code 

NCTHOO 


INPUT  NUNBCR  OF  INTEOCRS.  NULTIPLY  BY  <».  OUTPUT  NUMBER  OF  BYTES. 


NACHINE-OEPENOENT  CODE 


NRITTEN  IN  assembler  FOR  THE  UNIVAC  1100  SERIES  COMPUTERS  USING  9-BIT 
QUARTER  HOROS.  THE  AROUMENTS  ARE  OESIONEO  TO  BE  MACH  I NE - i NOEPENOEN T . 

BUT  THE  METHOD  OF  PASSINO  ARGUMENTS  IS  THAT  USED  BY  UNIVAC  FORTRAN  V. 
IMPLEMENTINO  CODE  MUST  BE  REWRITTEN  FOR  DIFFERENT  CHARACTER  COOES. 
DIFFERENT  COMPILERS  (EO.  UNIVAC  ASCII  FORTRANI . AND  DIFFERENT  HACHINES. 


EXTERNAL  REFERENCES 


NONE 


EXCEPTIONS 


I.  IF  NINTER  is  less  than  I,  NBYNl  IS  SET  E )UAL  TO  ZERO. 


OLOOAL  declarations 


AXRS  . standard  UNIVAC  ItOO  RE9ISTER  MNEMONICS 


LOCAL  declarations 


NONE. 

RNOCEOURE 


R-UO 


NVlNt 

OOt 


OAN  MCKAOC  AmNOU  II 
CNAN/eYrc/sriitNO  RourtNCt 


tmoi  . t'«ANK  . tANKS  RCVCRSCO  TO  CLtHINATC  INOIRCCT  LOAD  TABte  CNTRY 


LA 

Al.*0.Xlt 

. rercM  arouhcnt 

sz 

AO 

• 

JR 

Al. RETURN 

. tr  arouhcnt  nco  return  zero 

Lost 

A0.3R 

. HULT  At  BY  « ANO  STORE  IN  AO 

RCTURN 

J 

s.xtt 

CNO 

\ 


» 


R-t«9 


OAN  MCKA9C  AMCMOtX  II 
CNAii^evrc/triiiiio  routincs 


NCHNI 

001 


INTCOCR  rUNCrtON 

0 • NUNiCR  or  CNARACrCRO  rOR  NUNOCR  or  INTCOCRS 
• NC*»Nt( 

1 NlNrCRI  • NUNOCR  or  INTCOCRS 


NISTORV 


JIN  CRISP 

LCC 

09/ 1 1/79 

RCQUIRCNCNTS 

NARY  TOHPKINS 

LCC 

09/11/79 

ALOORITHN  OCSION 

CHARLCS  HCLNKC 

LCC 

09/10/79 

ALOORITHN  COOC 

NCTHOO 


INPUT  NUNOCR  Or  INTCOCRS.  NULTIPLT  BY  6.  OUTPUT  NUNOCR  Or  CHARACTCRS. 


NACMINC-OCPCNOCNT  COOC 


HRITTCN  IN  ASSCNBLCR  FOR  THC  UNI  VAC  1100  SCRICS  CONPUTCRS  USINO  6-BIT 
riCLOATA  CHARACTCRS.  THC  AROUNCNTS  ARC  OCSIONCO  TO  BC  NACH I NC -I NOCPCNOCNT . 
BUT  TnC  NCTHOO  OF  PASSINO  AROUNCNTS  IS  THAT  USCO  BY  UNI  VAC  FORTRAN  V. 
INPLCNCNTINO  COOC  NUST  BC  RCHRITTCN  FOR  OIFFCRCnT  CHARACTCR  COOCS. 
OIFFCRCNT  CONPIlCRS  (CO.  UNIVAC  ASCII  FORTRANI.  ANO  OIFFCRCNT  NACHINCS. 


CXTCRNAt  RCFCRCNCCS 


NONC 


CXCCPTIONS 


I.  IF  NINTCR  IS  LCSS  THAN  1.  NC<»NI  IS  SCT  COUAL  TO  CCRO. 


OLOOAL  OCCLARATIONS 


AXRS  . STANOARO  UNIVAC  1100  RCOISTCR  NNCNONICS 


LOCAL  OCCLARATIONS 


NONC. 

PROCCOURC 


R*tSO 


OAN  ^ACKAOC  AMCNOtX  R 

eNAii/Rvrc/trRtNO  Rourmct 


NCRIII 

•w 


« 


tfOOl  . I •RANK 
MC%NI«  LA 

tz 

JR 

tA 

ntt.u 

RcruRN  j 

CNO 


. RANKS  RCVCRSCO  TO  CUHINATC  INOIRCCT  LOAD  fARLC  CNTRT 
AI.«O.Xtl  . rCTCH  AROUNCNr 
AO 

At.RCrURN  . If  AROUNCNr  NCO  RCTURN  CCRO 
Al.AO 

AO. 6 . NULt  RV  0.  STORC  IN  AO 

t.Xtt 


R'ISI 


A A 


OAN  MCKAOC  A^WNOIX  X 
CMAii/tvrc/triitNO  noutincs 


NCMTOK 

001 


outNouriNC  NCxroKt  0 orr  ootorcoo  ro  ncxt  tokcn  in  ihaoc  ourrcR 

0 KNAIII.  0 rtnOT  NON**ONACC*  CHANACrCN  Of  NCXT  TOKCN 
0 LOCLCN.  a NOINTCROt  III  LOCTOKt  NCXT  TOKCN  LOCATION 

(tl  LCNTOKi  NCXT  TOKCN  LCNOTN 

ISl  LCNINOt  IHAOC  OUrrCR  LCNOTN  t •C-tl  ir  CNO  I 


e 

e 


1 LOCLCR.  a POINTCNOi  til  PNCVtOUO  TOKCN  LOCATION 

ttl  PRCVIOUO  TOKCN  LCNOTN 

ISl  PRCVlOUt  INAOC  OUrPCN  LCNOTN  I •••I  I IT  CNO  I 
1 INAOC.  a IHAOC  OUPrCR  CONTAININO  TOKCNS 

I KNROLN.  a OCLIHITCN  CNANACTCR  IOCLIHITCN  TOKCNO  ARC  HAOC  UP  OF  TNCSCI 
I KNROPAI  a OPACC  CNAR  tLCAOiNO  8PACC  CNAR8  IN  NON-SPACC  TOKCN  ARC  lONORCO 


HISTORY 


C N 8CHL0SSCR  LCC 

C N SCNLOSSCR  LCC 


0O/I0/7S  ORIOINAL  COOC  in  riCLOS  t RITOOL 

01/17/79  Revise  a ocncralizc 


nctnoo 


TNC  STRINO  OP  CNARACTCRS  IN  THC  IHAOC  IS  COHPRISCO  OP  SUOSTRINOS  OP  ThO 
typcsi  oetiHircR  roxeNs  and  NON>oeLtnireR  tokcns.  a ocLiMircR  tokcn  is 
A SUOSTRINO  NAOC  up  CNTIRCLV  op  OCLINITCR  CHARACTCRS  ANO  aOUNOCO  OY  non- 
OCLINITCR  CNARACTCRS  ANO/OR  INAOC  UINITS.  A NON-OCLIHITCR  TOKCN  IS  A 
SUOSTRINO  (CXCLUOINO  LCAOINO  'SPACC*  CNARACTCRS!  NAOC  UP  CNTIRCLY  OP  NON- 
OCLINITCR  CNARACTCRS  ANO  BOUNOCO  OY  OCLINITCR  CNARACTCRS  ANO/OR  INAOC 
LIHITS. 

TO  LOCATC  TOKCNS  IN  SCOUCNCC  (ALTCRNATINO  OCLINITCR  ANO  NON-OCLIHITCR! 

PRON  AN  INAOC: 

I.  INITIALIZC  LOCLCPIll  TO  TnC  LOCATION  NNCRC  SCANNINO  IS  TO  START 
tNORNALLY  1 1 

t.  INITIALIZC  LOCLCPiat  TO  0 

S.  INITIALIZC  LOCLCPtSt  TO  TnC  LCNOTN  IN  CNAR  OP  TnC  INAOC  OUPPCR 
P.  CALL  NCXTOK 

9.  IP  LOCLCNtSI  IS  NCOATIve  TNCN  ThCRC  ARC  NO  NORC  TOKCNS  ANO< 
LOCLCNtll  HILL  POINT  TO  FIRST  CNAR  IN  IHAOC  (LOCLCNI I ! •! ! 

LOCLCNIti  NILL  BC  0 

9.  OTNCRNISC  KNARI.  LOCLCNIII.  LOCLCNICI  TNCN  CONTAIN  1ST  CNARACTCR. 
LOCATION.  LCNOTN  OP  NCXT  TOKCN 

7.  eONTINUC  9Y  SCTTINO  THC  LOCLCP  POIN^CRS  to  TnC  LOCLCN  POINTCRS  ANO 
CALLINO  NCXTOK  UNTIL  LOCLCNIS)  IS  NCOATIVC. 

9.  TO  CLININATC  TNC  NCCO  FOR  CXPLICIT  UPOATINO  OP  LOCLCP.  TnC  SAHC 
PORHAL  AROUNCNT  NAY  9C  USCO  FOR  LOCLCP  ANO  LOCLCN. 


NACNINC-OCPCNOCNT  COOC 


NONC. 


9-199 


t%nnn 


OM  #ACKAOC  AMCNOU  A 

CNAR^AYrC/tmiNO  ROUriNCt 


NCXrOK 

OOff 


CXrCRNAL  RCrCRCNCCt 


ocrcMR  A ocr  cnaractcr  rxoN  CNARAcrcx  string 

INTCOCR  LCMRCQ  • LOCATC  CNARACTCR  IN  SURfTRiNO  CQUAL  TO  tCARCN  CNAR 

INTCOCR  tCHRNC  A LOCATC  CNARACTCR  IN  SURSTRINO  NOT  CQUAL  TO  SCARCN  CHAR 


CXCCRTIONt 


I.  ir  LOCLCNISI  IS  Less  THAN  ON  CNTRy.  THCN  ALL  AROUNCNTS  ARC 
UNCMANOeO. 


OLOOAL  OCCLARATIONS 


NONC. 


LOCAL  OCCLARATIONS 


INTCOCR  LOCLCPOI  A AROUNCNT 

INTCOCR  LOCLCNOI  I AROUNCNT 

OCPINC  LOCTOK-LOCLCN( n A NCXT  TOKCN  LOCATION 
OCPINC  LCNT0K-L0CLCN(2>  a NCXT  TOKCN  LCNOTH 

OCriNC  LCN1N0*L0CLCNI 3)  A NCXT  INAOC  BUFFCR  LCNOTH  I «(-!«  IT  CNO  INAOC 
INTCOCR  IHAOCII)  A AROUNCNT 

INTCOCR  LOCCNO  A LOCATION  AFTCR  LAST  CNARACTCR  IN  TOKCN 

C 

c 

C RROCCOURC 

C — 

c 

c 

C INITIALIZC  OUTPUT  LOCLCN  POINTCRS 

c 

LOCLCNin-LOCLCPCII 
LOCLCNCAt>LOCLCP(Ct 
LOCLCN(3l«LOC .CP131 

• e 
c 

C OCTCRNINC  LOCATION  Of  NCXT  TOKCN 
C 

IPILCNINO.LC.O*  00  TO  800  A NO  INAOC 
L0CT0K>L0CT0K*LCNT0K  a LOe  APTCR  PRCVIOUS  TOKCN 

• LCNTOK»LCNINO<LOCTOK*l  A LCNOTH  OP  RCNAININO  INAOC 
IPILCNTOK.LC.O*  00  TO  000 


OCTCRNINC  STATC  OP  NCXT  TOKCN 

CALL  OCTCNRCKHARI.  INAOC. LOCTQKl 


R-I9S 


noon  noon  o o o o 


OAN  PACKAOC  A^CNOU  R 
CNAR/RYTC/tTRlNO  NOUTlNCt 


NCXTOK 

OOS 


irtKNAKt.CQ.RMROLNI  00  TO  YOO 
00  ro  300 

e 

e 

e NON-OCLINirCR  rOKCN 

e 

300  LOeCNO«LCMACQ(IHAOC.LOCrOK.LCNrOK.KHROLNI  0 LOC  OT  NCX?  OCLIHITCR  CHAR 
ircLOCCNO.CQ.oi  LoecNO«LCNine«t 
LCNrOK«LOCCNO*LOCrOK 

lOCrOK>HAXO(LOCrOK.LCHRNCI iNAOe.LOCTOK.LCNTOK.KHRSRAI ) « tST  N0N*SRACC 

LCNrOK-LOCCNO'LOCrOK 

CALL  OCrCNRtXHARI.  IHAOC.LOCTOKI 

00  ro  000 


OCLlNirCR  TOKCN 

•*00  LOCCNO*LCHRNei IHAOC.LOCTOK.LCNTOK.KHROLH)  • LOC  AFTER  LAST  OCLIHITCR 

IFILOCCNO.CQ.Q)  LOCCNO*LCNINO*l 
LCNTOK-LOCCNO-LOCrOK 
00  TO  900 


NO  NORC  TOKENS 

000  LOCTOK-I 
LCNTOK-0 

LCNIHO>-l ABSILCNINOI 
00  TO  900 


DONE 

000  RETURN 
END 


R-tSN 


Ml 


OAN  PACKAOC  AP^CNOIX  (I 
CNAR/IVrC/trillNO  ROUrtNCt 


iNrcocR  ruNcrioN 

0 A NUMCR  or  INTCOCM  TOR  NUNRCR  Of  RYTCt 

• RIANRI 

t NRVTCSI  A NUNRCR  Of  RYTCt 


history 


CHARLES  HCLHKC 

LCC 

0S/tt/7S 

RCQUIRCHCNTS 

UIH  CRISP 

LCC 

OS/It/79 

ALOORITHH  OESION 

MARY  TOMPKINS 

LCC 

OS/IB/79 

aloorithh  code 

HCTHOO 


*tNreocRS  t*  (*eYres/H)  (•  i ir  rchainocri 


NACHtNC'OCRCNOCNr  CODE 


MRirrCN  IN  ASSCHOLCR  TOR  THE  UNI  VAC  1100  SERIES  COMPUTERS  USINO  9*BIT 
QUARTER  UOROS.  THE  AROUHENTS  ARE  OESIONEO  TO  8E  NACHINE-INOEPENOENT. 

OUT  THE  NETHOO  OP  PA8SIN0  AROUHENTS  IS  THAT  USED  BY  UNIVAC  FORTRAN  V. 

inplehentino  code  must  be  rewritten  por  oipperent  character  cooes. 
OIPPEREnT  compilers  CEO.  UNIVAC  ASCII  PORTRANI . ANO  OIPPERENT  MACHINES. 


EXTERNAL  REFERENCES 


NONE 

CXCCPTIONS 

I.  IP  NBYTCS  IS  LESS  than  I.  NIHNB  IS  SCT  EQUAL  TO  ZERO. 
OLOBAL  declarations 

AXRS  . STANOARO  UNIVAC  tlOO  RCOISTCR  MNCHOHICS 

LOCAL  DECLARATIONS 
NONE. 

PNOCEOUNC 


tot 


PAN  MCKAW  ANNCNOIR  R 
CMAR/irrC/tTRlNR  ROUttNCt 


ttAOt  . I-PANR  . lANKt  RCVCRtCO  TO  CLININATC  INOIRCCT  LOAO  fAILC  CNTRV 


NIANR* 

CA 

AI.«O.Xtt 

• 

rcrCN  AROUNCNf 

tx 

AO 

• 

JN 

Al.RCruRN 

• 

If  AROUNCNT  NCO  RCTURN  2CRO 

LOtL 

AO.XA 

• 

AO  !•  Al/A 

J2 

Ai.RCruRN 

* 

tr  NO  RCHAINOCR.  TNCN  RCTURN 

AA.U 

AO.t 

• 

RCNAINOCR  “ ROUND  UR 

RCruRN 

J 

t.XIl 

• 

CNO 

R-I9R 


0AN  ^ACRAOC  AM»CNOtX  R 
CMAR/RTrc/triitNO  murtNCt 


NIRMC 

••I 


iNrcMR  ruNcriON 

0 a NUNicii  or  iMrcoCRt  roR  nunrcr  or  cn( 
• RUNCf 

1 RCNARt  a NUHRCR  Or  CNARACTCRt 


NitrORV 


CNARLES  NELNKE 

LEC 

00/ It /VO 

JIN  CRISR 

LEC 

00/11/70 

NARV  rONRKiNt 

LEC 

OO/tt/70 

RCQUlRCNCNTt 
ALOORITHH  OCtlON 
ALOORITHH  COOC 


nctmoo 


*iNrcocRt  t*  ( •CHARAcreas/S)  • <*  i ir  rchainocri 


NACNiNC'OcrcNoeNr  coot 


MRirrcN  IN  AsacnoLCR  roR  tnc  univac  iioo  scrics  eoHRurcRt  ufiNO  0‘Oir 
riCLOArA  CMARACrCRt.  fHr  AROUNCNTS  ARC  OCflONCO  TO  oe  HACHINC-INOCRCNOCNr. 
our  TNC  ncthoo  or  rassino  arouncnts  is  that  useo  ar  univac  tortran  v. 
iHRLCNeNTiNO  COOC  Nutr  ac  RCuRirreN  roR  oirrcRCNr  charactcr  cooes. 
oirrcRCNT  eoNRUCRS  <eo.  univac  ascii  roRTRANi.  ANO  oirrcRCNr  nachincs. 


cxrcRNAL  RcrcReNcct 


NONE 


I 


1.  ir  NCNAR  It  lets  than  t.  NtNNC  IS  scr  COUAL  ro  ZERO. 


OLOtAL  OEClARAriONO 

AXRt  . STANOARO  univac  1100  REOItrER  NNENONiCt 

kOCAl  OEClARAriONS 


RROCEOURE 


R-liY 


DAN  •*€««•£  AmnOIX  A 
eNAA'^tTfC/tTRlNO  AOUTINCt 


NIANC 

•tt 


•(•01  . l>OANK  . OANKO  RC¥CII«CO  tO  CLININATC  iNOIRCCr  LOAD  r*OLC  CNTRY 


NIANC* 

LA 

AI.«0.Xtt 

. rCrCN  AAOUlfCNT 

•2 

AO 

• 

JN 

AI.RCTUfIN 

. If  AAOUNCNT  NCO  MTUAN  ZCNO 

01. U 

AO.O 

. AO  t*  AI/0 

J2 

AI.AtTUAN 

. ir  NO  NCNAINOCN.  THtN  ACTURN 

AA.U 

AO.I 

. RCNAINOCA  --  AOUNO  UA 

mruAN 

J 

t.xtt 

• 

CNO 

DM  MCIUDC  AMCNOtX  R 
DMID/iTrC/trDtM  ROUTINCt 


RWTDTT 

Ml 


•uDDOuriNC  RurtYTi  a Mr  mon*nco  iNTcocR  INTO  ivrc  ar  avrc  strim 

0 IflttTR.  a IHTCRNAL  DYTC  tTRIIIR 

1 IDYiOe.  a RTTC  kOCATtON  NlTNIN  tTRIM  tCOUNflNO  fRON  t AT  kCm 

• 

I tarn  a unrackco  avrc  (RiONr-AtiONCOi 


NtaiMV 


c N ccNkoatCN 
c N acNkottca 


kce  at/av/VR  orioinal  eeec 

LCe  aV/|t/7f  SURRORT  HiNUt  rCRO 


NCTMOO 


eONVCRT  ARRAY-RCLATIVC  OUARTCR'HORO  LOCATION  TO  HaCHI NC'OCRf NOCNT 
LOCATION  At  rOLLOUti 

UORO  NUNOCR  • IN  ROOT  tlONIRICANT  RITf 

QWARTCR-UORO  LOCATION  WITHIN  WORO  • 0 LCaOT  tIONiriCANT  RITt 
OTORC  1VTC  IN  0-01 T OUARTCR  WORO 


NACNINC-OCRCNOCNT  CROC 


WRITTCN  IN  AttCHOLCR  TOR  TMC  UNIVAC  1100  tCRICt  COHRUTCRt  UtiNO  t-OIT 
OUARTCR  WOROa.  THC  AROUNCNTS  ARC  DCOIOnCO  TO  OC  NACHINC-INDCRCnOCNT. 

RUT  THC  NCTMOO  OR  RAttiNO  AROUNCNTf  It  THAT  UtCO  OY  UNIVAC  RORTRAN  V. 
INRLCNCNTINO  COOC  HUtT  OC  RCHRITTCN  ROR  OIRRCRCNT  UORO  tIZCt. 

OIRRCRCNT  eOHRILCRt  ICO..  UNIVAC  AtCII  RORTRAMI . ANO  OIRRCRCNT  NACHiNCt. 


CKTCRNAL  RCRCRCNCCt 


CRCCRTIONt 


|.‘  TNC  CONRUTCR  NUtT  OC  IN  QUARTCR-WORO  NOOC.  lAttCHRLC  WITH  OAtN.R 
OR  eOLLCCT  with  ONAR.R  OR  iNtURC  THAT  tCTRuO  HAt  CALLCO  RRCVlOUtLY.I 

t.  lOVtTR  It  UNCMANOCO  IR  lOTLOC  It  LCtt  THaN  I. 

I.  HO  OTNCR  CMCKt  ARC  NAOC  ON  ANY  OR  TnC  AROUHCnTO. 

N.  RCtULTf  ARC  ONLY  OCRIHCO  ROR  0 <•  lOVT  <•  *000. 

t.  RlHUt  CCRO  It  AUTOMAT ICALLV  COHVCRTCO  TO  RLUt  CCRO  tCRORC  iNtCRTlOH 
IN  tTRINO. 


R-IM 


WiT? 

•tt 


OM  MCKAOff  AmNOIK  « 

emii/tvrc/triiiNo  murtNCt 


( 


OCCLMI*rtOII« 

AKHt  . trANOAIIO  UNIVAC  tlOO  NCOISTCR  NNCMONICt 

LOCAL  OCCLARAMONO 


NONC. 


RROeCOURC 


f(oe>  . 

1 •RANK 

. OANKt  RCVCRSeO  ro  CLININATC  INOIRCCr  LOAD  tarlc 

RurotT* 

LA 

Al .•! .Xlt 

. RYTC  LOCATION.  COUNT  1 NO  fAON  I 

AA.IU 

At  .-I 

. RYTC  LOCATION.  COUNT  1 NO  fRON  0 

LNA 

A|.*«.XII 

. OYTC  CONTCNTt 

JN 

Al .RCrURN 

. LOCATION  TO  LCrT  Of  ARRAYMI 

OtL 

Al  .f 

. Al  • NORO  LOCATION 

t«L 

AC.X% 

. AC  • OMO  LOCATION  Ml  THIN  MONO 

AA 

Al  .O.XII 

. CONVCRT  WORD  LOCATION  TO  AODRCflt 

cx 

INSCRT.AC 

. iNOCAT  oytc  into  rrorcr  qtr 

RCruRN 

•l.XII 

• 

INtiRT 

tA.Qt 

AX.O.AI 

• 

tA.Qt 

AX.O.AI 

• 

•A. OX 

AX.O.AI 

• 

tA.O<» 

AX.O.AI 

• 

• 

CNO 

OAN  PACKAOC  APKNOIX  R 

CHAR/eYrc/trRtNO  AourtNCs 


RttTCMI 

Mt 


tumouriNC  rutchri  a put  onc  cmaractcr  into  charactcr  strino 

0 JSTRNO.  a CMARACrCR  STRINO 

1 KHRLOC.  A CHARACrCR  LOCATION  HITNIN  STRINO  ICOUNTINO  FRON  c AT  LCFTI 

• 

I RHARI  A UNRACKCO  CHARACTCR  ILCPT-AL lONCO.  RCST  OF  HORO  lONORCO* 


ENTRY  PUTICCI  A PUT  INTEOCR  CHARACTER  EQUIVALENT  INTO  CHARACTER  STRINO 

0 jstrno.  a character  strino 

( KHRLOC.  A CHARACTER  LOCATION  HI  THIN  STRINO  (COUNT  I NO  FRON  I AT  LEFT  I 

1 NICE)  A INTEOER  CHAR  EQUIVALENT  C.ltOHT-Al  lONEO.  RCST  OF  HO  lONORCO) 


HISTORY 


C H SCHLOSSCR  LCC  06/05/78  ORIOINAL  COOC 

C H SCHLOSSCR  LCC  07/27/79  SUPPORT . HI NUS  ZERO  IN  PUT  ICC 


NETHOO 


CONVERT  STRINO'RELATI VC  CHARACTCR  LOCATION  TO  HACHI NC •OCPCNOCNT 
LOCATION  AS  FOLLOWS: 

HORO  NUHSCR  ■ (CHARACTER  LOCATION  - I)  / CHARACTERS  PER  HORO 
CHARACTCR  LOCATION  WITHIN  HORO  - RCHAINOCR  FROM  DIVISION 
STORE  CHARACTER  IN  8-01 T SIXTH  HORO 


NACHINE-OEPENOENT  COOE 


WRITTEN  IN  ASSENSLER  FOR  THE  UNIVAC  1100  SERIES  CONPUTERS  USINO  8-OIT 
FICLOATA  CHARACTERS.  THE  AROUNCNTS  ARE  OCSIONCO  TO  BE  HACHINE-INOCPCNOCNT. 
BUT  THE  NCTHOO  OF  PASSINO  AROUNCNTS  1$  THAT  USED  BY  UNiVAC  FORTRAN  V. 
INPLCNCNTINO  COOC  NUST  BE  REWRITTEN  FOR  DIFFERENT  CHARACTER  COOES. 
DIFFERENT  CONPILERS  lEO..  UNIVAC  ASCII  FORTRAN).  ANO  DIFFERENT  NACHINES. 


EXTERNAL  REFERENCES 


NONE 


EXCEPTIONS 


I.  JSTRNO  IS  UNCHANOEO  IF  KHRLOC  IS  LESS  THAN  I. 
t.  RESULTS  ARE  ONLY  DEFINED  FOR  0 <•  NICE  <•  *63. 


R*iei 


o 


OAN  PACKAOC  AmNOIX  II  PUTCHII 

CMAR/BYTC/SmiNO  ROUTtNCS  OOt 


3.  MINUS  ZCRO  IS  AuroHATicALLv  eoNvcRTco  TO  PLUS  xcNo  icroiie 

INSCHriON  IN  STNINO. 

A.  NO  OrNCM  CHCCKt  ARC  HAOS  ON  ANY  OP  IHC  AROUNCNTS. 

OLOBAL  oeCLARATlONS 


AXRS  . STANOARO  uni  vac  1100  RCOtSTCR  NNCNONICS 

LOCAL  OeCLARAriONS 


NONE. 

PROCeOURE 


SCOOl  . I -SANK  . BANKS  REVERSED  TO  ELININATE  INDIRECT  LOAD  TABLE  ENTRY 


purcHR* 

LA. SI 

A3.«e.Xl t 

. LOAD  LEFT-ALIONEO  CHARACTER 

U 

oetaoor 

- 

PUTICE* 

LHA 

A3.*a.xt I 

. LOAD  ABSOLUTE  VALUE  OP  ICE 

oetaoor 

LA 

AS.*! .XI 1 

. CHAR  LOCATION.  COUNTING  PRON  1 

AA.XU 

AB.  -1 

. CHAR  LOCATION.  COUNTING  PRON  0 

sz 

Al 

. DIVISION  COHINO 

JN 

AB. RE TURN 

. LOCATION  TO  LEPT  OP  STRiNOlil 

01  .XU 

Al  .8 

. AI-UORO  LOC.  A8«SIXTH  LOC 

AA 

Al .O.Xtl 

. CONVERT  MORO  location  TO  ADDRESS 

EX 

insert. AB 

. INSERT  CNAR  into  PROPER  SIXTH 

RETURN 

J 

*».XI  1 

INSERT 

SA.SI 

A3.0.AI 

SA.St 

A3.0.AI 

SA.S3 

A3.0.AI 

SA.S* 

A3.0.AI 

SA.SS 

A3.0.AI 

SA.S8 

A3.0.AI 

• 

END 

R-I8t 


OAN  ^ACKAOC  AMCNOtX  II 
emui/tm/«TiitNO  muTtNCt 


miTMY 

0«l 


tutnouriNC  puroxvt  a rur  non>nco  intcocii  into  oouslc  SYre  or  oytc  tmiNO 

0 tOYtril.  a tMTCRNAI.  OYTC  STRINO 

f IRYLOC.  a RYTC  LOCATION  MITHIN  STRINO  Of  flRST  RVTC  IN  OOURLC  RYTC 
a CCOUNTINO  rROH  I AT  LCfT  or  RYTC  STRINOI 

1 IRYTI  a MNRACKCO  OOURLC  RVTC  IRIOHT-ALIONCO) 


HISTORY 


C H SCHLOSSCR  LCC  07/09/79  ORIOINAL  COOC 


ncthoo 


CONVCRT  ARRAY-RCLATIVC  QUARTER-HORO  LOCATION  TO  NACHlNC'OePeNOeNT 
LOCATION  AS  POLLOUS: 

UORO  NUNRCR  • 3H  HOST  St  ONI  FI  CANT  BITS 

OUARTCR-HORO  LOCATION  WITHIN  UORO  - g LEAST  SIGNIFICANT  SITS 
SPLIT  INTO  TWO  8-BIT  BYTES  A STORE  INTO  TWO  9-BIT  QUARTER  WORDS 


HACH I NE -dependent  CODE 


WRITTEN  IN  ASSEHBLER  FOR  THE  UNI  VAC  I 100  SERIES  COHPUTERS  USING  9-BIT 
QUARTER  WORDS.  ThC  AROUHENTS  ARE  OESIONEO  TO  BE  HACh I NE- I NOEPENOENT . 

BUT  THE  NEThOO  OF  PASSING  AROUHENTS  IS  THAT  USED  BY  UNI  VAC  FORTRAN  V. 
INPLCNCNTINO  CODE  MUST  BE  REWRITTEN  FOR  DIFFERENT  WORD  SIZES. 

DIFFERENT  COHPILERS  (EO..  UNI  VAC  ASCII  FORTRANI.  ANO  DIFFERENT  HACHINES. 


EXTERNAL  RCFCRCNCCS 


NONE 


EXCEPTIONS 


I.  The  CONPUTCR  HUST  be  in  QUARTER-WORD  NODE.  (ASSENBLE  WITH  iASH.F 
OR  COLLECT  WITH  BHAP.F  OR  INSURE  THAT  SCTQHO  WAS  CALLED  PREVIOUSLY.) 

C.  lOVSTR  IS  UNCMANOCO  IF  ISYLOC  IS  LESS  THAN  I. 

S.  NO  OTHCN  checks  ARC  NAOC  ON  ANY  OF  ThC  AROUHENTS. 

*.  RESULTS  ARC  ONLY  OCFINEO  FOR  0 <•  IBYT  <>  *09.939. 

9.  NINUS  ZERO  IS  AUTOHATICALLY  CONVCRTCO  TO  PLUS  ZERO  BEFORE  INSERTION 
IN  STRINO. 


R-tes 


i 

I 


OAN  PACKAOC  A^CNOIX  M miTOtV 

CNAM/tYTC/SrillNO  ROunilCS  AM 


OLOIAL  OCCLARAriOMS 

Amt  . stanoaro  uMivAC  not  neoiSTcii  hnchonics 

LOCAL  OCCLARATIONS 
NONC. 

PROCeOURC 


t(00>  . I-BANK  . BANKS  RCVCRSeO  TO  eLINlNATe  iNOtRCCr  LOAD  TaBLC  CNTRY 


PUTOBY* 

LA 

AO. *1. XII 

AA.XU 

A0.*I 

LHA 

A3. *E.Xt I 

JN 

AO. RETURN 

OSL 

AO. a 

SSL 

AI.3<» 

AA 

AO. 0. XII 

LOSL 

AE.28 

EX 

PUTBYTl .AI 

LA.U 

AE.O 

LOSL 

AE.B 

ex 

PUTBVTa.At 

RETURN 

j 

N.Xl  1 

PUTBYTl 

SA.QI 

AE.O. AO 

PUTBYTE 

SA.QE 

AE.O. AO 

SA.Q3 

AE.O. AO 

SA.QH 

AE.O. AO 

SA.QI 

AE. 1 .AO 

END 

BYTE  location.  COUNTINO  EROH  I 
BYTE  LOCATION.  COUNTING  TRON  0 
DOUBLE  BYTE  CONTENTS 
LOCATION  TO  LEET  OP  ARRAYIIi 
AO  • WORD  LOCATION 
At  > QUO  LOCATION  MIThIN  UORO 
CONVERT  WORD  LOCATION  TO  ADDRESS 
SHIFT  first  8 BITS  INTO  AE 

PUT  into  first  byte 

CLEAR  AE 

SHIFT  SECOND  8 BITS  INTO  AE 
PUT  INTO  SECOND  BYTE 


R-I6N 


nnnnnnnonnonooooooo  onnonoonnnonoonoonooooooononp 


OAN  PkCtUMt  AmNOtX  M 
CHAII/lYTC/trillNO  nourtNCs 


PUTNCX 

001 


e 


ouoROuriNC  ouri«x  i • our  hcxaoccinal  char  in  nyolc  in  oytc  strino 

0 tOYSTR.  • OYTC  STRINO 

1 tOYtOC.  a LOCATION  OF  SUOSTRINO  HI  THIN  STRINO 

( NYOLOC.  a NYOLC  LOCATION  HI  THIN  SUOSTRINO 

(OOTH  COUNTINO  FRON  I AT  LCFT  OF  STRINO/SUOSTRINOI 


I NYONCXi  a NCX  OlOir  CQUIVALCNT  OF  NYOLC  VALUC 


HISTORY 


J 

C 

CRISP 

LCC 

07/BS/79 

RCQUIRCHCNTS 

J 

c 

CRISP 

LCC 

OS/BH/79 

ALOORI THN 

OCSION 

J 

c 

CRISP 

LCC 

OB/BN/79 

ALOORI THH 

COOING 

NCTHOO 


IF  NYSHCX  IS  *0'  through  ’9*.  THCN  NYOLC- 1 CC < NVBHCX ) - I CC ( * 0 ‘ I . 
OTHCRUISC  NYBLC-ICCCNVBHCXi -ICC( ‘A’ ) -to.  CALL  PUTNYB  TO  RUT  THAT 
VALUC  INTO  THC  NVBLC. 


HACHINC>OCPCNOCNT  COOC 


NONC 


CXTCRNAL  RCrCRCNCCS 


PUTNYB  a PUT  NON'NCOATIVC  INTCOCR  INTO  NYBLC  OF  BVTC  STRING 
INTCOCR  ICC  a INTCOCR  CHARACTCR  CQUIVALCNT  (POR  CHARACTCRI 


CXCCPTIONS 


I.  RCSULTS  ARC  ONLY  OCFINCO  FOR  NVBHCX  HITH  A VALUC  IN  THC  RANOC 
OF  HCXAOeCINAL  OlOITS  (’0*>’9’’  ANO  *A’>*F’I. 

e.  IBYSTR  IS  UNCHANOeO  IF  IBYLOC  ANO  NYOLOC  RCFCR  TO  A NYBLC  TO 
TNC  LCFT  OF  ThC  BYTC  STRINO. 


OLOOAL  OCCLARATIONS 


NONC 


LOCAL  OCCLARATIONS 


R-ISS 


u u u u uuuu  u uuoo 


OMI  MCKAOC  A^KNOU  A 
CMAN/|VrC/«rRINO  NOUriNCS 


e — — — 

c 

INTCOCR  NYtLC  A NON'NCOATI VC  iNfCOCR  VALUC  OC  NVCLC 

INTCOCft  NVIMCX  I l-C'C  Or  NCX  0101 r 

c 

c 

C MOeCOUAC 

c 

c 

c 

ICCNCX-ICetNYONCXt 


CHCCK  IP  CHARACrCR  IN  RANOC  ’0*-'9‘*-8Cr  NV8LC 

IP  ( ICCHCX.oe. ICC( *0* I . ANO. ICCHCX.LC. tCC( *9’ n 00  TO  100 


CLSe  NVOLC  IN  RANOC  *A‘-*P'>>SCr  NYBLC 
NYBLCX  ICCHCX-ICCI  'A*  > I »I0 

00  ro  500 

100  NYBLC«ICCHCX-ICC( *0’) 


pur  nyblc  in  bytc  strino 

BOO  CALL  PUTNYB  ( I BYSTR . ( I BYLOC I . ( NYBLOC ) . NYBLCI 

c 

c 

RCruRN 

CNO 


AUYMCX 

OOt 


A*tOO 


OAN  ^ACKAOC  AMCNOIX  A 
CHAN/ITTC/tTRlNO  ROUriNCt 


RttTINT 

001 


OUOROUrtNC  OUriNTl  A RUT  INTCOCR  INTO  INTCOCR  OTAINO 

0 INTOTR.  A INTCOCR  OTRINO 

t INTLOC.  a INTCOCR  LOCATION  HITNIN  OTRINO  (COUNTINO  CRON  I AT  LCFTI 

• 

1 INTOCR.  A INTCOCR 


NIOTORV 


C H tCHLOttCR  LCC 

C H SCHL0S8CR  LCC 


10/10/79  RCQUIRCNCNTO 

10/10/79  OCSION  A COOC 


NCTMOO 


CONVCRT  STRINO-RCLATI VC  INTCOCR  LOCATION  TO  NACH I NC -OCPCNOCNT 
AOORCSS.  THCN  INSCRT  INTCOCR  INTO  THAT  AOORCSS. 

THIS  TRANSrORn  IS  PROVIOCO  TOR  CONPA T I OIL  I TY  HITH  PUTBYT  ANO  PUTCHR. 


NACHINC-OCPCNOCNT  COOC 


URITTCN  IN  <-SSCN8LCR  POR  THC  UNI  VAC  1100  SCRICS  COMPUTCRS. 

THC  AROUHCNTS  ARC  OCSIONCO  TO  BC  HACHl NC • I NOCPCNOCNT . BuT 

THC  NCTHOO  or  PASSINO  AROUHCNTS  IS  THAT  USCO  BY  UNiVAC  PORTRAN  V. 

IHPLCHCNTINO  COOC  NUST  BC  RCMRITTCN  por  oippcrcnt  uoro  sizes. 

OIPPCRCNT  COHPILCRS  <C0..  UNIVAC  ASCII  PORTRANI . ANO  OIPPCRCNT  HACHINCS. 


CXTCRNAL  RCPCRCNCCS 


NONC 


CXCCPTIONS 


I.  INTSTR  is  UNCHANOCO  ip  INTLOC  IS  Less  THAN  I. 
t.  NO  OTHCR  CNCCKS  arc  HAOC  on  any  op  THC  AROUHCNTS. 

OLOOAL  OCCLARATIONS 

AXRS  . standard  UNIVAC  1100  RCOISTCR  HNCNONICS 

LDCAL  DCCLARATIONS 


Ro|07 


MN  l»ACKAM  AmNOIX  « fttfllir 

CNAR/evrc/triMNO  iieuriNCs 


NONC. 


MOeCOUMC 


tfOOt  . l-eANK  . BANKS  NCVCNSCO  TO  eLININATC  INOIRCCT  LOAD  TABLC  CNTNY 


NUrtNT* 

LA 

Al.«l .Xtt 

• 

INTCOCR  LOCATION.  COUNT  1 NO  TNON  1 

AA.XU 

Al.'l 

• 

INTCOCR  LOCATION.  COUNTINO  FRON  0 

JH 

At.NCrUNN 

• 

LOCATION  TO  LEFT  OF  STRINOIII 

AA 

AI.O.XII 

• 

CONVERT  LOCATION  TO  AOORESS 

LA 

At,«(.XIt 

• 

AB  t*  INTOER 

SA 

AC.O.Ai 

* 

INTSTRt INTLOCI  :•  AE 

« 

NCruRN 

J 

•*.Xt  t 

• 

END 

I ) 


t 


R*I8B 


OAN  AACKAOC  Af»9CN0tX  A 

CNAR/ITrC/trRtNO  AOUrtNCf 


AUTMTI 

OtI 


tUtROUriNC  AUTNYIC  A PUt  NON-NCO  INTCOCR  INTO  NYtLC  Of  AYTC  STAINO 

0 llYtTR.  • INYCRNAL  lYTC  tTRINO 

1 IlYLOe.  • tYYC  LOCATION  Of  SUOSTRINO  HITNIN  STNINO 
I NYlLOe.  a NYtLC  LOCATION  Of  NYtLC  HI  THIN  tUttTRINO 

a (tOTH  COUNTINO  FNON  I AT  LCFT  OF  STNINO/tUttTNlNOI 


I NYtLC)  a UNFACKCO  NYtLC  (RIONT-AL lONCOI 


HISTORY 


C H SCHLOSSCR  LCC  07/10/79  ORIOINAL  COOC 


NCTNOO 


CONVCRT  STRlNO'ReLATI  VC  NVOLL'  LOCATION  TO  NACH I NC -OCRCNOeNr 
LOCATION  AS  FOLLOWS: 

STRINO-RCLATIVC  location  in  NYSLES  • a* IBYLOC^NYSLOC 
HORO  NUNOCR  • S3  HOST  SIONIFICANT  SITS 
NYtLC  LOCATION  HITHIN  HORO  • 3 LEAST  SIONIFICANT  BITS 
HASK  our  OLD  CONTENTS  OF  NYBLE  A ’OR'  IN  NEW  CONTENTS 


HACHINC'OCPCNOCNT  COOC 


HRirrCN  IN  ASSCNBLCR  FOR  THE  UNIVAC  1100  SERIES  COHPUTCRS  USING  9-BIT 
QUARTER  WORDS.  TUC  AROUNCNTS  ARE  OCSIONCO  TO  BC  NACHI NE- I NOCPCNOCNT , 

BUT  THE  HCTHOO  OF  PASSINO  AROUNCNTS  IS  THAT  USED  BY  UNIVAC  FORTRAN  V. 
IHPLCNCNTINO  COOC  RUST  tC  RCWRITTEN  FOR  OIFFCRCNT  HORO  SIZES. 

OIFFCRCNT  CONPILCRS  (CO..  UNIVAC  ASCII  FORTRAN) . ANO  OIFFCRCNT  HACHINCS. 


EXTERNAL  RCFCRCNCCS 


NONE 


CXCCPTIONS 


I.  THC  CONPUTCR  NUST  BC  IN  OUARTCR-HORO  NOOC.  (ASSCNBLC  WITH  8ASH.F 
OR  COLLECT  WITH  ONAP.F  OR  INSURE  THAT  SCTQHO  WAS  CALLED  PREVIOUSLY.) 

t.  ItYSTR  IS  UNCNANOCO  IF  IBYLOC  0 NYBLOC  REFER  TO  A NYtLC  TO  TNC 
LEFT  OF  TNC  BYTE  STRINO. 

S.  NO  other  CNCCKS  arc  NAOC  on  any  of  TNC  AROUNCNTS. 

0.  RESULTS  ARC  ONLY  OCFINCO  FOR  0 <•  NYtLC  <•  *19. 


R*ltt 


PttTNtt 

0«t 


0*11  »*CKAtC  A^NOIX  n 
CNAH/tYrC/trillNO  ROUriNCt 


• . NtNUt  ZCRO  It  AUrONAriCALLY  CONVCRTCO  TO  RLUt  ZCRO  tCrOIIC  INtCRriON 
IN  trniNO. 


•LMAk  OCCLARAriONt 


AXRt 


. tTANOARO  UNI  VAC  ItOO  NCOItrCR  NNCNONICt 


LOCAL  OCCLARAMONt 


NONC. 


RROCrOURC 


tfOOl  . I'RANK  . RANKS  RCVCRSCO  TO  CUNINATC  INOIRCCT  LOAD  TAtLe  CNTAV 


rutntb* 

LA 

AO. *1. XII 

LS8L 

AO.  1 

AA 

AO. 'C.Xt 1 

AA.XU 

AO.  <3 

UN 

AO. RCTURN 

OSL 

AO.  3 

SSL 

Al  .33 

AA 

AO. 0. XII 

LA. XU 

AC.  -IS 

cx 

ALION. At 

AND 

AC.O.AO 

BA 

AS.RI 

LNA 

AC.«S.XII 

CX 

ALION. Al 

OR 

AC.Rt 

BA 

AI.B.AO 

RCTURN 

U 

8. XII 

• 

ALION 

LSSC 

At. St 

LS8C 

AC.S7 

LSSC 

AC. >8 

LSSC 

AC.  IB 

LSSC 

AC.  IS 

LSSC 

AC.S 

LSSC 

AS.« 

NOR 

CNO 

tvrc  Loc  or  surstrino.  count i no  rnoN  i 

NTtLC  LOC  or  tUtSTRINO.  COUNT! VO  rRON  i 

NVRLC  LOC  or  NVBLC.  COUNT  I NO  rNi)N  3 

NYOLC  LOC  or  NYtLC.  COUNT  I NO  rACH  0 

LOCATION  TO  LCrT  or  STAINOMI 

AO  I*  MONO  L NATION  HIThIN  STRINO 

At  <•  NYtLC  LOCATION  UITHIN  UORO 

AO  <•  MONO  aOORCSS 

HA8K  mith  all  BITS  IN  NYBLC  orr 

SHirT  HASK  INTO  NYBLC  LOCATION  WITHIN  AC 
NASK  OUT  OLO  CONTCNTS  Or  NYBLC  ... 

...»  STORC  NA8KC0  WORD 
NCH  CONTCNTS  or  NYBLC 

SNirr  CONTCNTS  INTO  NYBLC  LOC  WITHIN  AC 
IN8CRT  NCU  CONTCNTS  Or  NYBLC  ... 

...  A STORC  WORD  BACK  INTO  STRINO 


NYBLC 

1 

or 

MONO 

NYBLC 

C 

or 

WORD 

NYBLC 

s 

or 

WORD 

NYBLC 

V 

or 

WORD 

NYBLC 

B 

or 

UORO 

NYBLC 

B 

or 

WORD 

NVBLC 

7 

or 

UORO 

NVBLC 

B 

or 

WORD 

OAN  MCKAOC  APKNOIK  R 
CNAii/tYrc/triitNO  RovriNCt 


RUTMV 

Ml 


tuRNOurtNC  Rurotrc  i rut  intcocr  into  quaorurlc  tyre  or  oytc  tmiNO 

0 lOTtril.  A INTCRNAL  OYTC  OYRINO 

1 ItYLOe.  A OYTC  LOCATION  MITNIN  OTOINO  Of  ftOtT  OYTC  IN  OWAONUNLC  OYTC 

A (COUNTINO  rOON  I AT  LCfT  Of  OYTC  tTNlNOi 

I IQOYTI  A UNNACKCO  OUAONUNLC  OYTC  INIONT-ALIONCOI 


HIATOAY 


C N ACNLOSSCN  LCC  07/09<7t  ONIOINAL  COOC 

C N tCHLOASCR  LCC  07/A7/79  AurrONT  niNUS  2CNO 


NCTNOO 


eONVCNT  ANRAY'NCLATIVC  QUANTtA'HONO  LOCATION  TO  NACNI NC •OCACNOCNT 
LOCATION  A9  rOLLOHSi 

MONO  NUHOCR  • 3*»  HOST  1 1 ONI  r I CANT  9179 

QUARTCRoNOAO  LOCATION  MIThIN  HONO  • A LCAfT  tiONIflCANT  91 TS 
9ALIT  INTO  rOUA  9-AIT  AYTCS  9 STOAC  INTO  TOUR  9-AIT  QUARTCR  U0R09 


HACHINe-OCRCNOCNT  COOC 


HRITTCN  IN  AtSCHALCR  TOR  ThC  UNIVAC  1100  SCRICt  CONRUTCRt  USINO  9-AIT 
OUARTCR  U0R09.  THC  AR0UHCNT9  ARC  0C9I0NC0  TO  AC  HACHl NC - I NOCRCNOCNT . 

OUT  THC  NCTMOO  or  RA9SIN0  AROUNCNTS  IS  THAT  USCD  AT  UNIVAC  TORTRAN  V. 
INRLCNCNTINO  COOC  NUST  AC  RCURITTCN  TOR  OlffCRCNT  HORO  SIZCt. 

OirrCRCNT  eOHRILCRS  ICO..  UNIVAC  ASCII  rORTRANI.  ANO  OirrCRCNT  NACHINCS. 


NONC 


CXCCRTIONS 


I.  TNC  VONRUTCR  NUST  OC  IN  OUARTCR-HORO  NOOC.  lASSCNOLC  HITH  lASN.f 
OR  COLLCCT  HITH  ANAR.f  OR  INSURC  THAT  SCTOUO  MAS  CALLCO  MCVIOUSLY.I 

t.  I0Y9TR  IS  UNCHANOCO  IT  lOYLOC  IS  LCSS  THAN  I. 

S.  NO  OTNCR  CNCCK9  ARC  NAOC  ON  ANY  Of  THC  AROUNCNTS. 

•».  RCSULTS  ARC  UNOCriNCO  IT  ANY  CXCCRT  TNC  St  LCAST  SIONiriCANT  01 TS 
or  lOOYT  ARC  NON-ZCRO. 

t.  NINUS  ZCRO  IS  AUTONATICALLY  CONVCRTCO  TO  RLUS  ZCRO  tCrORC  INSCRTION 
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IN  tmiM. 

•LOm  OffCLAMnONt 


AMIt  . tTANOAlie  UNIVAC  1100  OCOISrCN  NNCNONICt  • 

LOCAL  OCCLANAnONt 


NONC. 

OIIOCCOUAC 


OIOO>  . 

1 -OANK 

. OANKO  Aeveoseo  ro  eLiniNAre  tNOtnecr  load  taolc 

PuroiT* 

LA 

AO.«l .XI 1 

. orre  LOCATION.  COUNTINO  tron  i 

AA.XU 

AO.'I 

. orre  location,  countino  mon  o 

LA 

Al.«t.Xt 1 

. QuAORune  OYTt  contcnto 

JN 

Ao.oeruRN 

. LOCATION  TO  LCrT  or  ARRAVIII 

rNZ 

A1 

. ir  RLUt  OR  NINUO  ZCRO.  ThCN  ... 

LA.U 

AX.O 

. ...  NAXe  IT  RLUO  ZCROI 

OOL 

AO.O 

. AO  • WORD  LOCATION 

SSL 

At  .X*» 

. Al  • OHO  LOCATION  Hi  Thin  uoro 

AA 

AO.O. XII 

. CONVCRT  UORO  location  TO  AOORCtf 

LOOL 

AO.lt 

. ONifT  riROT  0 oito  into  ac 

• 

ex 

ourorri.Ai 

. RUT  INTO  riRST  OYTt 

LA.U 

AO.O 

. CLtAR  AS 

LOOL 

AO.O 

. ONIfT  teCONO  0 OITO  INTO  At 

ex  • 

OUrOYTO.AI 

. RUT  INTO  teCONO  OYTt 

LA.U 

AO.O 

. CLtAR  At 

LOOL 

AO.O 

. ONifT  THIRO  0 OITO  INTO  At 

ex 

ourovrs.Ai 

. RVT  INTO  third  OYTe 

LA.U 

AO.O 

. CLCA.-*  At 

LOOL 

AO.O 

. ONifT  fOURTN  0 ilTO  INTO  At 

ex 

ourorrL.Ai 

. RUT  into  fOURTN  OYTe 

NcruiiN 

j 

A.XII 

• 

« 

our or ri 

OA.QI 

AO.O. AO 

• 

ouTOvri 

OA.QO 

At.O.AO 

• 

ouroYri 

OA.Ol 

AO.O. AO 

• 

outivr«» 

OA.QA 

At.O.AO 

• 

OA.Ol 

At.I.AO 

• 

OA.Ot 

At.I.AO 

• 

OA.OS 

At.I.AO 

• 

• 
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NACHINC'OCACNOCNT  COOC 

MUirrCN  IN  AttCnikCA  rOA  TNC  UNIVAC  ttoo  tCAICS  cohautcas  unoca  tmc 
CXCC>#  OACAATtNO  tVSrCN. 
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« 


CA  AtAt  CNANOC  Itr  IN  AAOCCStOA  STaTC  ACOISTCA 


CXCCATIONt 


I.  TNC  eOAAurCA  NUtr  ic  IA  OUXATCA-UOAO  NOOC  UHCN  CALLINO  any  TAANtrOAHt 
UNICN  ACAfOAH  AYTC  OA  NTILC  OACAATIONt  lOCriYT.  AUTtYT.  HOVAYr.  CTC.I 

t.  OUAArCA'MOAO  AOOC  AAY  tC  fCr  AY  ANY  Of  YNC  rQkkOMlNOi 
CAUL  Acrouo  HITNIN  CXCCUTINA  AAOOAAN 
AAAN.r  UNCN  AAACNtkINO  AUA'AAOAAAN 
ANAA.r  HNCN  COkkCCriNO  AAOOAAN 


OkOtAk  OCCk AAA r IONA 


AXAA 


kOCAk  OCCkANATIONA 


tlAlt  . 0‘iANIt 
NT  rOAN 

NAAK  Hf 


. ATANOAAO  UNIVAC  1 1 AO  ACOIATCA  NNCNONICA 


. AANKA  ACVCAACO  TO  CklNlNAYC  INOIACCI  kOAO  tAikC  CNfAY 

lA.I.lA.I 

A.t.A.t 


. AAOeCOUAC 


A-I7S 


PAH  H*eKAM  AHPCNOtX  H ttrpMP 

PNMi/tvrc/trHiNO  HOuriNCi  iff 


flOHt  . I -HANK  . HANK*  RCVCHtCO  tO  CUNiNArC  INOiHCCr  IPAO  rAKC  CMTHr 

PCrOliO*  LA  AH.NAM 

CH  HtHt 

4 l.Xlt 

CNO 


H-m 
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CMAII/evTC/«nitNO  MOUTINCS 


SLOMT 
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iNor  iwLCNCNreoi 
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ooooonoo  nnononnonnooonnooooooonono 


OMI  MCKAOe  APTCNOIX  tt 
CHAfl/evrC/STIIiNO  AOUrtNCS 


mUAL 

001 


Loot CAL  rUNCrtON 

0 A roue  ir  «HAK  STKINO  is  ALPHAOCTIC  IA'Z.SPACCI.  clsc  palsc 
• rsUALt 

t Ksroo.  • CHAOAcrcK  srntNO 

1 KLOC.  a CNAR  COCAriON  HITNIN  STNINO  NttfRC  SUOStRtNO  OCOINS 

( LCNO)  a lcnoth  a oircction  or  suostrino  iposirive  • l ro  ri 

(CHAR  LOCATION  COUNTCO  PRON  I AT  LCPT  OF  STRINO* 


HISTORY 


e H SCHLOSSCR  LCC  02/13/79  ORIGINAL  COOC 


NCTHOO 


SCAN  SUBSTRINGS.  CXAHtNlNO  INTCCeR-CHARACTER-rQUl VALCNTS  UNTIL  THCY 
ARC  NON-ALPHABCTIC  OR  UNTIL  THE  SUBSTRING  IS  EXHAUSTED. 


NACHINC-OEPENOeNT  COOC 


NONE. 


EXTERNAL  RErERENCES 


INTCOCR  ICC  a integer  CHARACTER  EQUIVALENT  PUNCTION  FOR  CHARACTER 

OETICC  a OCT  ICC  PROH  STRIHOS 


EXCEPTIONS 


I.  AN  CNPTY  character  STRING  (LENO-0>  IS  NOT  ALPHABETIC, 
t.  NO  other  checks  ARC  HAOC  ON  ANY  OF  THE  AROUNCNTS. 


GLOBAL  declarations 


NONE. 


LOCAL  DECLARATIONS 


INTCOCR  INC 
INTCOCR  LOCCNO 
INTCOCR  LOCTAL 


a SIONCO  INCRCHCNTATION  (*l  OR  >11 
a LOCATION  or  LAST  CHAR  AT  CNO  OP  SUBSTRING 
a LOCATION  or  l>C>C  8CIN0  TCSrCD  rOR  ALPHABCTIC 
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CNAR/RVrC/SrRIMO  ROUriNCS 


iNrcocR  tcerAL  • i«c-c  ReiNO  resrco  tor  ALRMAaeric 

c 

e RROCCOURC 

e 

i c 

c 

• e INITIALIZC  SCAN  OIRCCTtONS  A ROINTCRS 

C 

TRUAL-.rALSe. 
tpaCNO.CQ.oi  00  ro  ooo 
lNC«ISIONf I .LCNOI 
LOCCNO*KUOC »LCNO- I NC 
C 
C 

c SCAN  A resr  CHARAcrens 

c 

00  SOO  LOCTALaKLOC.LOCCNO. INC 
CALL  oericec tCCTAL.  KSTRO.LOCTALI 

irccerAL.CQ. icei * *it  oo  ro  soo 

IPdCCTAL.Lr.  tCC( ’A’l  I 00  TO  900 

iPdccTAL.or.tcec  *Z’i ) eo  ro  soo 

900  CONdNUe 

rRUAL«.rRue. 

c 


c DONE 

c 

900  RETURN 
ENO 


i 
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OOt 
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eNAN/tvrC/STMlNO  MOUriNCS 


muesr 

001 


LOGICAL 

0 

• rmiesrt 
t Korooi. 

t KLOCt. 

( LCNOl. 

1 KOP. 

I KSTROO. 
( KLOCO. 

( LCNOOt 


ruNcrioM 

• TRUTH  value  OF  CHARACTER  STRING  CONFARISON 

• CHARACTER  STRING  t 

• CHAR  LOCATION  UlTHlN  STRING  I HNCRE  SUBSTRING  t BEGINS 

• length  a OIRECTION  or  substring  I f POSITIVE  « L TO  R) 

• COHPARISON  operator  «*<*.  *>*.  •<•*.  •<>*.  •>-•! 

• CHARACTER  STRINO  0 

a CHAR  LOCATION  WITHIN  STRINO  S WHERE  SUBSTRING  0 BEGINS 

a length  a oirection  op  substrino  a (positive  - l to  r> 

(CHAR  LOCATION  COUNTEO  FROH  I AT  LEPT  OP  STRINOI 


history 


E H SCHLOSSER  LEC  06/37/78  ORIOINAL  CODE 


HETHOO 


SCAN  SUBSTRINGS.  CONPARINO  I NTEOER'CHARAC  TER-EQUI VALENTS  UNTIL  THE'. 

ARE  UNEQUAL  OR  UNTIL  BOTH  SUBSTRINGS  ARE  EXHAUSTED.  (IP  ONE  SUBSTRING 
IS  EXHAUSTED.  TREAT  IT  AS  IP  PADDED  WITH  SPACES.)  USE  THE  RESULT  PRON  THE 
LAST  I-C-E  COHPARISON  TO  OETERNINE  THE  TRUTH  VALUE  OP  THE  RELATION  BEING 
EVALUATED. 


nachine-dependent  code 
NDNE. 

EXTERNAL  REPERENCES 

INTEGER  ICE  a INTEGER  CHARACTER  EQUIVALENT  PUNCTION  POR  CHARACTER 

OETICE  a OET  ICE  PRON  STRINGS 

EXCEPTIONS 


I.  IP  there  is  no  corresponding  character  in  a substrino.  the  character 

SPACE  IS  ASSUNEO. 

t.  NO  other  checks  are  hade  on  any  op  the  arouments. 

GLOBAL  declarations 
NONE. 
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OAN  ^ACKAOC  AP^CNOtX  R 
eNAR/aYrC/STRtllO  ROUriNCS 


TMuetT 

OOt 


LOCAL  OCCLARATtONt 


tNTCOCR  KPt.KRR 
INTCOCR  iNCt.tNCa 
tNTCOCR  NCHI.NCHC 
tNTCOCR  NCHP\X 
tNTCOCR  tCCPAO 
INTCOCR  NCH 
tNTCOCR  NICCl.NlCCa 


• CHAR  LOCATIONS  OF  CHARACTCRS  BCtNO  CONPARCO 
A SIONCO  INCRCHCNTATtON  f*l  OR  -tl  FOR  KPI.KP8 
a NUN8CR  OF  CHARACTCRS  IN  SUOSTRINOS 

• NUnOCR  OF  CHARACTCRS  IN  LONOCST  SUBSTRINO 

a lNTCOCR>CHAR*CQUI V OF  BLANK  TO  PAO  SHORT  SU8STR 
a NUHBCR  OF  CHARACTCRS  COHPARCO 
a I<C-e*S  OF  CHARACTCRS  BCtNO  COHPARCO 


PROCCOURC 


INITIALIZC  SCAN  OIRCCTIONS  A POlNTCRS 
KPt«KLOCl 

tNCl*tStON( 1 .LCNOt ) 

NCHt«l  ABSILCNOn 
KPB>KL0C8 

INCB>ISION( I .LCN08I 
NCH8*tABSCLCN08t 
NCHNAX-MAX0(NCHI .NCH8I 
ICCPAO«tCC(*  *) 


SCAN  a COHPARC  CHARACTCRS 

00  SOO  NCH-t.NCHHAX 
NtCCt-ICCPAO 

IFtNCH.LC.NCHI i CALL  OCTICClNtCCl . KSTROl.KPIl 
KPt>KPt*INCI 
NieCf«lCCPAO 

tFCNCH.LC.NCHCi  CALL  OCTICCCNICCC.  KSTROC.KPBI 
KPC*KP8*tNCB 

IF(NtCCt*NtCC2>  SIO.  SOO.  S80 
C t<8  1*2  l>8 

SOO  CONTtNUC 

e 

c 

c Ntcci  • Nicca 
e 

TRUCST*! IKOP.CO. *•*) .OR. (KOP.CO. ’<•*  t .OR. CKOP.CO. *>«'1 I 
00  TO  SOO 

e 

c 

C NtCCt  < NICC8 

e 

StO  TRUCST«( I KOP.CO. *<’ I .OR. (KOP.CO. *<«‘t .OR. I KOP.CO. '<>*M 
00  TO  BOO 

c 

c 
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001 


e NICCI  > NtCCt 

e 

000  rRUCOT«IIKOR.CQ. *>*i.OR.(KOR.CQ.*>**I.OR.(KOR.CQ. *<>*> I 

e 

e 

C OONC 

e 

000  RCruRN 
CNO 
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SORT  ROUT I net 


RRCFACC-t 

0«t 


RRcrACC  ro  amcnoix  t 


THIS  AMCNOIX  CONTAlNt  tC'RT  UTtLirV  NOUTINCS  fON  THC  OAH  HACKAOC. 
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DAN  MCKAOC  AWNOIX  t 

tour  RourtNCt 


APWNOIX'C 

001 


ORRT.Oe 

ORRT.Oe 

OAN.RRCRACC-0 

OAH.ARRCNOIX‘0 

. 1 00001 
• 

ORRT.OC 

OAR. lORTOA 

. INTCOCR 

ORRT.OC 

oah.iortoo 

. INTCOCR 

ORRT.OC 

OAR. IORTMA 

. INTCOCR 

ORRT.OC 

OAR. 1 ortho 

. INTCOCR 

ORRT.OC 

OAR. lORTOA 

. INTCOCR 

ORRT.OC 

OAR. lORTOO 

. INTCOCR 

ORRT.OC 

oah.tortno 

. TAOOORT 

OCT  taoo  a I*  a si 

OUOOLC  sour  AOCCNOINO 
ouooLC  tour  ococcnoino 

HIOOAOO'S  ONCLLSORT  AOCCNOINO 
NIOOAOO't  OHCLLSORT  OCOCCNOINO 

OHurric  OORT  aoccnoino 

ONUTTLC  OORT  OCOCCNOINO 
UOINO  HIOOARO‘0  OHCLLOORT 


OAN  ^ACKAOC  A^KNOlX  % 

•our  RourtNCt 


imriA 

001 


ouioouriNC  ttoriAi  o intcock  tuookc  toor  aoocnoino 

U tRAY.  0 ARRAY  Of  INTCOCRO  TO  OC  OORTCO 

I RMOROO)  0 NUHOXR  Of  UOROO  IN  ARRAY 

C — 

c 

e (C  H OCNLOOOCRI 

e 

e 

e yhio  ouoroutinc  sorts  an  array  or  intcocrs  in  asccnoino  scoucncc  usino  a 

C OUOOI.CSORT.  HOOiriCO  so  IT  IS  LOOiCALLY  COUiVALCNT  TO  SHUTTLCSORT.  OUT 
e RCOUIRINO  SLIOHTLY  LOSS  CORC.  THIS  SORT  IS  VCRY  CmCICNT  UNCN  CANO  ONLY 
e NNCNI  THC  ARRAY  IS  ALRCAOY  OROSSLY  SORTCD  IN  THC  RROPCR  SCQuCNCC. 

e 

OinCNSION  IRAYin 
iriNUOROS.LT.OI  00  TO  900 

N>( 

00  TO  200 
100  N*N*I 

ISO  iriN.or.NHOROsi  oo  to  9oo 
>00  iniRAYINI  .OC.  IRAYIN'l  n 00  TO  100 
NTCNR«N 

300  ITCNRalRAYINt 

IRAY(NI*IRAYIN*I 1 
IRAYIN-II-ITCNP 
iriN.LT. 31  00  TO  HOO 
N*N«I 

in IRAYINI .LT. |RAY(N>I I ) 00  TO  300 
•*00  N«NTCHP«'I 
00  TO  ISO 
900  RCTURN 
CNO 


uo 


OAN  MCKAOC  *mNOtX  t 

•our  RourtNct 


IMTM 

•01 


•uiMouriNC  lonrioi  • intcocr  •uotic  sort  ociccnoino 

U IRAV,  • ARRAY  Of  iNTCOCRt  YO  •£  tORTCO 

I NWOROtl  • NUHiCR  Or  HOROt  IR  ARRAY 


tC  N tCHtOtfCRt 


YNlt  «UiROUriNC  tORTt  AN  ARRAY  Of  INTCOCRt  IN  OCtCCNOINO  tCQUCNCC  UtINO  A 

•u••kCS0Rr.  Hooirico  so  ir  is  looically  couivalcnt  to  snuttlcsory.  tur 

RCOUIRINO  SLIOHTLV  LCSS  CORC.  THIS  SORT  IS  VCRY  CmCICNT  HMCN  I AND  ONLY 
NNCNI  THC  ARRAY  IS  ALREADY  GROSSLY  SORTED  IN  TNE  RRORER  SEQUENCE. 

OINENSION  IRAYin 
iriNUOROS.LT.tl  00  TO  900 

N«t 

00  TO  SOO 
100  N*N*l 

ISO  iriN.or.NuoROSt  oo  ro  900 
•00  irciRAYINt .LE. IRAYIN'I n 00  TO  tOO 
NTEHR«N 

SOO  irENR«IRAYINt 

IRAYINI«IRAY(N*t  ) 

IRAYIN-t )•|rENR 
iriN.LT.St  00  TO  <*00 
N*N>I 

in IRAYINI .or. IRAYIN't n 00  TO  300 
•»00  N«NTENR*t 
00  TO  ISO 
900  RETURN 
END 
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ItNrNA 

Ml 


•UmOUMNC  ItMTHAt  A INfCOCR  MIMAAO*!  SHCLLtOMr  AtCrNOINO 
U IWAr.  A AAAAY  Of  INrCOCflt  It  TO  AORY  Oi  tORYCO 
I NWOROtt  A NUNRCR  Of  HOROt  IN  ARRAY 


NIAYORY 


C N ACNLOttCR  ICC  0Y/IA/7S  ORIOINAL  COOC 

r H tCHLOSSCR  LCnteO  Ot/OY/tA  URORAOC  OOCUNCNYAriON 


ncynoo 


SORT  INTCOeRA  IN  ASC^NOInO  tCOUCNCC  USlNO  HIAAARO’t  INRAOVCO 
ANCLLSORT  (CACN  ALOORITHH  • tOI  I . 

TNit  tiNRLC  rccHNiauc.  AN  cx^CNAioN  or  AHurrLCSORr.  it  quitc  crriciCNT 
fOR  aortino  annays  or  aanoon  nunacrs.  it  is  Nor  as  rAsr  as  SHuruesoRT 

HNCN  THC  ARRAY  IS  ALREADY  SORYCO. 


NACNINC-OCRCNOCNY  COOC 


NONE. 


r EXTERNAL  REYERENCEt 


NONE. 

EXCERYIONS 

NONE. 

OLOOAL  OECLARAYIONS 

NONE. 

LOCAL  OECLAR 

AYlONt 

INYEOER  IRAYIIt 
INYCRCR  NOISY 
INYEOER  NS 
INYEOER  NSNAX 
INYEOER  NSNI 


A ARAUHENY 

A eONRARISON  OISYANCE 
A eONRARItON  SUOSCRIRT 
A NAXINUN  eONRARItON  tUOSCRIRY 
A CURRENY  NIOHESY  CONRARItON  tUOSCRIRY 


S>0 


OMI  PACRAM  APPCNOIX  t 

tour  RovriNct 


INrCOCR  INTCNP  A rCNPORARV 

e 

c 

e PRoecouNC 
C 

e 

ircHNOPos.Lr.tt  oo  re  eo« 
c 

Reitr*NHOAoe 

coo  CONTINUC  • MMILC  KOItT  O I OO 
KOitr«c«((Keitr*ci/i»i  •! 

RfNAX»NMOPOI*KOI or 
00  ^OO  KtHl*l .KtnAX 

00  100  KO«KtNI . I .•KOI or 

in  lAATiKSi  .LC.  tP«riKS*KOton  t ooro  hoo 
iNrCnPalNATIKSI 
IRAT(Ktl*tAATIKS*KOItTI 
IPAriKt*KOiSri >INTCNP 

XOO  CONTINUr 

*»00  CONTINUC 

IPIKOISr.NC. 1 1 00  TO  coo 

c 

000  AC  turn 
CNO 


imrNA 

ooc 


OAN  PACKAOC  A^NOIX  • 
•our  MowTiNCt 


ItNTIID 

Ml 


tUMOUriM  ItnrNOt  • INTCOCR  NlMANO*t  tNClLtOMr  OCieCNOINO 
u IRAV.  a AiHiAr  or  iNrcocoo  ii  re  toor  oi  toorro 
I Niwfieti  a NWNMR  or  Nonot  in  amiav 


NitroRr 


C N tCNLOatCR  LCe  87/10/73  ORIOINAL  COOC 

r N tCNLOttCR  kcnaeo  ot/o7/ao  uroraoc  ooeuMCNrAnoN 


nctnoo 


aoRr  iNfcocRS  in  ocaecNoiNo  ocqucncc  usino  Nioa«Ro*s  inraovco 

OHCLLtORr  ICACn  ALOORItNN  • 801*. 

TMia  flNRLC  rCCNMlQUC.  AN  CXrCNftON  Or  IHUrTkCSORT.  It  ouirc  rmCICNT 
rOR  tORTINO  ARRATt  Or  RANOON  NUNtCRS.  ir  If  NOT  At  FkiT  At  tHurTLCtORT 

hhcn  tnc  array  is  alrcaoy  soryco. 


NACNlNC-OCRCNOCNr  COOC 


NONC. 


cxrcRNAi  RcrcRCNCca 


NONC. 

cxecrrioNS 

NONC. 

OLOOAL  OCCLARAnONt 
NONC. 


LOCAv  oceiARArioNt 


a AROUNCNf 

a eoNRARitoN  oiftANec 
a eoNRARitoN  tuotcRiRr 
a NAIINUN  eONRARItON  SUOtCRIRr 
a cuRRCNT  NiONCtr  coNrARitON  suoteRirr 


iNTCaCR  IRAVfll 
iNfCOCR  KOI or 
INTCOCR  Kt 
INTCOCR  KtNAX 
INTCOCR  KtNI 


OAM  MCKAOC  A^NttU  t 
tMr  MUriNCt 


INrCOCR  tNrCNR  • rCNRORART 


moecoiwc 


irfNHORf.t.Lr.ti  Qo  re  fee 
e 

Reitr«NHoiiot 

toe  ceeriNuc  o wmilc  Keitr  o t ee 
Kettr«t«iiKBifr*f 
KtHA  X *NMe  oee  •*(  0 1 1 r 

ee  <*00  K0Nt*I.K0NAI 

eo  100  Kt>KfHi .1 .•KOitr 

tr<tRAviKti  .oc.  iAAviKt*KOitri  I ooro  <*00 
INrCNA-IRArtKOi 
IRAYIKOI«IAAY(KO*KOItr  I 
IAAYIKS*KCISr l•INrenA 

SOO  CONriNUC 

*00  CONriNUC 

lflROIOr.NC.il  OO  TO  too 

e 

000  AC r URN 
CNO 


ItRfNO 

eec 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


tour  RourtNCs 


NO  I 


imrsA 

001 


tUOROUriNC  ISRTSAt  0 INTCOCR  SHUTTLC  SORT  ASCCNOINO 
U I RAY.  a ARRAY  OF  INYCOCRS  It  TO  SORT  Oi  SORTCO 
I NUOROti  a NUHOCR  OF  WORDS  IN  ARRAY 


Nl STORY 


C H SCHLOSSCR 
e H SCHLOSSCR 


LCC  07/10/73  ORIOINAL  COOC 

LCnSCO  08/07/00  UPORAOe  OOCUHCNTATION 


HCTNOO 


SORT  INTeOCRS  IN  ASCCNOINO  SCQUCNCC  USINO  SHUTTLCSORT  (CACN 
ALOORITHN  * I7SI.  this  techniquc  is  very  efficient  when 
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CHECK  rOR  VALID  ARGUMENTS. 

SORT  TAOS  IN  SPECIFIED  KEY  SEQUENCE  USING  HI88AR0*S  IMPROVED 
SKELLSORT  (CACN  ALGORITHM  * 801 >. 

THIS  SIMPLE  technique.  AN  EXTENSION  OF  SHUTTLESORT.  IS  QUITE  EFFICIENT 
FOR  SORTING  DATA  IN  RANDOM  ORDER.  IT  IS  NOT  AS  FAST  AS  SHUTTLESORT 
WHEN  the  data  are  ALREADY  SORTED. 
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